Index: vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestDaro.cls.xml
===================================================================
diff -u -r51212 -r52119
--- vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestDaro.cls.xml	(.../TestDaro.cls.xml)	(revision 51212)
+++ vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestDaro.cls.xml	(.../TestDaro.cls.xml)	(revision 52119)
@@ -41,7 +41,7 @@
 	#dim Ref As %String = ..GeefRef()
 	#dim DataOpt As %String = "KalUi6_NX85Ce0bQpd86acoUF5LKw2rq/pra5kQe/UXZ7D1qqeEFh/10jmc6cY_Me7H4lqlB38GInju6WYg0gd6IVpyYhhI85KbU2ZA249c-" // korting = "abc"
 	
-	Do ..AssertBewaarCorrecteKorting(Ref, DataOpt, "abc")
+	Do ..BewaarKorting(Ref, DataOpt)
 ]]></Implementation>
 </Method>
 
@@ -53,7 +53,7 @@
 	#dim Ref As %String = ..GeefRef()
 	#dim DataOpt As %String = "KalUi6_NX85Ce0bQpd86acoUF5LKw2rq/pra5kQe/UXZ7D1qqeEFh/10jmc6cY_M4LGcaJjU7qxuv606OyXSpd6IVpyYhhI85KbU2ZA249c-" // korting = 0.3 (ipv 30)
 	
-	Do ..AssertBewaarCorrecteKorting(Ref, DataOpt, 0.3)
+	Do ..BewaarKorting(Ref, DataOpt)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestBase.cls.xml
===================================================================
diff -u -r51212 -r52119
--- vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 51212)
+++ vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 52119)
@@ -9,6 +9,14 @@
 <Private>1</Private>
 </Property>
 
+<Method name="BewaarKorting">
+<FormalSpec>Ref:%String,DataOpt:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim KortingBewaarder As WSimpl.Unishop.Login.KortingBewaarder = ##class(WSimpl.Unishop.Login.KortingBewaarder).%New()
+	Do KortingBewaarder.BewaarMeegegevenKorting(Ref, DataOpt)
+]]></Implementation>
+</Method>
+
 <Method name="AssertBewaarCorrecteKorting">
 <FormalSpec>Ref:%String,DataOpt:%String,VerwachteKorting:TECH.Percentage</FormalSpec>
 <Implementation><![CDATA[
Index: vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestKisch.cls.xml
===================================================================
diff -u -r51212 -r52119
--- vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestKisch.cls.xml	(.../TestKisch.cls.xml)	(revision 51212)
+++ vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestKisch.cls.xml	(.../TestKisch.cls.xml)	(revision 52119)
@@ -41,7 +41,7 @@
 	#dim Ref As %String = ..GeefRef()
 	#dim DataOpt As %String = "sKOZimpVGYLJJX7pQ9GLwBCgzUYk0qbMVd1d7bEQH5ydPC0zSPV5hx8ILiB2pqapfqoNpY_AGr8LkU_zUxQJTvRVOJHlzs4EWa_qt8tfNjQ-" // korting = "abc"
 	
-	Do ..AssertBewaarCorrecteKorting(Ref, DataOpt, "abc")
+	Do ..BewaarKorting(Ref, DataOpt)
 ]]></Implementation>
 </Method>
 
@@ -53,7 +53,7 @@
 	#dim Ref As %String = ..GeefRef()
 	#dim DataOpt As %String = "sKOZimpVGYLJJX7pQ9GLwBCgzUYk0qbMVd1d7bEQH5ydPC0zSPV5hx8ILiB2pqap5nR8nAB4p4Gt8HkOKZyl//RVOJHlzs4EWa_qt8tfNjQ-" // korting = 0.3 (ipv 30)
 	
-	Do ..AssertBewaarCorrecteKorting(Ref, DataOpt, 0.3)
+	Do ..BewaarKorting(Ref, DataOpt)
 ]]></Implementation>
 </Method>
 </Class>