Index: vhUnitTest/DOM/common/Locatie/impl/LandRepository/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/common/Locatie/impl/LandRepository/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/common/Locatie/impl/LandRepository/Test.cls.xml	(revision 35616)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.common.Locatie.impl.LandRepository.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="LandRepository">
+<Type>DOM.common.Locatie.impl.LandRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..LandRepository = ##class(DOM.common.Locatie.impl.LandRepository).%New()
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geef een Land via bestaand ID">
+<Implementation><![CDATA[
+	#dim Land As DOM.common.Land
+	
+	Set Land = ..LandRepository.GeefViaID(1019)
+	
+	Do $$$AssertEquals(Land.GeefID(),1019,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geef een Land via onbestaand ID">
+<Implementation><![CDATA[
+	#dim Land As DOM.common.Land
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen land gevonden met id '9999'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException",Substrings))
+	
+	Set Land = ..LandRepository.GeefViaID(9999)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bewaar -&gt; altijd error raisen">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Landen zijn read-only")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.UnimplementedException",Substrings))
+	
+	#dim Land As DOM.common.Land = ##class(DOM.common.impl.OnbepaaldLand).%New("")
+	Do ..LandRepository.Bewaar(Land)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verwijder -&gt; altijd error raisen">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Landen zijn read-only")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.UnimplementedException",Substrings))
+		
+	Do ..LandRepository.VerwijderViaID(1019)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Maak -&gt; altijd error raisen">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Landen zijn read-only")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.UnimplementedException",Substrings))
+	
+	Do ..LandRepository.Maak()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/common/Locatie/impl/LandRepository.cls.xml
===================================================================
diff -u
--- DOM/common/Locatie/impl/LandRepository.cls.xml	(revision 0)
+++ DOM/common/Locatie/impl/LandRepository.cls.xml	(revision 35616)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.Locatie.impl.LandRepository">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefViaID">
+<FormalSpec>LandID:%String</FormalSpec>
+<ReturnType>DOM.common.Land</ReturnType>
+<Implementation><![CDATA[
+	If ..BestaatViaID(LandID){
+		Quit ##class(DOM.common.impl.Land).%New(LandID)
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Geen land gevonden met id '"_LandID_"'"))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BestaatViaID">
+<FormalSpec>LandID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $data(^ISO(0,"ISO.LAND",LandID,0))
+]]></Implementation>
+</Method>
+
+<Method name="Bewaar">
+<FormalSpec>Land:DOM.common.Land</FormalSpec>
+<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Landen zijn read-only"))
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderViaID">
+<FormalSpec>LandID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Landen zijn read-only"))
+]]></Implementation>
+</Method>
+
+<Method name="Maak">
+<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Landen zijn read-only"))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>