Index: vhUnitTest/APPS/PM/Maatwerk/AfbeeldingCodeBepaler/RVG/Test.cls.xml
===================================================================
diff -u -r69314 -r69315
--- vhUnitTest/APPS/PM/Maatwerk/AfbeeldingCodeBepaler/RVG/Test.cls.xml	(.../Test.cls.xml)	(revision 69314)
+++ vhUnitTest/APPS/PM/Maatwerk/AfbeeldingCodeBepaler/RVG/Test.cls.xml	(.../Test.cls.xml)	(revision 69315)
@@ -26,8 +26,8 @@
 	Set RVGKenmerken.Toepassing = "Dummy"
 
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Afbeeldingcode voor RVG kan niet worden bepaald. Toepassing '" _ RVGKenmerken.Toepassing _"' is niet gekend.")
-	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.UnimplementedException", Substrings))
-	Do ..AssertAfbeeldingCode(RVGKenmerken, "UnoLinks")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.UnimplementedException", Substrings))
+	Do ..AfbeeldingCodeBepaler.Bepaal(RVGKenmerken)
 ]]></Implementation>
 </Method>
 </Class>