Index: vhUnitTest/BL/Legacy/PRBS/IsAntislipMat/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/BL/Legacy/PRBS/IsAntislipMat/Test.cls.xml	(revision 0)
+++ vhUnitTest/BL/Legacy/PRBS/IsAntislipMat/Test.cls.xml	(revision 70338)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.BL.Legacy.PRBS.IsAntislipMat.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Matten met korttekst startende met OL A en die een antislipmat zijn, geven true">
+<Implementation><![CDATA[
+	#dim KorttekstGeldigeAntislipmatTBX = "OL.AR11111XXXXX XX  XX"
+	#dim KorttekstGeldigeAntislipmatLBX = "OL.AB11111XXXXX XX  XX"
+
+	#dim ResultaatTBX As %Boolean = ##class(BL.Legacy.PRBS).IsAntiSlipMat(KorttekstGeldigeAntislipmatTBX)
+	#dim ResultaatLBX As %Boolean = ##class(BL.Legacy.PRBS).IsAntiSlipMat(KorttekstGeldigeAntislipmatLBX)
+
+	Do $$$AssertTrue(ResultaatTBX)
+	Do $$$AssertTrue(ResultaatLBX)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Matten met korttekst startende met OL A en die geen antislipmat zijn, geven false">
+<Implementation><![CDATA[
+	#dim KorttekstGeldigeAntislipmatTBX = "OL.AX11111XXXXX XX  XX"
+	#dim KorttekstGeldigeAntislipmatLBX = "OL.AA11111XXXXX XX  XX"
+
+	#dim ResultaatTBX As %Boolean = ##class(BL.Legacy.PRBS).IsAntiSlipMat(KorttekstGeldigeAntislipmatTBX)
+	#dim ResultaatLBX As %Boolean = ##class(BL.Legacy.PRBS).IsAntiSlipMat(KorttekstGeldigeAntislipmatLBX)
+
+	Do $$$AssertFalse(ResultaatTBX)
+	Do $$$AssertFalse(ResultaatLBX)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Flock matten met korttekst startende met OL M, met &apos;FLOCK&apos; in de naam geven true">
+<Implementation><![CDATA[
+	#dim KorttekstGeldigeFlockAntislipmatA = "OL.MA11111FLOCK XX  XX"
+	#dim KorttekstGeldigeFlockAntislipmatB = "OL.MC11111flock XX  XX"
+
+	#dim ResultaatA As %Boolean = ##class(BL.Legacy.PRBS).IsAntiSlipMat(KorttekstGeldigeFlockAntislipmatA)
+	#dim ResultaatB As %Boolean = ##class(BL.Legacy.PRBS).IsAntiSlipMat(KorttekstGeldigeFlockAntislipmatB)
+
+	Do $$$AssertTrue(ResultaatA)
+	Do $$$AssertTrue(ResultaatB)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Flock matten met korttekst startende met OL M zonder &apos;Flock&apos; in de naam, geven false">
+<Implementation><![CDATA[
+	#dim KorttekstGeldigeFlockAntislipmat = "OL.MC11111 CUBIMAX  XX"
+
+	#dim Resultaat As %Boolean = ##class(BL.Legacy.PRBS).IsAntiSlipMat(KorttekstGeldigeFlockAntislipmat)
+
+	Do $$$AssertFalse(Resultaat)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>