From 9397c75d13e4e89cefa39a5628bd498fdd117313 Mon Sep 17 00:00:00 2001 From: Leslee Griffith Date: Sun, 30 May 1999 17:11:55 +0000 Subject: [PATCH] filexist.prg a test for hb_file() --- harbour/tests/working/filexist.prg | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 harbour/tests/working/filexist.prg diff --git a/harbour/tests/working/filexist.prg b/harbour/tests/working/filexist.prg new file mode 100644 index 0000000000..2c0c9414a2 --- /dev/null +++ b/harbour/tests/working/filexist.prg @@ -0,0 +1,16 @@ +// test of hb_file function +function main + +if hb_file("filexist.prg") == .t. + qout("file exist test works") +else + qout("file exist test fails") +endif + +if hb_file("filxxist.prg") == .f. + qout("file exist test works") +else + qout("file exist test fails") +endif + +return nil