Index: vhUnitTest/WSdata/Vhisie4/Winkelkar/KlantenBepaler/Test.cls.xml
===================================================================
diff -u -r41981 -r41982
--- vhUnitTest/WSdata/Vhisie4/Winkelkar/KlantenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 41981)
+++ vhUnitTest/WSdata/Vhisie4/Winkelkar/KlantenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 41982)
@@ -16,6 +16,42 @@
 	Do ExportStatusRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Klant zonder gemigreerde winkelkarren is geen vhisie4 klant">
+<Implementation><![CDATA[
+	Set ExportStatusRepositoryMock = ##class(vhTest.Mock.WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusRepository).%New()
+	Do ExportStatusRepositoryMock.IndienMethodCall("BestaatViaVanhoeckeId", $$$ElkeWaarde).DanReturn($$$False)
+	
+	Set KlantBepaler = ##class(WSdata.Vhisie4.Winkelkar.KlantenBepaler).%New(ExportStatusRepositoryMock)
+	#dim IsVhisie4Klant As %Boolean = KlantBepaler.IsVhisie4Klant("DummyPartijID")
+	
+	Do $$$AssertFalse(IsVhisie4Klant)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Klant zonder gemigreerde winkelkarren en aangeduid als vhisie4Klant is een vhisie4 klant">
+<Implementation><![CDATA[
+	Set ExportStatusRepositoryMock = ##class(vhTest.Mock.WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusRepository).%New()
+	Do ExportStatusRepositoryMock.IndienMethodCall("BestaatViaVanhoeckeId", $$$ElkeWaarde).DanReturn($$$False)
+	
+	Set KlantBepaler = ##class(WSdata.Vhisie4.Winkelkar.KlantenBepaler).%New(ExportStatusRepositoryMock)
+	#dim IsVhisie4Klant As %Boolean = KlantBepaler.IsVhisie4Klant("K||6820")
+	
+	Do $$$AssertTrue(IsVhisie4Klant)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Klant met gemigreerde winkelkarren en aangeduid als vhisie4Klant is een vhisie4 klant">
+<Implementation><![CDATA[
+	Set ExportStatusRepositoryMock = ##class(vhTest.Mock.WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusRepository).%New()
+	Do ExportStatusRepositoryMock.IndienMethodCall("BestaatViaVanhoeckeId", $$$ElkeWaarde).DanReturn($$$True)
+	
+	Set KlantBepaler = ##class(WSdata.Vhisie4.Winkelkar.KlantenBepaler).%New(ExportStatusRepositoryMock)
+	#dim IsVhisie4Klant As %Boolean = KlantBepaler.IsVhisie4Klant("K||6820")
+	
+	Do $$$AssertTrue(IsVhisie4Klant)
+]]></Implementation>
+</Method>
 </Class>