Index: vhUnitTest/BL/EC/WebShop/TestGetUnishopURL.cls.xml
===================================================================
diff -u -r43217 -r43219
--- vhUnitTest/BL/EC/WebShop/TestGetUnishopURL.cls.xml	(.../TestGetUnishopURL.cls.xml)	(revision 43217)
+++ vhUnitTest/BL/EC/WebShop/TestGetUnishopURL.cls.xml	(.../TestGetUnishopURL.cls.xml)	(revision 43219)
@@ -23,12 +23,14 @@
 	Do $$$AssertContains(URL,"http://legrabox.vanhoecke.be/login?Taal=N&REF=")
 	Do $$$AssertContains(URL,"&DATAOPT")
 	
-	#dim OpgebouwdeRef As %String = $Piece($Piece(URL,"/login?Taal=N&REF=",2),"&DATAOPT",1)
-	#dim OpgebouwdeRSD As APPS.EC.dto.RefSessieData = ##class(APPS.EC.impl.RefSessieDataBepaler).%New().GeefRefSessieData(OpgebouwdeRef)
-	Do $$$AssertEquals(OpgebouwdeRSD.KlantID,..KlantID)
-	Do $$$AssertEquals(OpgebouwdeRSD.Verwerker, ##class(APPS.EC.enu.UniShopVerwerker).VHEPN())
-	Do $$$AssertEquals(OpgebouwdeRSD.WebshopModus,##class(APPS.EC.enu.WebshopModus).Vrijgave())
-	Do $$$AssertEquals(OpgebouwdeRSD.OfferteID,"DummyOfferte")
+	#dim OpgebouwdeRef As %String = $$$TextBetween(URL,"/login?Taal=N&REF=","&DATAOPT")
+	If $$$AssertTrue($$$HasLength(OpgebouwdeRef),"Analyse RefSessieData is enkel zinvol als OpgebouwdeRef niet leeg.") {
+		#dim OpgebouwdeRSD As APPS.EC.dto.RefSessieData = ##class(APPS.EC.impl.RefSessieDataBepaler).%New().GeefRefSessieData(OpgebouwdeRef)
+		Do $$$AssertEquals(OpgebouwdeRSD.KlantID,..KlantID)
+		Do $$$AssertEquals(OpgebouwdeRSD.Verwerker, ##class(APPS.EC.enu.UniShopVerwerker).VHEPN())
+		Do $$$AssertEquals(OpgebouwdeRSD.WebshopModus,##class(APPS.EC.enu.WebshopModus).Vrijgave())
+		Do $$$AssertEquals(OpgebouwdeRSD.OfferteID,"DummyOfferte")
+	}
 ]]></Implementation>
 </Method>
 </Class>