Index: vhUnitTest/TECH/GlobalUtils.cls.xml =================================================================== diff -u -r1715 -r1942 --- vhUnitTest/TECH/GlobalUtils.cls.xml (.../GlobalUtils.cls.xml) (revision 1715) +++ vhUnitTest/TECH/GlobalUtils.cls.xml (.../GlobalUtils.cls.xml) (revision 1942) @@ -47,6 +47,7 @@ do ##class(%File).Delete(..Filename) do $$$AssertFalse(##class(%File).Exists(..Filename),"Bestand mag niet bestaan bij start") + /* do ..CreateGlobal() do $$$AssertEquals(..TimeStamp,..GetGlobalValue(),"Waarde vergelijking na creatie global") @@ -55,10 +56,8 @@ do ..DeleteGlobal() do $$$AssertTrue($$$Not($data(@..GlobalName)),"Global mag niet meer bestaan na delete") - - /* - - ;do ##class(TECH.GlobalUtils).ImportFromBlock(..Filename,$$$OVERWRITE) + + do ##class(TECH.GlobalUtils).ImportFromBlock(..Filename,$$$OVERWRITE) if $$$AssertTrue($data(@..GlobalName),"Global bestaat terug na import") { do $$$AssertEquals(..TimeStamp,..GetGlobalValue(),"Global bestaat terug na import") } @@ -69,11 +68,14 @@ do ..DeleteGlobal() do $$$AssertTrue($$$Not($data(@..GlobalName)),"Global deleted") - + + */ + + do ##class(%File).Delete(..Filename) do $$$AssertTrue($$$Not(##class(%File).Exists(..Filename)),"Bestand mag niet meer bestaan na testen") - */ + quit ]]> @@ -85,7 +87,7 @@ #define NOOVERWRITE 0 do ##class(%File).Delete(..Filename) - do $$$AssertTrue($$$Not(##class(%File).Exists(..Filename)),"Bestand mag niet bestaan bij start") + do $$$AssertFalse(##class(%File).Exists(..Filename),"Bestand mag niet bestaan bij start") do ..CreateGlobal() do $$$AssertEquals(..TimeStamp,..GetGlobalValue(),"Waarde vergelijking na creatie global")