filexist.prg a test for hb_file()

1999-05-30 17:11:55 +00:00
parent 5b27a88cfc
commit 9397c75d13
1 changed files with 16 additions and 0 deletions
--- a/harbour/tests/working/filexist.prg
+++ 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