Index: vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestDaro.cls.xml
===================================================================
diff -u -r52129 -r60956
--- vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestDaro.cls.xml	(.../TestDaro.cls.xml)	(revision 52129)
+++ vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestDaro.cls.xml	(.../TestDaro.cls.xml)	(revision 60956)
@@ -29,8 +29,8 @@
 
 <Method name="TestBewaarKortingFoutieveInputLetters">
 <Implementation><![CDATA[
-	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan korting 'abc' niet parsen. (Personality: '10', Klant: 'DummyKlantId', 'DummyKlantNaam')")
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Korting werd niet in het correcte formaat meegegeven. Dit moet 1 numeriek veld zijn of in het formaat")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
 	
 	Do ..BewaarKorting("abc")
 ]]></Implementation>
Index: vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestVanRaemdonck.cls.xml
===================================================================
diff -u -r52129 -r60956
--- vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestVanRaemdonck.cls.xml	(.../TestVanRaemdonck.cls.xml)	(revision 52129)
+++ vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestVanRaemdonck.cls.xml	(.../TestVanRaemdonck.cls.xml)	(revision 60956)
@@ -27,8 +27,8 @@
 
 <Method name="TestBewaarKortingFoutieveInputLetters">
 <Implementation><![CDATA[
-	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan korting 'abc' niet parsen. (Personality: '8', Klant: 'DummyKlantId', 'DummyKlantNaam')")
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Korting werd niet in het correcte formaat meegegeven. Dit moet 1 numeriek veld zijn of in het formaat")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
 	
 	Do ..BewaarKorting("abc")
 ]]></Implementation>
Index: vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestKisch.cls.xml
===================================================================
diff -u -r52129 -r60956
--- vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestKisch.cls.xml	(.../TestKisch.cls.xml)	(revision 52129)
+++ vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestKisch.cls.xml	(.../TestKisch.cls.xml)	(revision 60956)
@@ -27,8 +27,8 @@
 
 <Method name="TestBewaarKortingFoutieveInputLetters">
 <Implementation><![CDATA[
-	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan korting 'abc' niet parsen. (Personality: '5', Klant: 'DummyKlantId', 'DummyKlantNaam')")
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Korting werd niet in het correcte formaat meegegeven. Dit moet 1 numeriek veld zijn of in het formaat")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
 	
 	Do ..BewaarKorting("abc")
 ]]></Implementation>