Index: vhUnitTest/TECH/Files.cls.xml
===================================================================
diff -u -r946 -r995
--- vhUnitTest/TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 946)
+++ vhUnitTest/TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 995)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-14 14:12:07">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-08 14:02:22">
 <Class name="vhUnitTest.TECH.Files">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62164,51205.100834</TimeChanged>
+<TimeChanged>62189,50549.371098</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="Tests">
@@ -14,8 +14,12 @@
 	do $$$AssertEquals(##class(TECH.Files).AppendFile("c:\test","\test.txt"),"c:\test\test.txt","")
 	do $$$AssertEquals(##class(TECH.Files).AppendFile("c:\test\","\test.txt"),"c:\test\test.txt","")
 	do $$$AssertEquals(##class(TECH.Files).AppendFile("c:\test","test.txt"),"c:\test\test.txt","")
+	do $$$AssertEquals(##class(TECH.Files).AppendFile("http://www.google.be","test.html"),"http://www.google.be/test.html")
+	do $$$AssertEquals(##class(TECH.Files).AppendFile("http://www.google.be","/test.html"),"http://www.google.be/test.html")
+	do $$$AssertEquals(##class(TECH.Files).AppendFile("http://www.google.be/","/test.html"),"http://www.google.be/test.html")
+	do $$$AssertEquals(##class(TECH.Files).AppendFile("http://www.google.be/","test.html"),"http://www.google.be/test.html")
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="4121895951"/>
+<Checksum value="2785676678"/>
 </Export>