From 10edf698d4d6d16a3cc5c56765aa99b51ec02980 Mon Sep 17 00:00:00 2001 From: Eddie Runia Date: Sat, 5 Jun 1999 23:44:07 +0000 Subject: [PATCH] 100 !!!!! and 101 !!!!! --- harbour/ChangeLog | 5 +++++ harbour/tests/working/hardcr.prg | 15 +++++++++++++++ harbour/tests/working/mtran.prg | 14 ++++++++++++++ 3 files changed, 34 insertions(+) create mode 100644 harbour/tests/working/hardcr.prg create mode 100644 harbour/tests/working/mtran.prg diff --git a/harbour/ChangeLog b/harbour/ChangeLog index b32489288d..bce12cbd59 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,8 @@ +19990606-00:30 CET Eddie Runia + * tests/working/hardcr.prg; tests/working/mtran.prg + Uploaded. Matching .C untested and missing for now. + Just wanted #100 & #101 in ! + 19990605-11:12 EST Les. Griffith * removed DIRECTORY() from files.c * added rtl\dir.c diff --git a/harbour/tests/working/hardcr.prg b/harbour/tests/working/hardcr.prg new file mode 100644 index 0000000000..593d615c6c --- /dev/null +++ b/harbour/tests/working/hardcr.prg @@ -0,0 +1,15 @@ +//NOTEST +// +// I haven't uploaded or tested the .Cs + +function main() + + OutStd( HardCR( "[HARBOUR]" + chr(141)+chr(10) + ; + "[POWER]" + chr(141)+chr(10) + ; + "[MAGIC]" ) ) + + OutStd( "[HARBOUR]" + chr(141)+chr(10) + ; + "[POWER]" + chr(141)+chr(10) + ; + "[MAGIC]" ) + +return nil diff --git a/harbour/tests/working/mtran.prg b/harbour/tests/working/mtran.prg new file mode 100644 index 0000000000..fe2700aaba --- /dev/null +++ b/harbour/tests/working/mtran.prg @@ -0,0 +1,14 @@ +//NOTEST +// +// Matching .C not uploaded +function main() + + OutStd( MemoTran( "[HARBOUR]" + chr(141)+chr(10) + ; + "[POWER]" + chr(13)+chr(10) + ; + "[MAGIC]" ) ) + + OutStd( "[HARBOUR]" + chr(141)+chr(10) + ; + "[POWER]" + chr(13)+chr(10) + ; + "[MAGIC]" ) + +return nil