Index: vhUnitTest/WSimpl/OBJT/MESService/RegistreerOlTag/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/OBJT/MESService/RegistreerOlTag/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/OBJT/MESService/RegistreerOlTag/Test.cls.xml	(revision 72708)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.OBJT.MESService.RegistreerOlTag.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: RegistreerOlTag met ongeldige werkpost">
+<Implementation><![CDATA[
+	Set RegisterOlTagRequest = ##class(WS.OBJT.MES.dto.RegisterOlTagRequest).%New()
+	Set RegisterOlTagRequest.OlTag = "DummyOlTag"
+	
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen geldige werkpost gevonden om OlTag '" _ RegisterOlTagRequest.OlTag _"' succesvol te registreren.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
+	
+	Set MESService = ##class(WSimpl.OBJT.MESService).%New()
+	#dim Response As WS.OBJT.MES.dto.RegisterOlTagResponse = MESService.RegistreerOlTag(RegisterOlTagRequest)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/OBJT/MESService/ValideerOlTag/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/OBJT/MESService/ValideerOlTag/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/OBJT/MESService/ValideerOlTag/Test.cls.xml	(revision 72708)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.OBJT.MESService.ValideerOlTag.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Geldige ValideerOlTag">
+<Implementation><![CDATA[
+	Set RegisterOlTagRequest = ##class(WS.OBJT.MES.dto.ValidateOlTagRequest).%New()
+	Set RegisterOlTagRequest.OlTag = "DummyOlTag"
+	
+	Set LadeRegistratieMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.impl.LadeRegistratieService).%New()
+	Do LadeRegistratieMock.VerwachtMethodCall("IsRegistratieCodeUniek", RegisterOlTagRequest.OlTag).DanReturn($$$True)	
+	
+	Set MESService = ##class(WSimpl.OBJT.MESService).%New(LadeRegistratieMock)
+	#dim Response As WS.OBJT.MES.dto.ValidateOlTagResponse = MESService.ValideerOlTag(RegisterOlTagRequest)
+	
+	Do $$$AssertEquals(Response.Result,"VALID")
+	
+	Do LadeRegistratieMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ongeldige ValideerOlTag">
+<Implementation><![CDATA[
+	Set RegisterOlTagRequest = ##class(WS.OBJT.MES.dto.ValidateOlTagRequest).%New()
+	Set RegisterOlTagRequest.OlTag = "DummyOlTag"
+	
+	Set LadeRegistratieMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.impl.LadeRegistratieService).%New()
+	Do LadeRegistratieMock.VerwachtMethodCall("IsRegistratieCodeUniek", RegisterOlTagRequest.OlTag).DanReturn($$$False)	
+	
+	Set MESService = ##class(WSimpl.OBJT.MESService).%New(LadeRegistratieMock)
+	#dim Response As WS.OBJT.MES.dto.ValidateOlTagResponse = MESService.ValideerOlTag(RegisterOlTagRequest)
+	
+	Do $$$AssertEquals(Response.Result,"INVALID")
+	
+	Do LadeRegistratieMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>