*** empty log message ***

1999-06-27 23:10:38 +00:00
parent 40660c95ae
commit 69c98e9496
3 changed files with 17 additions and 0 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -2,6 +2,7 @@
 * source/compiler/harbour.l
   ! Fixed line number bug. (LINE opcode, PROCLINE(), error messages)
 * tests/working/procline.prg
+   tests/working/copyfile.prg
   + Added.

 19990627-16:30 CET Victor Szel <info@szelvesz.hu>
--- a/harbour/tests/working/copyfile.prg
+++ b/harbour/tests/working/copyfile.prg
@@ -0,0 +1,9 @@
+
+FUNCTION Main()
+
+// ? "1", __copyfile("COPYFROM.FIL")
+? "2", __copyfile("COPYFROM.FIL", "COPYTO.FIL")
+? "3", __copyfile("C.PRG", "B.PRG")
+? "4", __copyfile("COPYFROM.FIL", "..")
+
+RETURN NIL
--- a/harbour/tests/working/copyfrom.txt
+++ b/harbour/tests/working/copyfrom.txt
@@ -0,0 +1,7 @@
+; Test file for COPYFILE.PRG
+; Don't delete
+
+dslkfjgs;ldfg
+dsfg;lkdsflgksd
+gsdfl;gkjdsfg
+df;lkgjsdfg