From 69c98e9496bfcfdd3364ef7825e2639409fb1600 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sun, 27 Jun 1999 23:10:38 +0000 Subject: [PATCH] *** empty log message *** --- harbour/ChangeLog | 1 + harbour/tests/working/copyfile.prg | 9 +++++++++ harbour/tests/working/copyfrom.txt | 7 +++++++ 3 files changed, 17 insertions(+) create mode 100644 harbour/tests/working/copyfile.prg create mode 100644 harbour/tests/working/copyfrom.txt diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 0cce536b51..d4fcd90af2 100644 --- 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 diff --git a/harbour/tests/working/copyfile.prg b/harbour/tests/working/copyfile.prg new file mode 100644 index 0000000000..bbda6352e8 --- /dev/null +++ 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 diff --git a/harbour/tests/working/copyfrom.txt b/harbour/tests/working/copyfrom.txt new file mode 100644 index 0000000000..03ad7acd74 --- /dev/null +++ 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