Index: vhUnitTest/Prod/StockReservatieRepository/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/Prod/StockReservatieRepository/Test.cls.xml	(revision 0)
+++ vhUnitTest/Prod/StockReservatieRepository/Test.cls.xml	(revision 44357)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Prod.StockReservatieRepository.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Standaardgedrag GeefViaIdentNummer geeft een object terug van het juiste type">
+<Implementation><![CDATA[
+	Set StockReservatieRepositoryStub = ##class(vhTest.Mock.Prod.StockReservatieRepository).%New()
+	Do StockReservatieRepositoryStub.IndienMethodCall("GeefViaIdentNummer","0.123.451.0").DanReturn(##class(Prod.StockReservatie).%New())
+	
+	#dim StockReservatie As Prod.StockReservatie = StockReservatieRepositoryStub.GeefViaIdentNummer("0.123.451.0")
+	
+	Do $$$AssertEquals($classname(StockReservatie),"Prod.StockReservatie")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als het via het IdentNummer gevonden PRNr leeg is moet een exceptie gethrowd worden">
+<Implementation><![CDATA[
+	#dim SubStrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Onze Exceptie")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.DataNotFoundException, SubStrings))
+	
+	Set Exceptie = ##class(TECH.Exceptions.DataNotFoundException).%New("Onze Exceptie")
+	
+	Set StockReservatieRepositoryStub = ##class(vhTest.Mock.Prod.StockReservatieRepository).%New()
+	Do StockReservatieRepositoryStub.IndienMethodCall("GeefViaIdentNummer","OnbestaandIdentNummer").DanException(Exceptie)
+	
+	#dim StockReservatie As Prod.StockReservatie = StockReservatieRepositoryStub.GeefViaIdentNummer("OnbestaandIdentNummer")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>