Index: vhUnitTest/TECH/XMLCorrelator/GeefObjectVanBestand/Test.cls.xml =================================================================== diff -u -r3180 -r3190 --- vhUnitTest/TECH/XMLCorrelator/GeefObjectVanBestand/Test.cls.xml (.../Test.cls.xml) (revision 3180) +++ vhUnitTest/TECH/XMLCorrelator/GeefObjectVanBestand/Test.cls.xml (.../Test.cls.xml) (revision 3190) @@ -8,7 +8,7 @@ Set correlator = ##class(TECH.XMLCorrelater).%New() #dim classname as %String = ##class(vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsNul).%ClassName(1) #Dim result as vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsNul - Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"Input.xml"),classname,"XMLIgnoreNullIsNul") + Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(""),"Input.xml"),classname,"XMLIgnoreNullTest") Do $$$AssertEquals(result.LegeProperty,$char(0)) Do $$$AssertEquals(result.PropertyNietInXML,"") @@ -21,7 +21,7 @@ Set correlator = ##class(TECH.XMLCorrelater).%New() #dim classname as %String = ##class(vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsEen).%ClassName(1) #Dim result as vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsEen - Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"Input.xml"),classname,"XMLIgnoreNullIsEen") + Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(""),"Input.xml"),classname,"XMLIgnoreNullTest") Do $$$AssertEquals(result.LegeProperty,"") Do $$$AssertEquals(result.PropertyNietInXML,"") @@ -34,7 +34,7 @@ Set correlator = ##class(TECH.XMLCorrelater).%New() #dim classname as %String = ##class(vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsRUNTIME).%ClassName(1) #Dim result as vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsRUNTIME - Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"Input.xml"),classname,"XMLIgnoreNullIsRUNTIME") + Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(""),"Input.xml"),classname,"XMLIgnoreNullTest") Do $$$AssertEquals(result.LegeProperty,$char(0)) Do $$$AssertEquals(result.PropertyNietInXML,"") @@ -47,7 +47,7 @@ Set correlator = ##class(TECH.XMLCorrelater).%New() #dim classname as %String = ##class(vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsNul).%ClassName(1) #Dim result as vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsNul - Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"Input.xml"),classname,"XMLIgnoreNullIsNul",0) + Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(""),"Input.xml"),classname,"XMLIgnoreNullTest",0) Do $$$AssertEquals(result.LegeProperty,$char(0)) Do $$$AssertEquals(result.PropertyNietInXML,"") @@ -60,7 +60,7 @@ Set correlator = ##class(TECH.XMLCorrelater).%New() #dim classname as %String = ##class(vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsNul).%ClassName(1) #Dim result as vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsNul - Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"Input.xml"),classname,"XMLIgnoreNullIsNul",1) + Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(""),"Input.xml"),classname,"XMLIgnoreNullTest",1) Do $$$AssertEquals(result.LegeProperty,$char(0)) Do $$$AssertEquals(result.PropertyNietInXML,"") @@ -73,7 +73,7 @@ Set correlator = ##class(TECH.XMLCorrelater).%New() #dim classname as %String = ##class(vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsEen).%ClassName(1) #Dim result as vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsEen - Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"Input.xml"),classname,"XMLIgnoreNullIsEen", 0) + Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(""),"Input.xml"),classname,"XMLIgnoreNullTest",0) Do $$$AssertEquals(result.LegeProperty,"") Do $$$AssertEquals(result.PropertyNietInXML,"") @@ -86,7 +86,7 @@ Set correlator = ##class(TECH.XMLCorrelater).%New() #dim classname as %String = ##class(vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsEen).%ClassName(1) #Dim result as vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsEen - Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"Input.xml"),classname,"XMLIgnoreNullIsEen", 1) + Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(""),"Input.xml"),classname,"XMLIgnoreNullTest",1) Do $$$AssertEquals(result.LegeProperty,"") Do $$$AssertEquals(result.PropertyNietInXML,"") @@ -99,7 +99,7 @@ Set correlator = ##class(TECH.XMLCorrelater).%New() #dim classname as %String = ##class(vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsRUNTIME).%ClassName(1) #Dim result as vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsRUNTIME - Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"Input.xml"),classname,"XMLIgnoreNullIsRUNTIME",0) + Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(""),"Input.xml"),classname,"XMLIgnoreNullTest",0) Do $$$AssertEquals(result.LegeProperty,$char(0)) Do $$$AssertEquals(result.PropertyNietInXML,"") @@ -112,7 +112,7 @@ Set correlator = ##class(TECH.XMLCorrelater).%New() #dim classname as %String = ##class(vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsRUNTIME).%ClassName(1) #Dim result as vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsRUNTIME - Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"Input.xml"),classname,"XMLIgnoreNullIsRUNTIME",1) + Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(""),"Input.xml"),classname,"XMLIgnoreNullTest",1) Do $$$AssertEquals(result.LegeProperty,"") Do $$$AssertEquals(result.PropertyNietInXML,"")