FishEye: Tag 39876 refers to a dead (removed) revision in file `vhUnitTest/vhPowerTools/TECH/cQSYSOpkuiser.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhPowerTools/TECH/cQSYSOpkuiser.cls.xml
===================================================================
diff -u -r38587 -r39876
--- vhPowerTools/TECH/cQSYSOpkuiser.cls.xml	(.../cQSYSOpkuiser.cls.xml)	(revision 38587)
+++ vhPowerTools/TECH/cQSYSOpkuiser.cls.xml	(.../cQSYSOpkuiser.cls.xml)	(revision 39876)
@@ -1,30 +1,34 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhPowerTools.TECH.cQSYSOpkuiser">
+<IncludeCode>vhLib.Macro</IncludeCode>
 <Super>%RegisteredObject</Super>
 
 <Method name="VerwijderNodesMetSubstringInRefOfWaarde">
 <Description>
 D ##class(vhPowerTools.TECH.cQSYSOpkuiser).%New().VerwijderNodesMetSubstringInRefOfWaarde("NBR")</Description>
 <FormalSpec>SubString:%String,EchtVerwijderen:%Boolean=0</FormalSpec>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	#Dim Verslag As %String = ""
 		Set SubString = ##class(TECH.StringUtils).ToUpper(SubString)
 		#Dim NodeReferentie As %String = $Query(^cQSYS)
   		For {
         	Quit:(NodeReferentie="")
 
         	#Dim BevatSubString = ( (##class(TECH.StringUtils).ToUpper(NodeReferentie)[SubString) || (##class(TECH.StringUtils).ToUpper(@NodeReferentie)[SubString) )
         	If BevatSubString {
-	        	Write !,NodeReferentie," == ", @NodeReferentie
+	        	Set Verslag = Verslag _ $$$CRLF _ NodeReferentie _ " == " _ @NodeReferentie
         		If EchtVerwijderen {
 	        		Kill @NodeReferentie
-	        		Write "  VERWIJDERD."
+	        		Set Verslag = Verslag _ "  VERWIJDERD."
         		}
         	}
         	
     		Set NodeReferentie = $Query(@NodeReferentie) 
   		}
-  		Write !,"Klaar."
+  		
+  		Quit Verslag
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/vhPowerTools/TECH/cQSYSOpkuiserTest.cls.xml
===================================================================
diff -u
--- vhUnitTest/vhPowerTools/TECH/cQSYSOpkuiserTest.cls.xml	(revision 0)
+++ vhUnitTest/vhPowerTools/TECH/cQSYSOpkuiserTest.cls.xml	(revision 39876)
@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.vhPowerTools.TECH.cQSYSOpkuiserTest">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Kill ^cQSYS("cQSYSOpkuiser")
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Kill ^cQSYS("cQSYSOpkuiser")
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="Test VerwijderNodesMetSubstringInRefOfWaarde verwijdert geen mismatches.">
+<Implementation><![CDATA[
+	Set ^cQSYS("cQSYSOpkuiser","1") = "xIetsAndersy"
+	#Dim Verslag as %String = ##class(vhPowerTools.TECH.cQSYSOpkuiser).%New().VerwijderNodesMetSubstringInRefOfWaarde("SubString",1)
+	Do $$$AssertTrue($Data(^cQSYS("cQSYSOpkuiser","1")))
+	Do $$$AssertEquals(Verslag, "")
+]]></Implementation>
+</Method>
+
+<Method name="Test VerwijderNodesMetSubstringInRefOfWaarde verwijdert exacte matches in node waarde">
+<Implementation><![CDATA[
+	Set ^cQSYS("cQSYSOpkuiser","1") = "xSubStringy"
+	#Dim Verslag as %String = ##class(vhPowerTools.TECH.cQSYSOpkuiser).%New().VerwijderNodesMetSubstringInRefOfWaarde("SubString",1)
+	Do $$$AssertFalse($Data(^cQSYS("cQSYSOpkuiser","1")))
+	Do $$$AssertEquals(Verslag, $$$CRLF _ "^cQSYS(""cQSYSOpkuiser"",1) == xSubStringy  VERWIJDERD.")
+]]></Implementation>
+</Method>
+
+<Method name="Test VerwijderNodesMetSubstringInRefOfWaarde verwijdert exacte matches in node ref">
+<Implementation><![CDATA[
+	Set ^cQSYS("cQSYSOpkuiser","xSubStringy") = "abc"
+	#Dim Verslag as %String = ##class(vhPowerTools.TECH.cQSYSOpkuiser).%New().VerwijderNodesMetSubstringInRefOfWaarde("SubString",1)
+	Do $$$AssertFalse($Data(^cQSYS("cQSYSOpkuiser","xSubStringy")))
+	Do $$$AssertEquals(Verslag, $$$CRLF _ "^cQSYS(""cQSYSOpkuiser"",""xSubStringy"") == abc  VERWIJDERD.")
+]]></Implementation>
+</Method>
+
+<Method name="Test VerwijderNodesMetSubstringInRefOfWaarde verwijdert anders gecasete matches in node waarde">
+<Implementation><![CDATA[
+	Set ^cQSYS("cQSYSOpkuiser","1") = "xSubStringy"
+	#Dim Verslag as %String = ##class(vhPowerTools.TECH.cQSYSOpkuiser).%New().VerwijderNodesMetSubstringInRefOfWaarde("sUBsTRING",1)
+	Do $$$AssertFalse($Data(^cQSYS("cQSYSOpkuiser","1")))
+	Do $$$AssertEquals(Verslag, $$$CRLF _ "^cQSYS(""cQSYSOpkuiser"",1) == xSubStringy  VERWIJDERD.")
+]]></Implementation>
+</Method>
+
+<Method name="Test VerwijderNodesMetSubstringInRefOfWaarde verwijdert anders gecasete matches in node ref">
+<Implementation><![CDATA[
+	Set ^cQSYS("cQSYSOpkuiser","xSubStringy") = "abc"
+	#Dim Verslag as %String = ##class(vhPowerTools.TECH.cQSYSOpkuiser).%New().VerwijderNodesMetSubstringInRefOfWaarde("sUBsTRING",1)
+	Do $$$AssertFalse($Data(^cQSYS("cQSYSOpkuiser","xSubStringy")))
+	Do $$$AssertEquals(Verslag, $$$CRLF _ "^cQSYS(""cQSYSOpkuiser"",""xSubStringy"") == abc  VERWIJDERD.")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>