From 631a1240a0ea59aab316c180d96be2d224bab52a Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Wed, 7 Nov 2012 11:59:18 +0000 Subject: [PATCH] 2012-11-07 12:52 UTC+0100 Viktor Szakats (harbour syenar.net) * contrib/hbct/tests/*.prg ! applied casing to commented function names --- harbour/ChangeLog | 4 + harbour/contrib/hbct/tests/addascii.prg | 38 +++---- harbour/contrib/hbct/tests/afteratn.prg | 34 +++--- harbour/contrib/hbct/tests/asciisum.prg | 12 +-- harbour/contrib/hbct/tests/ascpos.prg | 12 +-- harbour/contrib/hbct/tests/atadjust.prg | 14 +-- harbour/contrib/hbct/tests/atnum.prg | 34 +++--- harbour/contrib/hbct/tests/atrepl.prg | 16 +-- harbour/contrib/hbct/tests/attoken.prg | 14 +-- harbour/contrib/hbct/tests/beforatn.prg | 34 +++--- harbour/contrib/hbct/tests/charadd.prg | 14 +-- harbour/contrib/hbct/tests/charand.prg | 10 +- harbour/contrib/hbct/tests/chareven.prg | 12 +-- harbour/contrib/hbct/tests/charhist.prg | 10 +- harbour/contrib/hbct/tests/charlist.prg | 10 +- harbour/contrib/hbct/tests/charmirr.prg | 12 +-- harbour/contrib/hbct/tests/charmix.prg | 16 +-- harbour/contrib/hbct/tests/charnlst.prg | 10 +- harbour/contrib/hbct/tests/charnot.prg | 12 +-- harbour/contrib/hbct/tests/charodd.prg | 10 +- harbour/contrib/hbct/tests/charone.prg | 16 +-- harbour/contrib/hbct/tests/charonly.prg | 10 +- harbour/contrib/hbct/tests/charor.prg | 10 +- harbour/contrib/hbct/tests/charrem.prg | 10 +- harbour/contrib/hbct/tests/charrepl.prg | 16 +-- harbour/contrib/hbct/tests/charrll.prg | 14 +-- harbour/contrib/hbct/tests/charrlr.prg | 14 +-- harbour/contrib/hbct/tests/charshl.prg | 16 +-- harbour/contrib/hbct/tests/charshr.prg | 14 +-- harbour/contrib/hbct/tests/charslst.prg | 10 +- harbour/contrib/hbct/tests/charsort.prg | 20 ++-- harbour/contrib/hbct/tests/charsub.prg | 14 +-- harbour/contrib/hbct/tests/charswap.prg | 10 +- harbour/contrib/hbct/tests/charxor.prg | 8 +- harbour/contrib/hbct/tests/csetarge.prg | 36 +++---- harbour/contrib/hbct/tests/csetatmu.prg | 6 +- harbour/contrib/hbct/tests/csetref.prg | 6 +- harbour/contrib/hbct/tests/datetime.prg | 132 ++++++++++++------------ harbour/contrib/hbct/tests/expomant.prg | 8 +- harbour/contrib/hbct/tests/finan.prg | 6 +- harbour/contrib/hbct/tests/math.prg | 44 ++++---- harbour/contrib/hbct/tests/num1.prg | 18 ++-- harbour/contrib/hbct/tests/numtoken.prg | 12 +-- harbour/contrib/hbct/tests/rangerem.prg | 6 +- harbour/contrib/hbct/tests/rangerep.prg | 6 +- harbour/contrib/hbct/tests/setatlik.prg | 8 +- harbour/contrib/hbct/tests/strdiff.prg | 18 ++-- harbour/contrib/hbct/tests/tab.prg | 42 ++++---- harbour/contrib/hbct/tests/token.prg | 14 +-- harbour/contrib/hbct/tests/token2.prg | 94 ++++++++--------- harbour/contrib/hbct/tests/tokenlow.prg | 18 ++-- harbour/contrib/hbct/tests/tokensep.prg | 6 +- harbour/contrib/hbct/tests/tokenupp.prg | 18 ++-- harbour/contrib/hbct/tests/trig.prg | 84 +++++++-------- harbour/contrib/hbct/tests/valpos.prg | 14 +-- harbour/contrib/hbct/tests/wordone.prg | 12 +-- harbour/contrib/hbct/tests/wordonly.prg | 10 +- harbour/contrib/hbct/tests/wordrem.prg | 10 +- harbour/contrib/hbct/tests/wordrepl.prg | 18 ++-- harbour/contrib/hbct/tests/wordswap.prg | 10 +- 60 files changed, 585 insertions(+), 581 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 0f2c55bd0a..7392d5d961 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,10 @@ The license applies to all entries newer than 2009-04-28. */ +2012-11-07 12:52 UTC+0100 Viktor Szakats (harbour syenar.net) + * contrib/hbct/tests/*.prg + ! applied casing to commented function names + 2012-11-07 12:29 UTC+0100 Viktor Szakats (harbour syenar.net) * contrib/hbformat/hbfuncs.prg * utils/hbmk2/hbmk2.prg diff --git a/harbour/contrib/hbct/tests/addascii.prg b/harbour/contrib/hbct/tests/addascii.prg index c49e4feeab..69f67a145b 100644 --- a/harbour/contrib/hbct/tests/addascii.prg +++ b/harbour/contrib/hbct/tests/addascii.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function ADDASCII() + * Test CT3 function AddAscii() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -58,7 +58,7 @@ PROCEDURE Main() ctinit() - ? "Begin test of ADDASCII()" + ? "Begin test of AddAscii()" ? // simple tests ? "Simple tests:" @@ -67,38 +67,38 @@ PROCEDURE Main() ? ' This should be "BAAA": ' + AddAscii( "AAAA", -255, 1 ) ? ' This should be "AAAB": ' + AddAscii( "AAAA", -255 ) - // csetref() tests + // CSetRef() tests ? ? "CSETREF tests:" ? " current csetref setting(should be .F.)................: ", CSetRef() - ? " return value of addascii([A],1,1) call(should be 'B'): ", AddAscii( "A", 1, 1 ) + ? " return value of AddAscii([A],1,1) call(should be 'B'): ", AddAscii( "A", 1, 1 ) ? " value of cStr..........................................: ", cStr - ? " return value of addascii(cStr,1,1) call...............: ", AddAscii( cStr, 1, 1 ) + ? " return value of AddAscii(cStr,1,1) call...............: ", AddAscii( cStr, 1, 1 ) ? " value of cStr is now...................................: ", cStr - ? " return value of addascii(@cStr,1,1) call..............: ", AddAscii( @cStr, 1, 1 ) + ? " return value of AddAscii(@cStr,1,1) call..............: ", AddAscii( @cStr, 1, 1 ) ? " value of cStr is now...................................: ", cStr - ? " return value of addascii(@cStr,-1,1) call.............: ", AddAscii( @cStr, -1, 1 ) + ? " return value of AddAscii(@cStr,-1,1) call.............: ", AddAscii( @cStr, -1, 1 ) ? " value of cStr is now...................................: ", cStr - ? " return value of csetref(.T.)..........................: ", CSetRef( .T. ) - ? " return value of addascii([A],1,1) call................: ", AddAscii( "A", 1, 1 ) - ? " return value of addascii(cStr,1,1) call...............: ", AddAscii( cStr, 1, 1 ) + ? " return value of CSetRef(.T.)..........................: ", CSetRef( .T. ) + ? " return value of AddAscii([A],1,1) call................: ", AddAscii( "A", 1, 1 ) + ? " return value of AddAscii(cStr,1,1) call...............: ", AddAscii( cStr, 1, 1 ) ? " value of cStr is now...................................: ", cStr - ? " return value of addascii(@cStr,1,1) call..............: ", AddAscii( @cStr, 1, 1 ) + ? " return value of AddAscii(@cStr,1,1) call..............: ", AddAscii( @cStr, 1, 1 ) ? " value of cStr is now...................................: ", cStr - ? " return value of addascii(@cStr,-1,1) call.............: ", AddAscii( @cStr, -1, 1 ) + ? " return value of AddAscii(@cStr,-1,1) call.............: ", AddAscii( @cStr, -1, 1 ) ? " value of cStr is now...................................: ", cStr - ? " return value of csetref(.F.)..........................: ", CSetRef( .F. ) + ? " return value of CSetRef(.F.)..........................: ", CSetRef( .F. ) // tests for the new 4th parameter ? ? "Carryover tests(new 4th parameter):" - ? " return value of addascii([AAAA],1,2,.T.) call('ABAA')....:", AddAscii( "AAAA", 1, 2, .T. ) - ? " return value of addascii([AAAA],257,2,.T.) call('BBAA')..:", AddAscii( "AAAA", 257, 2, .T. ) - ? " return value of addascii([AAAA],257,2,.F.) call('ABAA')..:", AddAscii( "AAAA", 257, 2, .F. ) - ? " return value of addascii([AAAA],258,,.T.) call('AABC')...:", AddAscii( "AAAA", 258,, .T. ) - ? " return value of addascii([ABBA],-257,3,.T.) call('AAAA').:", AddAscii( "ABBA", -257, 3, .T. ) + ? " return value of AddAscii([AAAA],1,2,.T.) call('ABAA')....:", AddAscii( "AAAA", 1, 2, .T. ) + ? " return value of AddAscii([AAAA],257,2,.T.) call('BBAA')..:", AddAscii( "AAAA", 257, 2, .T. ) + ? " return value of AddAscii([AAAA],257,2,.F.) call('ABAA')..:", AddAscii( "AAAA", 257, 2, .F. ) + ? " return value of AddAscii([AAAA],258,,.T.) call('AABC')...:", AddAscii( "AAAA", 258,, .T. ) + ? " return value of AddAscii([ABBA],-257,3,.T.) call('AAAA').:", AddAscii( "ABBA", -257, 3, .T. ) - ? "End test of ADDASCII()" + ? "End test of AddAscii()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/afteratn.prg b/harbour/contrib/hbct/tests/afteratn.prg index 1ae905a435..2cea270cfb 100644 --- a/harbour/contrib/hbct/tests/afteratn.prg +++ b/harbour/contrib/hbct/tests/afteratn.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 functions AFTERATNUM() + * Test CT3 functions AfterAtNum() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -62,48 +62,48 @@ PROCEDURE Main() ctinit() - ? "Begin test of AFTERATNUM()" + ? "Begin test of AfterAtNum()" ? ? " Value of cStr is:" + Chr( 34 ) + cStr + Chr( 34 ) ? // Some simple tests ? " Simple tests:" - ? ' afteratnum("..",cStr) should be "test!",' + ? ' AfterAtNum("..",cStr) should be "test!",' ? ' and is "' + AfterAtNum( "..", cStr ) + '"' - ? ' afteratnum("..",cStr,2) should be ".is...a...test!",' + ? ' AfterAtNum("..",cStr,2) should be ".is...a...test!",' ? ' and is "' + AfterAtNum( "..", cStr, 2 ) + '"' - ? ' afteratnum("..",cStr,2,2) should be ".a...test!",' + ? ' AfterAtNum("..",cStr,2,2) should be ".a...test!",' ? ' and is "' + AfterAtNum( "..", cStr, 2, 2 ) + '"' ? - // Tests with CSetAtMuPa(.T.) + // Tests with CSetAtMupa(.T.) ? " Multi-Pass tests" - ? " Setting csetatmupa() to .T." + ? " Setting CSetAtMupa() to .T." CSetAtMupa( .T. ) - ? ' afteratnum("..",cStr) should be "test!",' + ? ' AfterAtNum("..",cStr) should be "test!",' ? ' and is "' + AfterAtNum( "..", cStr ) + '"' - ? ' afteratnum("..",cStr,2) should be "This...is...a...test!",' + ? ' AfterAtNum("..",cStr,2) should be "This...is...a...test!",' ? ' and is "' + AfterAtNum( "..", cStr, 2 ) + '"' - ? ' afteratnum("..",cStr,2,2) should be "is...a...test!",' + ? ' AfterAtNum("..",cStr,2,2) should be "is...a...test!",' ? ' and is "' + AfterAtNum( "..", cStr, 2, 2 ) + '"' - ? " Setting csetatmupa() to .F." + ? " Setting CSetAtMupa() to .F." CSetAtMupa( .F. ) ? - // Tests mit SetAtlike(1) + // Tests mit SetAtLike(1) ? " SetAtLike tests" - ? ' Setting setatlike(CT_SETATLIKE_WILDCARD, ".")' + ? ' Setting SetAtLike(CT_SETATLIKE_WILDCARD, ".")' SetAtLike( CT_SETATLIKE_WILDCARD, "." ) - ? ' afteratnum("..",cStr) should be "",' + ? ' AfterAtNum("..",cStr) should be "",' ? ' and is "' + AfterAtNum( "..", cStr ) + '"' - ? ' afteratnum("..",cStr,2,2) should be "s...is...a...test!",' + ? ' AfterAtNum("..",cStr,2,2) should be "s...is...a...test!",' ? ' and is "' + AfterAtNum( "..", cStr, 2, 2 ) + '"' - ? ' afteratnum("..",cStr,2,10) should be ".a...test!",' + ? ' AfterAtNum("..",cStr,2,10) should be ".a...test!",' ? ' and is "' + AfterAtNum( "..", cStr, 2, 10 ) + '"' ? - ? "End test of AFTERATNUM()" + ? "End test of AfterAtNum()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/asciisum.prg b/harbour/contrib/hbct/tests/asciisum.prg index 662bae3dc6..007a8b1878 100644 --- a/harbour/contrib/hbct/tests/asciisum.prg +++ b/harbour/contrib/hbct/tests/asciisum.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function ASCIISUM() + * Test CT3 function AsciiSum() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,15 +56,15 @@ PROCEDURE Main() ctinit() - ? "Begin test of ASCIISUM()" + ? "Begin test of AsciiSum()" ? - ? ' asciisum(replicate("A", 10000)) == 650000 ? --> ' + Str( AsciiSum( Replicate( "A", 10000 ) ) ) - ? ' asciisum("0123456789") == 525 ? --> ' + Str( AsciiSum( "0123456789" ) ) - ? ' asciisum(NIL) == 0 ? --> ' + Str( AsciiSum( NIL ) ) + ? ' AsciiSum(replicate("A", 10000)) == 650000 ? --> ' + Str( AsciiSum( Replicate( "A", 10000 ) ) ) + ? ' AsciiSum("0123456789") == 525 ? --> ' + Str( AsciiSum( "0123456789" ) ) + ? ' AsciiSum(NIL) == 0 ? --> ' + Str( AsciiSum( NIL ) ) ? - ? "End test of ASCIISUM()" + ? "End test of AsciiSum()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/ascpos.prg b/harbour/contrib/hbct/tests/ascpos.prg index 5c876d12fe..e87d61b24d 100644 --- a/harbour/contrib/hbct/tests/ascpos.prg +++ b/harbour/contrib/hbct/tests/ascpos.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function ASCPOS() + * Test CT3 function AscPos() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,15 +56,15 @@ PROCEDURE Main() ctinit() - ? "Begin test of ASCPOS()" + ? "Begin test of AscPos()" ? - ? ' ascpos("0123456789") == 57 ? --> ' + Str( AscPos( "0123456789" ) ) - ? ' ascpos("0123456789",1) == 48 ? --> ' + Str( AscPos( "0123456789", 1 ) ) - ? ' ascpos("0123456789",11) == 0 ? --> ' + Str( AscPos( "0123456789", 11 ) ) + ? ' AscPos("0123456789") == 57 ? --> ' + Str( AscPos( "0123456789" ) ) + ? ' AscPos("0123456789",1) == 48 ? --> ' + Str( AscPos( "0123456789", 1 ) ) + ? ' AscPos("0123456789",11) == 0 ? --> ' + Str( AscPos( "0123456789", 11 ) ) ? - ? "End test of ASCPOS()" + ? "End test of AscPos()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/atadjust.prg b/harbour/contrib/hbct/tests/atadjust.prg index 5cd7962e27..6bc074e4cc 100644 --- a/harbour/contrib/hbct/tests/atadjust.prg +++ b/harbour/contrib/hbct/tests/atadjust.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function ATADJUST() + * Test CT3 function AtAdjust() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -69,7 +69,7 @@ PROCEDURE Main() ctinit() // Some simple tests - ? "Begin test of ATADJUST()" + ? "Begin test of AtAdjust()" ? ? " Original strings:" @@ -78,27 +78,27 @@ PROCEDURE Main() NEXT ? - ? ' ATADJUST(":", aStr[ni], 21,,, ".") yields' + ? ' AtAdjust(":", aStr[ni], 21,,, ".") yields' FOR ni := 1 TO Len( aStr ) ? Space( 4 ) + AtAdjust( ":", aStr[ ni ], 21, 1,, "." ) NEXT ? - ? ' ATADJUST(":", aStr[ni], 10, 1,, ".") yields' + ? ' AtAdjust(":", aStr[ni], 10, 1,, ".") yields' FOR ni := 1 TO Len( aStr ) ? Space( 4 ) + AtAdjust( ":", aStr[ ni ], 10, 1,, "." ) NEXT ? - ? ' SETATLIKE(CT_SETATLIKE_WILDCARD, ":")' - ? ' ATADJUST(":", aStr[ni], 10, 1,, ".") yields now' + ? ' SetAtLike(CT_SETATLIKE_WILDCARD, ":")' + ? ' AtAdjust(":", aStr[ni], 10, 1,, ".") yields now' SetAtLike( CT_SETATLIKE_WILDCARD, ":" ) FOR ni := 1 TO Len( aStr ) ? Space( 4 ) + AtAdjust( ":", aStr[ ni ], 10, 1,, "." ) NEXT ? - ? "End test of ATADJUST()" + ? "End test of AtAdjust()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/atnum.prg b/harbour/contrib/hbct/tests/atnum.prg index 0f968573a1..5bb6dfd7bb 100644 --- a/harbour/contrib/hbct/tests/atnum.prg +++ b/harbour/contrib/hbct/tests/atnum.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 functions ATNUM() + * Test CT3 functions AtNum() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -62,48 +62,48 @@ PROCEDURE Main() ctinit() - ? "Begin test of ATNUM()" + ? "Begin test of AtNum()" ? ? " Value of cStr is:" + Chr( 34 ) + cStr + Chr( 34 ) ? // Some simple tests ? " Simple tests:" - ? ' atnum("..",cStr) should be 18,' + ? ' AtNum("..",cStr) should be 18,' ? ' and is ', AtNum( "..", cStr ) - ? ' atnum("..",cStr,2) should be 8,' + ? ' AtNum("..",cStr,2) should be 8,' ? ' and is ', AtNum( "..", cStr, 2 ) - ? ' atnum("..",cStr,2,2) should be 13,' + ? ' AtNum("..",cStr,2,2) should be 13,' ? ' and is ', AtNum( "..", cStr, 2, 2 ) ? - // Tests with CSetAtMuPa(.T.) + // Tests with CSetAtMupa(.T.) ? " Multi-Pass tests" - ? " Setting csetatmupa() to .T." + ? " Setting CSetAtMupa() to .T." CSetAtMupa( .T. ) - ? ' atnum("..",cStr) should be 18,' + ? ' AtNum("..",cStr) should be 18,' ? ' and is ', AtNum( "..", cStr ) - ? ' atnum("..",cStr,2) should be 2,' + ? ' AtNum("..",cStr,2) should be 2,' ? ' and is ', AtNum( "..", cStr, 2 ) - ? ' atnum("..",cStr,2,2) should be 9,' + ? ' AtNum("..",cStr,2,2) should be 9,' ? ' and is ', AtNum( "..", cStr, 2, 2 ) - ? " Setting csetatmupa() to .F." + ? " Setting CSetAtMupa() to .F." CSetAtMupa( .F. ) ? - // Tests mit SetAtlike(1) + // Tests mit SetAtLike(1) ? " SetAtLike tests" - ? ' Setting setatlike(CT_SETATLIKE_WILDCARD, ".")' + ? ' Setting SetAtLike(CT_SETATLIKE_WILDCARD, ".")' SetAtLike( CT_SETATLIKE_WILDCARD, "." ) - ? ' atnum("..",cStr) should be 23,' + ? ' AtNum("..",cStr) should be 23,' ? ' and is ', AtNum( "..", cStr ) - ? ' atnum("..",cStr,2,2) should be 5,' + ? ' AtNum("..",cStr,2,2) should be 5,' ? ' and is ', AtNum( "..", cStr, 2, 2 ) - ? ' atnum("..",cStr,2,10) should be 13,' + ? ' AtNum("..",cStr,2,10) should be 13,' ? ' and is ', AtNum( "..", cStr, 2, 10 ) ? - ? "End test of ATNUM()" + ? "End test of AtNum()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/atrepl.prg b/harbour/contrib/hbct/tests/atrepl.prg index c73fbc361d..f2dbb536d3 100644 --- a/harbour/contrib/hbct/tests/atrepl.prg +++ b/harbour/contrib/hbct/tests/atrepl.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function ATREPL() + * Test CT3 function AtRepl() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,20 +56,20 @@ PROCEDURE Main() ctinit() - ? "Begin test of ATREPL()" + ? "Begin test of AtRepl()" ? // simple tests ? "Simple tests:" - ? ' atrepl("ABC", "ABCDABCDABC", "xx") == "xxDxxDxx" ? --> "' + AtRepl( "ABC", "ABCDABCDABC", "xx" ) + '"' - ? ' atrepl("ABC", "ABCDABC", "ZYXW") == "ZYXWDZYXW" ? --> "' + AtRepl( "ABC", "ABCDABC", "ZYXW" ) + '"' - ? ' atrepl("ABC", "ABCDABCDABC", "xx", 2) == "xxDxxDABC" ? --> "' + AtRepl( "ABC", "ABCDABCDABC", "xx", 2 ) + '"' - ? ' atrepl("ABC", "ABCDABCDABC", "xx", 2, .T.) == "ABCDxxDABC" ? --> "' + AtRepl( "ABC", "ABCDABCDABC", "xx", 2, .T. ) + '"' - ? ' atrepl("ABC", "ABCDABCDABC", "xx", 2, .T., 1) == "ABCDABCDxx" ? ' + ? ' AtRepl("ABC", "ABCDABCDABC", "xx") == "xxDxxDxx" ? --> "' + AtRepl( "ABC", "ABCDABCDABC", "xx" ) + '"' + ? ' AtRepl("ABC", "ABCDABC", "ZYXW") == "ZYXWDZYXW" ? --> "' + AtRepl( "ABC", "ABCDABC", "ZYXW" ) + '"' + ? ' AtRepl("ABC", "ABCDABCDABC", "xx", 2) == "xxDxxDABC" ? --> "' + AtRepl( "ABC", "ABCDABCDABC", "xx", 2 ) + '"' + ? ' AtRepl("ABC", "ABCDABCDABC", "xx", 2, .T.) == "ABCDxxDABC" ? --> "' + AtRepl( "ABC", "ABCDABCDABC", "xx", 2, .T. ) + '"' + ? ' AtRepl("ABC", "ABCDABCDABC", "xx", 2, .T., 1) == "ABCDABCDxx" ? ' ? ' --> "' + AtRepl( "ABC", "ABCDABCDABC", "xx", 2, .T., 1 ) + '"' - ? "End test of ATREPL()" + ? "End test of AtRepl()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/attoken.prg b/harbour/contrib/hbct/tests/attoken.prg index 438300402d..af887877ef 100644 --- a/harbour/contrib/hbct/tests/attoken.prg +++ b/harbour/contrib/hbct/tests/attoken.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function ATTOKEN() + * Test CT3 function AtToken() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -63,15 +63,15 @@ PROCEDURE Main() ctinit() - ? "Begin test of ATTOKEN()" + ? "Begin test of AtToken()" ? // Some simple tests ? " Simple tests:" - ? ' attoken("Hello, World!") == 8 ? ---------> ' + Str( AtToken( "Hello, World!" ) ) - ? ' attoken("Hello, World!",,2) == 8 ? ------> ' + Str( AtToken( "Hello, World!",, 2 ) ) - ? ' attoken("Hello, World!",,2,1) == 7 ? ----> ' + Str( AtToken( "Hello, World!",, 2, 1 ) ) - ? ' attoken("Hello, World!"," ",2,1) == 8 ? -> ' + Str( AtToken( "Hello, World!", " ", 2, 1 ) ) + ? ' AtToken("Hello, World!") == 8 ? ---------> ' + Str( AtToken( "Hello, World!" ) ) + ? ' AtToken("Hello, World!",,2) == 8 ? ------> ' + Str( AtToken( "Hello, World!",, 2 ) ) + ? ' AtToken("Hello, World!",,2,1) == 7 ? ----> ' + Str( AtToken( "Hello, World!",, 2, 1 ) ) + ? ' AtToken("Hello, World!"," ",2,1) == 8 ? -> ' + Str( AtToken( "Hello, World!", " ", 2, 1 ) ) ? ? ' Tokenizing a string with skip width == 1 and ".!" as tokenizer list:' @@ -84,7 +84,7 @@ PROCEDURE Main() NEXT ? - ? "End test of ATTOKEN()" + ? "End test of AtToken()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/beforatn.prg b/harbour/contrib/hbct/tests/beforatn.prg index 6c4646f77b..82de9c12af 100644 --- a/harbour/contrib/hbct/tests/beforatn.prg +++ b/harbour/contrib/hbct/tests/beforatn.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 functions BEFORATNUM() + * Test CT3 functions BeforAtNum() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -62,48 +62,48 @@ PROCEDURE Main() ctinit() - ? "Begin test of BEFORATNUM()" + ? "Begin test of BeforAtNum()" ? ? " Value of cStr is:" + Chr( 34 ) + cStr + Chr( 34 ) ? // Some simple tests ? " Simple tests:" - ? ' beforatnum("..",cStr) should be "...This...is...a.",' + ? ' BeforAtNum("..",cStr) should be "...This...is...a.",' ? ' and is "' + BeforAtNum( "..", cStr ) + '"' - ? ' beforatnum("..",cStr,2) should be "...This",' + ? ' BeforAtNum("..",cStr,2) should be "...This",' ? ' and is "' + BeforAtNum( "..", cStr, 2 ) + '"' - ? ' beforatnum("..",cStr,2,2) should be "...This...is",' + ? ' BeforAtNum("..",cStr,2,2) should be "...This...is",' ? ' and is "' + BeforAtNum( "..", cStr, 2, 2 ) + '"' ? - // Tests with CSetAtMuPa(.T.) + // Tests with CSetAtMupa(.T.) ? " Multi-Pass tests" - ? " Setting csetatmupa() to .T." + ? " Setting CSetAtMupa() to .T." CSetAtMupa( .T. ) - ? ' beforatnum("..",cStr) should be "...This...is...a.",' + ? ' BeforAtNum("..",cStr) should be "...This...is...a.",' ? ' and is "' + BeforAtNum( "..", cStr ) + '"' - ? ' beforatnum("..",cStr,2) should be ".",' + ? ' BeforAtNum("..",cStr,2) should be ".",' ? ' and is "' + BeforAtNum( "..", cStr, 2 ) + '"' - ? ' beforatnum("..",cStr,2,2) should be "...This.",' + ? ' BeforAtNum("..",cStr,2,2) should be "...This.",' ? ' and is "' + BeforAtNum( "..", cStr, 2, 2 ) + '"' - ? " Setting csetatmupa() to .F." + ? " Setting CSetAtMupa() to .F." CSetAtMupa( .F. ) ? - // Tests mit SetAtlike(1) + // Tests mit SetAtLike(1) ? " SetAtLike tests" - ? ' Setting setatlike(CT_SETATLIKE_WILDCARD, ".")' + ? ' Setting SetAtLike(CT_SETATLIKE_WILDCARD, ".")' SetAtLike( CT_SETATLIKE_WILDCARD, "." ) - ? ' beforatnum("..",cStr) should be "...This...is...a...tes",' + ? ' BeforAtNum("..",cStr) should be "...This...is...a...tes",' ? ' and is "' + BeforAtNum( "..", cStr ) + '"' - ? ' beforatnum("..",cStr,2,2) should be "...T",' + ? ' BeforAtNum("..",cStr,2,2) should be "...T",' ? ' and is "' + BeforAtNum( "..", cStr, 2, 2 ) + '"' - ? ' beforatnum("..",cStr,2,10) should be "...This...is",' + ? ' BeforAtNum("..",cStr,2,10) should be "...This...is",' ? ' and is "' + BeforAtNum( "..", cStr, 2, 10 ) + '"' ? - ? "End test of BEFORATNUM()" + ? "End test of BeforAtNum()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charadd.prg b/harbour/contrib/hbct/tests/charadd.prg index 00e2af5390..712be00013 100644 --- a/harbour/contrib/hbct/tests/charadd.prg +++ b/harbour/contrib/hbct/tests/charadd.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHARADD() + * Test CT3 function CharAdd() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,17 +56,17 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARADD()" + ? "Begin test of CharAdd()" ? // simple tests ? "Simple tests:" - ? ' charadd("012345678", chr(1)) == "123456789" ? -> "' + CharAdd( "012345678", Chr( 1 ) ) + '"' - ? ' charadd("012345678", chr(1)+chr(2)) == "133557799" ? -> "' + CharAdd( "012345678", Chr( 1 ) + Chr( 2 ) ) + '"' - ? ' charadd("123456789", chr(255)) == "012345678" ? -> "' + CharAdd( "123456789", Chr( 255 ) ) + '"' - ? ' charadd("123456789", chr(255)+chr(254)) == "002244668" ? -> "' + CharAdd( "123456789", Chr( 255 ) + Chr( 254 ) ) + '"' + ? ' CharAdd("012345678", Chr(1)) == "123456789" ? -> "' + CharAdd( "012345678", Chr( 1 ) ) + '"' + ? ' CharAdd("012345678", Chr(1)+Chr(2)) == "133557799" ? -> "' + CharAdd( "012345678", Chr( 1 ) + Chr( 2 ) ) + '"' + ? ' CharAdd("123456789", Chr(255)) == "012345678" ? -> "' + CharAdd( "123456789", Chr( 255 ) ) + '"' + ? ' CharAdd("123456789", Chr(255)+Chr(254)) == "002244668" ? -> "' + CharAdd( "123456789", Chr( 255 ) + Chr( 254 ) ) + '"' - ? "End test of CHARADD()" + ? "End test of CharAdd()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charand.prg b/harbour/contrib/hbct/tests/charand.prg index 83f5c9ca22..69e10d5227 100644 --- a/harbour/contrib/hbct/tests/charand.prg +++ b/harbour/contrib/hbct/tests/charand.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHARAND() + * Test CT3 function ChaRand() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,16 +56,16 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARAND()" + ? "Begin test of ChaRand()" ? // simple tests ? "Simple tests:" - ? ' charand("012345678", chr(254)) == "002244668" ? --> "' + CharAnd( "012345678", Chr( 254 ) ) + '"' - ? ' charand("012345678", chr(254)+chr(252)) == "002044648" ? --> "' + CharAnd( "012345678", Chr( 254 ) + Chr( 252 ) ) + '"' + ? ' ChaRand("012345678", Chr(254)) == "002244668" ? --> "' + ChaRand( "012345678", Chr( 254 ) ) + '"' + ? ' ChaRand("012345678", Chr(254)+Chr(252)) == "002044648" ? --> "' + ChaRand( "012345678", Chr( 254 ) + Chr( 252 ) ) + '"' - ? "End test of CHARAND()" + ? "End test of ChaRand()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/chareven.prg b/harbour/contrib/hbct/tests/chareven.prg index 8042c3d4a5..fa41639bb3 100644 --- a/harbour/contrib/hbct/tests/chareven.prg +++ b/harbour/contrib/hbct/tests/chareven.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHAREVEN() + * Test CT3 function CharEven() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,16 +56,16 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHAREVEN()" + ? "Begin test of CharEven()" ? // simple tests ? "Simple tests:" - ? ' chareven(" 1 2 3 4 5") == "12345" ? --> "' + CharEven( " 1 2 3 4 5" ) + '"' - ? ' chareven(" 1 2 3 4 ") == "1234" ? --> "' + CharEven( " 1 2 3 4 " ) + '"' - ? ' chareven(" ") == "" ? --> "' + CharEven( " " ) + '"' + ? ' CharEven(" 1 2 3 4 5") == "12345" ? --> "' + CharEven( " 1 2 3 4 5" ) + '"' + ? ' CharEven(" 1 2 3 4 ") == "1234" ? --> "' + CharEven( " 1 2 3 4 " ) + '"' + ? ' CharEven(" ") == "" ? --> "' + CharEven( " " ) + '"' - ? "End test of CHAREVEN()" + ? "End test of CharEven()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charhist.prg b/harbour/contrib/hbct/tests/charhist.prg index 43a323f35a..adbec21c7c 100644 --- a/harbour/contrib/hbct/tests/charhist.prg +++ b/harbour/contrib/hbct/tests/charhist.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHARHIST() + * Test CT3 function CharHist() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -58,17 +58,17 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARHIST()" + ? "Begin test of CharHist()" ? // simple tests ? "Simple tests:" - ? ' charhist("Hello World !")' + "'109' == 3 ? --> ", CharHist( "Hello World !" )' 109 ' - ? ' aeval(charhist("Hello World !"), {| x | nTotal += x } ) ' + ? ' CharHist("Hello World !")' + "'109' == 3 ? --> ", CharHist( "Hello World !" )' 109 ' + ? ' aeval(CharHist("Hello World !"), {| x | nTotal += x } ) ' AEval( CharHist( "Hello World !" ), {| x | nTotal += x } ) ? ' ==> nTotal == len("Hello World !") ? --> ', nTotal == Len( "Hello World !" ) - ? "End test of CHARHIST()" + ? "End test of CharHist()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charlist.prg b/harbour/contrib/hbct/tests/charlist.prg index 0b5ad24549..af9004f299 100644 --- a/harbour/contrib/hbct/tests/charlist.prg +++ b/harbour/contrib/hbct/tests/charlist.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHARLIST() + * Test CT3 function CharList() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,15 +56,15 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARLIST()" + ? "Begin test of CharList()" ? // simple tests ? "Simple tests:" - ? ' charlist("Hello World !") == "Helo Wrd!" ? -> "' + CharList( "Hello World !" ) + '"' - ? ' charlist(NIL) == "" ? -> "' + CharList( NIL ) + '"' + ? ' CharList("Hello World !") == "Helo Wrd!" ? -> "' + CharList( "Hello World !" ) + '"' + ? ' CharList(NIL) == "" ? -> "' + CharList( NIL ) + '"' - ? "End test of CHARLIST()" + ? "End test of CharList()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charmirr.prg b/harbour/contrib/hbct/tests/charmirr.prg index 8723e68f65..f39bde942f 100644 --- a/harbour/contrib/hbct/tests/charmirr.prg +++ b/harbour/contrib/hbct/tests/charmirr.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHARMIRR() + * Test CT3 function CharMirr() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,16 +56,16 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARMIRR()" + ? "Begin test of CharMirr()" ? // simple tests ? "Simple tests:" - ? ' charmirr("racecar") == "racecar" ? ----------> "' + CharMirr( "racecar" ) + '"' - ? ' charmirr("racecar ", .T.) == "racecar " ? -> "' + CharMirr( "racecar ", .T. ) + '"' - ? ' charmirr("racecar ", .F.) == " racecar" ? -> "' + CharMirr( "racecar ", .F. ) + '"' + ? ' CharMirr("racecar") == "racecar" ? ----------> "' + CharMirr( "racecar" ) + '"' + ? ' CharMirr("racecar ", .T.) == "racecar " ? -> "' + CharMirr( "racecar ", .T. ) + '"' + ? ' CharMirr("racecar ", .F.) == " racecar" ? -> "' + CharMirr( "racecar ", .F. ) + '"' - ? "End test of CHARMIRR()" + ? "End test of CharMirr()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charmix.prg b/harbour/contrib/hbct/tests/charmix.prg index 57c028920a..e56363f114 100644 --- a/harbour/contrib/hbct/tests/charmix.prg +++ b/harbour/contrib/hbct/tests/charmix.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHARMIX() + * Test CT3 function CharMix() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,19 +56,19 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARMIX()" + ? "Begin test of CharMix()" ? // simple tests ? "Simple tests:" - ? ' charmix("ABC", "123") == "A1B2C3" ? --> "' + CharMix( "ABC", "123" ) + '"' - ? ' charmix("ABCDE", "12") == "A1B2C1D2E1" ? --> "' + CharMix( "ABCDE", "12" ) + '"' - ? ' charmix("AB", "12345") == "A1B2" ? --> "' + CharMix( "AB", "12345" ) + '"' - ? ' charmix("HELLO", " ") == "H E L L O " ? --> "' + CharMix( "HELLO", " " ) + '"' - ? ' charmix("HELLO", "") == "HELLO" ? --> "' + CharMix( "HELLO", "" ) + '"' + ? ' CharMix("ABC", "123") == "A1B2C3" ? --> "' + CharMix( "ABC", "123" ) + '"' + ? ' CharMix("ABCDE", "12") == "A1B2C1D2E1" ? --> "' + CharMix( "ABCDE", "12" ) + '"' + ? ' CharMix("AB", "12345") == "A1B2" ? --> "' + CharMix( "AB", "12345" ) + '"' + ? ' CharMix("HELLO", " ") == "H E L L O " ? --> "' + CharMix( "HELLO", " " ) + '"' + ? ' CharMix("HELLO", "") == "HELLO" ? --> "' + CharMix( "HELLO", "" ) + '"' ? - ? "End test of CHARMIX()" + ? "End test of CharMix()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charnlst.prg b/harbour/contrib/hbct/tests/charnlst.prg index e74404abf8..5001eac986 100644 --- a/harbour/contrib/hbct/tests/charnlst.prg +++ b/harbour/contrib/hbct/tests/charnlst.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHARNOLIST() + * Test CT3 function CharNoList() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,16 +56,16 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARNOLIST()" + ? "Begin test of CharNoList()" ? // simple tests ? "Simple tests:" - ? ' charnolist(charnolist("Hello World !")) == " !HWdelor" ? -> "' + CharNoList( CharNoList( "Hello World !" ) ) + '"' - ? ' charnolist(charnolist(NIL)) == "" ? -> "' + CharNoList( CharNoList( NIL ) ) + '"' + ? ' CharNoList(CharNoList("Hello World !")) == " !HWdelor" ? -> "' + CharNoList( CharNoList( "Hello World !" ) ) + '"' + ? ' CharNoList(CharNoList(NIL)) == "" ? -> "' + CharNoList( CharNoList( NIL ) ) + '"' - ? "End test of CHARNOLIST()" + ? "End test of CharNoList()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charnot.prg b/harbour/contrib/hbct/tests/charnot.prg index f5eea47b0a..19647c0cee 100644 --- a/harbour/contrib/hbct/tests/charnot.prg +++ b/harbour/contrib/hbct/tests/charnot.prg @@ -62,30 +62,30 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARNOT()" + ? "Begin test of CharNot()" ? // simple tests ? "Simple tests:" - ? ' charnot(chr(85)+chr(128)+chr(170)+chr(1)) == ' - ? ' chr(170)+chr(127)+chr(85)+chr(254) ? -->' + ? ' CharNot(Chr(85)+Chr(128)+Chr(170)+Chr(1)) == ' + ? ' Chr(170)+Chr(127)+Chr(85)+Chr(254) ? -->' ? ' ' cStr := CharNot( Chr( 85 ) + Chr( 128 ) + Chr( 170 ) + Chr( 1 ) ) FOR ni := 1 TO Len( cStr ) - ?? "chr(" + hb_ntos( Asc( SubStr( cStr, ni, 1 ) ) ) + ")" + ?? "Chr(" + hb_ntos( Asc( SubStr( cStr, ni, 1 ) ) ) + ")" IF ni < Len( cStr ) ?? "+" ENDIF NEXT ? - ? ' charnot(charnot("This is a test!")) == "This is a test!" ?' + ? ' CharNot(CharNot("This is a test!")) == "This is a test!" ?' ? ' --> "' + CharNot( CharNot( "This is a test!" ) ) + '"' ? - ? "End test of CHARNOT()" + ? "End test of CharNot()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charodd.prg b/harbour/contrib/hbct/tests/charodd.prg index ae3e38f2c9..b015197bfe 100644 --- a/harbour/contrib/hbct/tests/charodd.prg +++ b/harbour/contrib/hbct/tests/charodd.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHARODD() + * Test CT3 function CharOdd() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,15 +56,15 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARODD()" + ? "Begin test of CharOdd()" ? // simple tests ? "Simple tests:" - ? ' charodd("1A2B3C4D5E") == "12345" ? --> "' + CharOdd( "1A2B3C4D5E" ) + '"' - ? ' charodd("1A2B3C4D5") == "12345" ? --> "' + CharOdd( "1A2B3C4D5" ) + '"' + ? ' CharOdd("1A2B3C4D5E") == "12345" ? --> "' + CharOdd( "1A2B3C4D5E" ) + '"' + ? ' CharOdd("1A2B3C4D5") == "12345" ? --> "' + CharOdd( "1A2B3C4D5" ) + '"' - ? "End test of CHARODD()" + ? "End test of CharOdd()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charone.prg b/harbour/contrib/hbct/tests/charone.prg index a361c05d04..8910cb48d8 100644 --- a/harbour/contrib/hbct/tests/charone.prg +++ b/harbour/contrib/hbct/tests/charone.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHARONE() + * Test CT3 function CharOne() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,19 +56,19 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARONE()" + ? "Begin test of CharOne()" ? // simple tests ? "Simple tests:" - ? ' charone("112333a123") == "123a123"? --> "' + CharOne( "112333a123" ) + '"' - ? ' charone("122333a123") == "123a123"? --> "' + CharOne( "122333a123" ) + '"' - ? ' charone("A B CCCD") == "A B CD"? ---> "' + CharOne( "A B CCCD" ) + '"' - ? ' charone(" ", "A B A B") == "A B A B"? --> "' + CharOne( " ", "A B A B" ) + '"' - ? ' charone("o", "122oooB12o") == "122oB12o"? -> "' + CharOne( "o", "122oooB12o" ) + '"' + ? ' CharOne("112333a123") == "123a123"? --> "' + CharOne( "112333a123" ) + '"' + ? ' CharOne("122333a123") == "123a123"? --> "' + CharOne( "122333a123" ) + '"' + ? ' CharOne("A B CCCD") == "A B CD"? ---> "' + CharOne( "A B CCCD" ) + '"' + ? ' CharOne(" ", "A B A B") == "A B A B"? --> "' + CharOne( " ", "A B A B" ) + '"' + ? ' CharOne("o", "122oooB12o") == "122oB12o"? -> "' + CharOne( "o", "122oooB12o" ) + '"' ? - ? "End test of CHARONE()" + ? "End test of CharOne()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charonly.prg b/harbour/contrib/hbct/tests/charonly.prg index 79e66d631a..49ffa4964b 100644 --- a/harbour/contrib/hbct/tests/charonly.prg +++ b/harbour/contrib/hbct/tests/charonly.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHARONLY() + * Test CT3 function CharOnly() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,16 +56,16 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARONLY()" + ? "Begin test of CharOnly()" ? // simple tests ? "Simple tests:" - ? ' charonly("0123456789", "0211 - 38 99 77") == "0211389977" ? --> "' + CharOnly( "0123456789", "0211 - 38 99 77" ) + '"' - ? ' charonly("0123456789", "0211/ 389 977") == "0211389977" ? --> "' + CharOnly( "0123456789", "0211/ 389 977" ) + '"' + ? ' CharOnly("0123456789", "0211 - 38 99 77") == "0211389977" ? --> "' + CharOnly( "0123456789", "0211 - 38 99 77" ) + '"' + ? ' CharOnly("0123456789", "0211/ 389 977") == "0211389977" ? --> "' + CharOnly( "0123456789", "0211/ 389 977" ) + '"' ? - ? "End test of CHARONLY()" + ? "End test of CharOnly()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charor.prg b/harbour/contrib/hbct/tests/charor.prg index ad7ffc83f8..f40975ea86 100644 --- a/harbour/contrib/hbct/tests/charor.prg +++ b/harbour/contrib/hbct/tests/charor.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHAROR() + * Test CT3 function CharOr() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,16 +56,16 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHAROR()" + ? "Begin test of CharOr()" ? // simple tests ? "Simple tests:" - ? ' charor("012345678", chr(1)) == "113355779" ? --> "' + CharOr( "012345678", Chr( 1 ) ) + '"' - ? ' charor("012345678", chr(1)+chr(3)) == "133357779" ? --> "' + CharOr( "012345678", Chr( 1 ) + Chr( 3 ) ) + '"' + ? ' CharOr("012345678", Chr(1)) == "113355779" ? --> "' + CharOr( "012345678", Chr( 1 ) ) + '"' + ? ' CharOr("012345678", Chr(1)+Chr(3)) == "133357779" ? --> "' + CharOr( "012345678", Chr( 1 ) + Chr( 3 ) ) + '"' - ? "End test of CHAROR()" + ? "End test of CharOr()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charrem.prg b/harbour/contrib/hbct/tests/charrem.prg index a69ee27f49..2e24701d09 100644 --- a/harbour/contrib/hbct/tests/charrem.prg +++ b/harbour/contrib/hbct/tests/charrem.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHARREM() + * Test CT3 function CharRem() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,16 +56,16 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARREM()" + ? "Begin test of CharRem()" ? // simple tests ? "Simple tests:" - ? ' charrem(" ", " 1 2 ") == "12" ? ---> "' + CharRem( " ", " 1 2 " ) + '"' - ? ' charrem("3y", "xyz123") == "xz12" ? ---> "' + CharRem( "3y", "xyz123" ) + '"' + ? ' CharRem(" ", " 1 2 ") == "12" ? ---> "' + CharRem( " ", " 1 2 " ) + '"' + ? ' CharRem("3y", "xyz123") == "xz12" ? ---> "' + CharRem( "3y", "xyz123" ) + '"' ? - ? "End test of CHARREM()" + ? "End test of CharRem()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charrepl.prg b/harbour/contrib/hbct/tests/charrepl.prg index c819d815ee..a784428d4b 100644 --- a/harbour/contrib/hbct/tests/charrepl.prg +++ b/harbour/contrib/hbct/tests/charrepl.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHARREPL() + * Test CT3 function CharRepl() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,19 +56,19 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARREPL()" + ? "Begin test of CharRepl()" ? // simple tests ? "Simple tests:" - ? ' charrepl("1234", "1x2y3z", "abcd") == "axbycz" ? --> "' + CharRepl( "1234", "1x2y3z", "abcd" ) + '"' - ? ' charrepl("abcdefghij", "jhfdb", "1234567890") == "08642" ? --> "' + CharRepl( "abcdefghij", "jhfdb", "1234567890" ) + '"' - ? ' charrepl("abcdefghij", "jhfdb", "12345") == "55542" ? --> "' + CharRepl( "abcdefghij", "jhfdb", "12345" ) + '"' - ? ' charrepl("1234", "1234", "234A") == "AAAA" ? --> "' + CharRepl( "1234", "1234", "234A" ) + '"' - ? ' charrepl("1234", "1234", "234A", .T.) == "234A" ? --> "' + CharRepl( "1234", "1234", "234A", .T. ) + '"' + ? ' CharRepl("1234", "1x2y3z", "abcd") == "axbycz" ? --> "' + CharRepl( "1234", "1x2y3z", "abcd" ) + '"' + ? ' CharRepl("abcdefghij", "jhfdb", "1234567890") == "08642" ? --> "' + CharRepl( "abcdefghij", "jhfdb", "1234567890" ) + '"' + ? ' CharRepl("abcdefghij", "jhfdb", "12345") == "55542" ? --> "' + CharRepl( "abcdefghij", "jhfdb", "12345" ) + '"' + ? ' CharRepl("1234", "1234", "234A") == "AAAA" ? --> "' + CharRepl( "1234", "1234", "234A" ) + '"' + ? ' CharRepl("1234", "1234", "234A", .T.) == "234A" ? --> "' + CharRepl( "1234", "1234", "234A", .T. ) + '"' ? - ? "End test of CHARREPL()" + ? "End test of CharRepl()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charrll.prg b/harbour/contrib/hbct/tests/charrll.prg index 12dfe1e245..9586300233 100644 --- a/harbour/contrib/hbct/tests/charrll.prg +++ b/harbour/contrib/hbct/tests/charrll.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHARRLL() + * Test CT3 function CharRll() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -62,26 +62,26 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARRLL()" + ? "Begin test of CharRll()" ? // simple tests ? "Simple tests:" - ? ' charrll(chr(1)+chr(2)+chr(4)+chr(8)+chr(16)+chr(32)+' - ? ' chr(64)+chr(128), 3) == ' - ? ' chr(8)+chr(16)+chr(32)+chr(64)+chr(128)+chr(1)+chr(2)+chr(4) ? -->' + ? ' CharRll(Chr(1)+Chr(2)+Chr(4)+Chr(8)+Chr(16)+Chr(32)+' + ? ' Chr(64)+Chr(128), 3) == ' + ? ' Chr(8)+Chr(16)+Chr(32)+Chr(64)+Chr(128)+Chr(1)+Chr(2)+Chr(4) ? -->' ? ' ' cStr := CharRll( Chr( 1 ) + Chr( 2 ) + Chr( 4 ) + Chr( 8 ) + Chr( 16 ) + Chr( 32 ) + Chr( 64 ) + Chr( 128 ), 3 ) FOR ni := 1 TO Len( cStr ) - ?? "chr(" + hb_ntos( Asc( SubStr( cStr, ni, 1 ) ) ) + ")" + ?? "Chr(" + hb_ntos( Asc( SubStr( cStr, ni, 1 ) ) ) + ")" IF ni < Len( cStr ) ?? "+" ENDIF NEXT ? - ? "End test of CHARRLL()" + ? "End test of CharRll()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charrlr.prg b/harbour/contrib/hbct/tests/charrlr.prg index c7f3d958a7..abda7c5e05 100644 --- a/harbour/contrib/hbct/tests/charrlr.prg +++ b/harbour/contrib/hbct/tests/charrlr.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHARRLR() + * Test CT3 function CharRlr() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -62,26 +62,26 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARRLR()" + ? "Begin test of CharRlr()" ? // simple tests ? "Simple tests:" - ? ' charrlr(chr(1)+chr(2)+chr(4)+chr(8)+chr(16)+chr(32)+' - ? ' chr(64)+chr(128), 3) == ' - ? ' chr(32)+chr(64)+chr(128)+chr(1)+chr(2)+chr(4)+chr(8)+chr(16) ? -->' + ? ' CharRlr(Chr(1)+Chr(2)+Chr(4)+Chr(8)+Chr(16)+Chr(32)+' + ? ' Chr(64)+Chr(128), 3) == ' + ? ' Chr(32)+Chr(64)+Chr(128)+Chr(1)+Chr(2)+Chr(4)+Chr(8)+Chr(16) ? -->' ? ' ' cStr := CharRlr( Chr( 1 ) + Chr( 2 ) + Chr( 4 ) + Chr( 8 ) + Chr( 16 ) + Chr( 32 ) + Chr( 64 ) + Chr( 128 ), 3 ) FOR ni := 1 TO Len( cStr ) - ?? "chr(" + hb_ntos( Asc( SubStr( cStr, ni, 1 ) ) ) + ")" + ?? "Chr(" + hb_ntos( Asc( SubStr( cStr, ni, 1 ) ) ) + ")" IF ni < Len( cStr ) ?? "+" ENDIF NEXT ? - ? "End test of CHARRLR()" + ? "End test of CharRlr()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charshl.prg b/harbour/contrib/hbct/tests/charshl.prg index 0680b4e957..7f77fc9ae3 100644 --- a/harbour/contrib/hbct/tests/charshl.prg +++ b/harbour/contrib/hbct/tests/charshl.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHARSHL() + * Test CT3 function CharShl() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -62,26 +62,26 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARSHL()" + ? "Begin test of CharShl()" ? // simple tests ? "Simple tests:" - ? ' charshl(chr(1)+chr(2)+chr(4)+chr(8)+chr(16)+chr(32)+' - ? ' chr(64)+chr(128), 3) == ' - ? ' chr(8)+chr(16)+chr(32)+chr(64)+chr(128)+chr(0)+chr(0)+chr(0) ? -->' + ? ' CharShl(Chr(1)+Chr(2)+Chr(4)+Chr(8)+Chr(16)+Chr(32)+' + ? ' Chr(64)+Chr(128), 3) == ' + ? ' Chr(8)+Chr(16)+Chr(32)+Chr(64)+Chr(128)+Chr(0)+Chr(0)+Chr(0) ? -->' ? ' ' - cStr := charshl( Chr( 1 ) + Chr( 2 ) + Chr( 4 ) + Chr( 8 ) + Chr( 16 ) + Chr( 32 ) + Chr( 64 ) + Chr( 128 ), 3 ) + cStr := CharShl( Chr( 1 ) + Chr( 2 ) + Chr( 4 ) + Chr( 8 ) + Chr( 16 ) + Chr( 32 ) + Chr( 64 ) + Chr( 128 ), 3 ) FOR ni := 1 TO Len( cStr ) - ?? "chr(" + hb_ntos( Asc( SubStr( cStr, ni, 1 ) ) ) + ")" + ?? "Chr(" + hb_ntos( Asc( SubStr( cStr, ni, 1 ) ) ) + ")" IF ni < Len( cStr ) ?? "+" ENDIF NEXT ? - ? "End test of CHARSHL()" + ? "End test of CharShl()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charshr.prg b/harbour/contrib/hbct/tests/charshr.prg index 2a7e8c8b19..5fb2ff6543 100644 --- a/harbour/contrib/hbct/tests/charshr.prg +++ b/harbour/contrib/hbct/tests/charshr.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHARSHR() + * Test CT3 function CharShr() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -62,26 +62,26 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARSHR()" + ? "Begin test of CharShr()" ? // simple tests ? "Simple tests:" - ? ' charshr(chr(1)+chr(2)+chr(4)+chr(8)+chr(16)+chr(32)+' - ? ' chr(64)+chr(128), 3) == ' - ? ' chr(0)+chr(0)+chr(0)+chr(1)+chr(2)+chr(4)+chr(8)+chr(16) ? -->' + ? ' CharShr(Chr(1)+Chr(2)+Chr(4)+Chr(8)+Chr(16)+Chr(32)+' + ? ' Chr(64)+Chr(128), 3) == ' + ? ' Chr(0)+Chr(0)+Chr(0)+Chr(1)+Chr(2)+Chr(4)+Chr(8)+Chr(16) ? -->' ? ' ' cStr := CharShr( Chr( 1 ) + Chr( 2 ) + Chr( 4 ) + Chr( 8 ) + Chr( 16 ) + Chr( 32 ) + Chr( 64 ) + Chr( 128 ), 3 ) FOR ni := 1 TO Len( cStr ) - ?? "chr(" + hb_ntos( Asc( SubStr( cStr, ni, 1 ) ) ) + ")" + ?? "Chr(" + hb_ntos( Asc( SubStr( cStr, ni, 1 ) ) ) + ")" IF ni < Len( cStr ) ?? "+" ENDIF NEXT ? - ? "End test of CHARSHR()" + ? "End test of CharShr()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charslst.prg b/harbour/contrib/hbct/tests/charslst.prg index bc96a6ebdf..65791d242f 100644 --- a/harbour/contrib/hbct/tests/charslst.prg +++ b/harbour/contrib/hbct/tests/charslst.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHARSLIST() + * Test CT3 function CharSList() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,15 +56,15 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARSLIST()" + ? "Begin test of CharSList()" ? // simple tests ? "Simple tests:" - ? ' charslist("Hello World !") == " !HWdelor" ? -> "' + CharSList( "Hello World !" ) + '"' - ? ' charslist(NIL) == "" ? -> "' + CharSList( NIL ) + '"' + ? ' CharSList("Hello World !") == " !HWdelor" ? -> "' + CharSList( "Hello World !" ) + '"' + ? ' CharSList(NIL) == "" ? -> "' + CharSList( NIL ) + '"' - ? "End test of CHARSLIST()" + ? "End test of CharSList()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charsort.prg b/harbour/contrib/hbct/tests/charsort.prg index 5951342e5c..027f224a8c 100644 --- a/harbour/contrib/hbct/tests/charsort.prg +++ b/harbour/contrib/hbct/tests/charsort.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHARSORT() + * Test CT3 function CharSort() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,23 +56,23 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARSORT()" + ? "Begin test of CharSort()" ? // simple tests ? "Simple tests:" - ? ' charsort("qwert") == "eqrtw" ? --> "' + CharSort( "qwert" ) + '"' - ? ' charsort("qwert", 2) == "erqwt" ? --> "' + CharSort( "qwert", 2 ) + '"' - ? ' charsort("b1a4a3a2a1", 2, 1) == "a2a1a3a4b1" ? --> "' + CharSort( "b1a4a3a2a1", 2, 1 ) + '"' + ? ' CharSort("qwert") == "eqrtw" ? --> "' + CharSort( "qwert" ) + '"' + ? ' CharSort("qwert", 2) == "erqwt" ? --> "' + CharSort( "qwert", 2 ) + '"' + ? ' CharSort("b1a4a3a2a1", 2, 1) == "a2a1a3a4b1" ? --> "' + CharSort( "b1a4a3a2a1", 2, 1 ) + '"' ? ' NOTE : The order of equal elements(here the one beginning with the same char) is NOT determined !' - ? ' charsort("XXXqwert", 1, 1, 3) == "XXXeqrtw" ? --> "' + CharSort( "XXXqwert", 1, 1, 3 ) + '"' - ? ' charsort("b1a4a3a2a1", 2, 1, 0, 1) == "a1b1a2a3a4" ? --> "' + CharSort( "b1a4a3a2a1", 2, 1, 0, 1 ) + '"' + ? ' CharSort("XXXqwert", 1, 1, 3) == "XXXeqrtw" ? --> "' + CharSort( "XXXqwert", 1, 1, 3 ) + '"' + ? ' CharSort("b1a4a3a2a1", 2, 1, 0, 1) == "a1b1a2a3a4" ? --> "' + CharSort( "b1a4a3a2a1", 2, 1, 0, 1 ) + '"' ? ' NOTE : The order of equal elements(here the one ending with the same number) is NOT determined !' - ? ' charsort("384172852", 1, 1, 0, 0, 4) == "134872852" ? --> "' + CharSort( "384172852", 1, 1, 0, 0, 4 ) + '"' - ? ' charsort("qwert",,,,,,.T.) == "wtrqe" ? --> "' + CharSort( "qwert",,,,,, .T. ) + '"' + ? ' CharSort("384172852", 1, 1, 0, 0, 4) == "134872852" ? --> "' + CharSort( "384172852", 1, 1, 0, 0, 4 ) + '"' + ? ' CharSort("qwert",,,,,,.T.) == "wtrqe" ? --> "' + CharSort( "qwert",,,,,, .T. ) + '"' ? - ? "End test of CHARSORT()" + ? "End test of CharSort()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charsub.prg b/harbour/contrib/hbct/tests/charsub.prg index 2a85951575..09cc4f7e93 100644 --- a/harbour/contrib/hbct/tests/charsub.prg +++ b/harbour/contrib/hbct/tests/charsub.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHARSUB() + * Test CT3 function CharSub() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,17 +56,17 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARSUB()" + ? "Begin test of CharSub()" ? // simple tests ? "Simple tests:" - ? ' charadd("123456789", chr(1)) == "012345678" ? -> "' + CharSub( "123456789", Chr( 1 ) ) + '"' - ? ' charadd("123456789", chr(1)+chr(2)) == "002244668" ? -> "' + CharSub( "123456789", Chr( 1 ) + Chr( 2 ) ) + '"' - ? ' charadd("012345678", chr(255)) == "123456789" ? -> "' + CharSub( "012345678", Chr( 255 ) ) + '"' - ? ' charadd("012345678", chr(255)+Chr(254)) == "133557799" ? -> "' + CharSub( "012345678", Chr( 255 ) + Chr( 254 ) ) + '"' + ? ' CharAdd("123456789", Chr(1)) == "012345678" ? -> "' + CharSub( "123456789", Chr( 1 ) ) + '"' + ? ' CharAdd("123456789", Chr(1)+Chr(2)) == "002244668" ? -> "' + CharSub( "123456789", Chr( 1 ) + Chr( 2 ) ) + '"' + ? ' CharAdd("012345678", Chr(255)) == "123456789" ? -> "' + CharSub( "012345678", Chr( 255 ) ) + '"' + ? ' CharAdd("012345678", Chr(255)+Chr(254)) == "133557799" ? -> "' + CharSub( "012345678", Chr( 255 ) + Chr( 254 ) ) + '"' - ? "End test of CHARSUB()" + ? "End test of CharSub()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charswap.prg b/harbour/contrib/hbct/tests/charswap.prg index dbf3893358..de95f3b597 100644 --- a/harbour/contrib/hbct/tests/charswap.prg +++ b/harbour/contrib/hbct/tests/charswap.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHARSWAP() + * Test CT3 function CharSwap() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,16 +56,16 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARSWAP()" + ? "Begin test of CharSwap()" ? // simple tests ? "Simple tests:" - ? ' charswap("0123456789") == "1032547698" ? --> "' + CharSwap( "0123456789" ) + '"' - ? ' charswap("ABCDEFGHIJK") == "BADCFEHGJIK" ? --> "' + CharSwap( "ABCDEFGHIJK" ) + '"' + ? ' CharSwap("0123456789") == "1032547698" ? --> "' + CharSwap( "0123456789" ) + '"' + ? ' CharSwap("ABCDEFGHIJK") == "BADCFEHGJIK" ? --> "' + CharSwap( "ABCDEFGHIJK" ) + '"' ? - ? "End test of CHARSWAP()" + ? "End test of CharSwap()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/charxor.prg b/harbour/contrib/hbct/tests/charxor.prg index 7db21b69f3..72872154d9 100644 --- a/harbour/contrib/hbct/tests/charxor.prg +++ b/harbour/contrib/hbct/tests/charxor.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CHARXOR() + * Test CT3 function CharXor() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,16 +56,16 @@ PROCEDURE Main() ctinit() - ? "Begin test of CHARXOR()" + ? "Begin test of CharXor()" ? // simple tests ? "Simple tests:" - ? ' charxor(charxor("This is top secret !", "My Password"),' + ? ' CharXor(CharXor("This is top secret !", "My Password"),' ? ' "My Password") == "This is top secret !" ? ->' ? ' ' + CharXor( CharXor( "This is top secret !", "My Password" ), "My Password" ) - ? "End test of CHARXOR()" + ? "End test of CharXor()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/csetarge.prg b/harbour/contrib/hbct/tests/csetarge.prg index 72d562e6c0..bbe4b816ea 100644 --- a/harbour/contrib/hbct/tests/csetarge.prg +++ b/harbour/contrib/hbct/tests/csetarge.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CSETARGERR() + * Test CT3 function CSetArgErr() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -66,7 +66,7 @@ PROCEDURE Main() ctinit() - ? "Begin test of CSETARGERR()" + ? "Begin test of CSetArgErr()" ? ? @@ -77,11 +77,11 @@ PROCEDURE Main() // standard behaviour on argument error ? ? "Standard behaviour" - ? " Call to addascii(5789676,1,2,.T.):" + ? " Call to AddAscii(5789676,1,2,.T.):" cRet := AddAscii( 5789676, 1, 2, .T. ) ? " return value was", cRet ? - ? " Call to charadd('AA',.F.):" + ? " Call to CharAdd('AA',.F.):" cRet := CharAdd( "AA", .F. ) ? " return value was", cRet, "" ? @@ -91,11 +91,11 @@ PROCEDURE Main() ? ? "CT_ARGERR_WHOCARES behaviour" CSetArgErr( CT_ARGERR_WHOCARES ) - ? " Call to addascii(5789676,1,2,.T.):" + ? " Call to AddAscii(5789676,1,2,.T.):" cRet := AddAscii( 5789676, 1, 2, .T. ) ? " return value was", cRet ? - ? " Call to charadd('AA',.F.):" + ? " Call to CharAdd('AA',.F.):" cRet := CharAdd( "AA", .F. ) ? " return value was", cRet, "" ? @@ -105,11 +105,11 @@ PROCEDURE Main() ? ? "CT_ARGERR_WARNING behaviour" CSetArgErr( CT_ARGERR_WARNING ) - ? " Call to addascii(5789676,1,2,.T.):" + ? " Call to AddAscii(5789676,1,2,.T.):" cRet := AddAscii( 5789676, 1, 2, .T. ) ? " return value was", cRet ? - ? " Call to charadd('AA',.F.):" + ? " Call to CharAdd('AA',.F.):" cRet := CharAdd( "AA", .F. ) ? " return value was", cRet, "" ? @@ -119,11 +119,11 @@ PROCEDURE Main() ? ? "CT_ARGERR_ERROR behaviour" CSetArgErr( CT_ARGERR_ERROR ) - ? " Call to addascii(5789676,1,2,.T.):" + ? " Call to AddAscii(5789676,1,2,.T.):" cRet := AddAscii( 5789676, 1, 2, .T. ) ? " return value was", cRet ? - ? " Call to charadd('AA',.F.):" + ? " Call to CharAdd('AA',.F.):" cRet := CharAdd( "AA", .F. ) ? " return value was", cRet, "" ? @@ -133,11 +133,11 @@ PROCEDURE Main() ? ? "CT_ARGERR_CATASTROPHIC behaviour" CSetArgErr( CT_ARGERR_CATASTROPHIC ) - ? " Call to addascii(5789676,1,2,.T.):" + ? " Call to AddAscii(5789676,1,2,.T.):" cRet := AddAscii( 5789676, 1, 2, .T. ) ? " return value was", cRet ? - ? " Call to charadd('AA',.F.):" + ? " Call to CharAdd('AA',.F.):" cRet := CharAdd( "AA", .F. ) ? " return value was", cRet, "" ? @@ -150,7 +150,7 @@ PROCEDURE Main() // standard behaviour on argument error ? ? "Standard behaviour" - ? " Call to charadd('AA',.F.):" + ? " Call to CharAdd('AA',.F.):" cRet := CharAdd( "AA", .F. ) ? " return value was", cRet, "" ? @@ -160,7 +160,7 @@ PROCEDURE Main() ? ? "CT_ARGERR_WHOCARES behaviour" CSetArgErr( CT_ARGERR_WHOCARES ) - ? " Call to charadd('AA',.F.):" + ? " Call to CharAdd('AA',.F.):" cRet := CharAdd( "AA", .F. ) ? " return value was", cRet, "" ? @@ -170,7 +170,7 @@ PROCEDURE Main() ? ? "CT_ARGERR_WARNING behaviour" CSetArgErr( CT_ARGERR_WARNING ) - ? " Call to charadd('AA',.F.):" + ? " Call to CharAdd('AA',.F.):" cRet := CharAdd( "AA", .F. ) ? " return value was", cRet, "" ? @@ -180,7 +180,7 @@ PROCEDURE Main() ? ? "CT_ARGERR_ERROR behaviour" CSetArgErr( CT_ARGERR_ERROR ) - ? " Call to charadd('AA',.F.):" + ? " Call to CharAdd('AA',.F.):" cRet := CharAdd( "AA", .F. ) ? " return value was", cRet, "" ? @@ -190,13 +190,13 @@ PROCEDURE Main() ? ? "CT_ARGERR_CATASTROPHIC behaviour" CSetArgErr( CT_ARGERR_CATASTROPHIC ) - ? " Call to charadd('AA',.F.):" + ? " Call to CharAdd('AA',.F.):" cRet := CharAdd( "AA", .F. ) ? " return value was", cRet, "" ? Inkey( 0 ) - ? "End test of CSETARGERR()" + ? "End test of CSetArgErr()" ctexit() diff --git a/harbour/contrib/hbct/tests/csetatmu.prg b/harbour/contrib/hbct/tests/csetatmu.prg index 96970f94f8..f5f85aa9c4 100644 --- a/harbour/contrib/hbct/tests/csetatmu.prg +++ b/harbour/contrib/hbct/tests/csetatmu.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CSETATMUPA() + * Test CT3 function CSetAtMupa() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,12 +56,12 @@ PROCEDURE Main() ctinit() - ? "Begin test of CSETATMUPA()" + ? "Begin test of CSetAtMupa()" ? " Default switch should be .F., is..................................", CSetAtMupa() ? " Setting switch to .T., return value should be .F., is.............", CSetAtMupa( .T. ) ? " Switch setting should now be .T., is..............................", CSetAtMupa() ? " Setting switch to .F. again, return value should still be .T., is ", CSetAtMupa( .F. ) - ? "End test of CSETATMUPA()" + ? "End test of CSetAtMupa()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/csetref.prg b/harbour/contrib/hbct/tests/csetref.prg index 01039f6d8c..abbb94ccbc 100644 --- a/harbour/contrib/hbct/tests/csetref.prg +++ b/harbour/contrib/hbct/tests/csetref.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function CSETREF() + * Test CT3 function CSetRef() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,12 +56,12 @@ PROCEDURE Main() ctinit() - ? "Begin test of CSETREF()" + ? "Begin test of CSetRef()" ? " Default switch should be .F., is..................................", CSetRef() ? " Setting switch to .T., return value should be .F., is.............", CSetRef( .T. ) ? " Switch setting should now be .T., is..............................", CSetRef() ? " Setting switch to .F. again, return value should still be .T., is ", CSetRef( .F. ) - ? "End test of CSETREF()" + ? "End test of CSetRef()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/datetime.prg b/harbour/contrib/hbct/tests/datetime.prg index 86332e45d9..9686810c03 100644 --- a/harbour/contrib/hbct/tests/datetime.prg +++ b/harbour/contrib/hbct/tests/datetime.prg @@ -63,27 +63,27 @@ PROCEDURE Main( cLang ) LOCAL nChoice := 1 LOCAL c := .T. LOCAL farr := { ; - "addmonth( dDate ) Add a month to dDate ", ; - "bom() Beginning of month ", ; - "boq() Returns first date of qtr ", ; - "boy() Beginning of year ", ; - "ctodow() Day name to day number ", ; - "ctomonth() Month name to number ", ; - "daysInMonth() number of days in xMonth ", ; - "daystomonth(dDate) Returns num days to month ", ; - "dmy( dDate, lmode) date as DD month YY ", ; - "doy( dDate ) Returns day of the year ", ; - "eom( dDate ) Returns last day of month ", ; - "eoq( dDate ) Returns last date of qtr ", ; - "eoy( dDate ) Returns last day of year ", ; - "isleap( dDate ) Returns .T. if leap year ", ; - "lastdayom( dDate ) Returns num days in month ", ; - "mdy( dDate ) Returns stg Month DD, YY ", ; - "ntocdow( nDay ) Returns name of day ", ; - "ntocmonth( nMth ) Returns name of month ", ; - "quarter(date) Returns qtr number of date", ; + "AddMonth( dDate ) Add a month to dDate ", ; + "BoM() Beginning of month ", ; + "BoQ() Returns first date of qtr ", ; + "BoY() Beginning of year ", ; + "CToDoW() Day name to day number ", ; + "CToMonth() Month name to number ", ; + "DaysInMonth() number of days in xMonth ", ; + "DaysToMonth(dDate) Returns num days to month ", ; + "DMY( dDate, lmode) date as DD month YY ", ; + "DoY( dDate ) Returns day of the year ", ; + "EoM( dDate ) Returns last day of month ", ; + "EoQ( dDate ) Returns last date of qtr ", ; + "EoY( dDate ) Returns last day of year ", ; + "IsLeap( dDate ) Returns .T. if leap year ", ; + "LastDayOM( dDate ) Returns num days in month ", ; + "MDY( dDate ) Returns stg Month DD, YY ", ; + "NToCDoW( nDay ) Returns name of day ", ; + "NToCMonth( nMth ) Returns name of month ", ; + "Quarter(date) Returns qtr number of date", ; "stod( ansi date) Returns Clipper date ", ; - "week( dDate, lSWN ) Returns numbef of week ", } + "Week( dDate, lSWN ) Returns numbef of week ", } SET DATE ANSI SET CENTURY ON @@ -161,7 +161,7 @@ PROCEDURE Main( cLang ) FUNCTION addmtest() // - // addmonth(dDate, nMonths) + // AddMonth(dDate, nMonths) // ========================= // This version will only accept an nMonths value of from 0 to 70 @@ -172,7 +172,7 @@ FUNCTION addmtest() LOCAL nKey DO WHILE c - @ 5, 10 SAY "addmonth(dDate) returns the date incremented by" + @ 5, 10 SAY "AddMonth(dDate) returns the date incremented by" @ 6, 10 SAY "the number of days in months." @ 7, 10 SAY "Insert a date" @ 8, 10 SAY "How many months" @@ -210,7 +210,7 @@ FUNCTION addmtest() FUNCTION bomtest() // - // bom( dDate ) + // BoM( dDate ) // ============= LOCAL getlist := {} @@ -219,8 +219,8 @@ FUNCTION bomtest() LOCAL nKey DO WHILE c - @ 5, 10 SAY "bom(dDate) returns the date of the first day of dDate" - @ 6, 10 SAY "If dDate is 2002/10/15 (that's in yyyy/mm/dd), bom()" + @ 5, 10 SAY "BoM(dDate) returns the date of the first day of dDate" + @ 6, 10 SAY "If dDate is 2002/10/15 (that's in yyyy/mm/dd), BoM()" @ 7, 10 SAY "should return 2002/10/01. Test it, Insert a date" @ 9, 10 GET dDate @@ -254,7 +254,7 @@ FUNCTION bomtest() FUNCTION boqtest() // - // bom( dDate ) + // BoM( dDate ) // ============= LOCAL getlist := {} @@ -263,9 +263,9 @@ FUNCTION boqtest() LOCAL nKey DO WHILE c - @ 5, 10 SAY "boq(dDate) returns the date of the first day of the" + @ 5, 10 SAY "BoQ(dDate) returns the date of the first day of the" @ 6, 10 SAY "quarter in which dDate is situated. If dDate is" - @ 7, 10 SAY "2002/10/15 (that's in yyyy/mm/dd), BOQ() should return" + @ 7, 10 SAY "2002/10/15 (that's in yyyy/mm/dd), BoQ() should return" @ 8, 10 SAY "2002/09/01. Test it, Insert a date" @ 9, 10 GET dDate @@ -300,7 +300,7 @@ FUNCTION boqtest() FUNCTION boytest() // - // boy( dDate ) + // BoY( dDate ) // ============= LOCAL getlist := {} @@ -309,8 +309,8 @@ FUNCTION boytest() LOCAL nkey DO WHILE c - @ 5, 10 SAY "boy(dDate) returns the date of the first day of dDate" - @ 6, 10 SAY "If dDate is 2002/10/15 (that's in yyyy/mm/dd), boy()" + @ 5, 10 SAY "BoY(dDate) returns the date of the first day of dDate" + @ 6, 10 SAY "If dDate is 2002/10/15 (that's in yyyy/mm/dd), BoY()" @ 7, 10 SAY "should return 2002/01/01. Test it, Insert a date" @ 9, 10 GET dDate @@ -346,7 +346,7 @@ FUNCTION boytest() FUNCTION ctodowtest() // - // ctodow( cDow ) + // CToDoW( cDow ) // ============== // Convert name of day of the week to its ordinal number // if cDow is invalid, returns 0 @@ -358,7 +358,7 @@ FUNCTION ctodowtest() LOCAL c := .T. DO WHILE c - @ 5, 10 SAY "ctodow(dDate) receives the name of a day of the week and " + @ 5, 10 SAY "CToDoW(dDate) receives the name of a day of the week and " @ 6, 10 SAY "returns a number representing its position in the week" @ 7, 10 SAY "Sunday returns 1. Test it, Insert a day" @ 9, 10 GET cDow @@ -395,10 +395,10 @@ FUNCTION ctodowtest() FUNCTION ctomonthtest() // - // ctomonth(cDom ) + // CToMonth(cDom ) // =============== // Convert the name of a month to its ordinal number. If cMonth is - // invalid, ctomonth() Returns 0. English month names only + // invalid, CToMonth() Returns 0. English month names only LOCAL getlist := {} LOCAL cDom := Space( 9 ) @@ -406,7 +406,7 @@ FUNCTION ctomonthtest() LOCAL nKey DO WHILE c - @ 5, 10 SAY "ctomonth(dDate) receives the name of a month and returns" + @ 5, 10 SAY "CToMonth(dDate) receives the name of a month and returns" @ 6, 10 SAY "a number representing its position in the month. April" @ 7, 10 SAY "returns 4. Test it, Insert a month" @ 9, 10 GET cDom PICTURE "!!!!!!!!!" @@ -444,7 +444,7 @@ FUNCTION ctomonthtest() FUNCTION dInMonthtest() // - // daysInMonth( xDate, lleap ) + // DaysInMonth( xDate, lleap ) // ============================ // Returns the number of days in nMonth, either whose name as a // string or month number is passed. English Month names only. @@ -457,7 +457,7 @@ FUNCTION dInMonthtest() LOCAL cLeap := Space( 1 ) DO WHILE c - @ 5, 10 SAY "daysInmonth() receives either the number of a month or" + @ 5, 10 SAY "DaysInMonth() receives either the number of a month or" @ 6, 10 SAY "its name and returns the number of days in the month. " @ 7, 10 SAY "April returns 30. Test it. Insert a month number" @ 8, 10 SAY "Is it a leap year?" @@ -512,7 +512,7 @@ FUNCTION dInMonthtest() FUNCTION d2month() // - // daystomonth() + // DaysToMonth() // ============= // Total number days from first of Jan to beginning of nMonth. // lLeap is .F. for a non-leap year but .T. if it is. If so and @@ -526,7 +526,7 @@ FUNCTION d2month() LOCAL nKey DO WHILE c - @ 5, 10 SAY "daystomonth() receives the number a month and returns" + @ 5, 10 SAY "DaysToMonth() receives the number a month and returns" @ 6, 10 SAY "the number of days in the year up to that month. March" @ 7, 10 SAY "returns 59 or 60 in a leap year. Test it." @ 8, 10 SAY "Insert a month number" @@ -570,7 +570,7 @@ FUNCTION d2month() FUNCTION dmytest() // - // dmy( dDate, lmode) + // DMY( dDate, lmode) // =================== // Returns the date as a string in DD Month YY format. If lmode // is .T., a "." is inserted after the DD @@ -584,7 +584,7 @@ FUNCTION dmytest() LOCAL nKey DO WHILE c - @ 5, 10 SAY "dmy() receives a date and logical lmode. If lmode is" + @ 5, 10 SAY "DMY() receives a date and logical lmode. If lmode is" @ 6, 10 SAY "is either missing or FALSE, dmy returns the date as" @ 7, 10 SAY "a string in DD Month YY format. If lmode is TRUE, a" @ 8, 10 SAY "full stop or perod '.' is inserted after DD. Test it" @@ -627,7 +627,7 @@ FUNCTION dmytest() FUNCTION doytest() // - // doy( dDate ) + // DoY( dDate ) // ============= // Determines the day of the year for a specific date // if dDate is invalid, returns 0 @@ -638,7 +638,7 @@ FUNCTION doytest() LOCAL nKey DO WHILE c - @ 5, 10 SAY "doy(dDate) returns the day of the year for the" + @ 5, 10 SAY "DoY(dDate) returns the day of the year for the" @ 6, 10 SAY "date passed. Test it, Insert a date" @ 9, 10 GET dDate @@ -675,7 +675,7 @@ FUNCTION doytest() FUNCTION eomtest() // - // dBom := eom( dDate ) + // dBom := EoM( dDate ) // ===================== // Returns the last date in the month of the month appearing in // date. @@ -686,7 +686,7 @@ FUNCTION eomtest() LOCAL nKey DO WHILE c - @ 5, 10 SAY "eom(dDate) returns the last date in the month of the" + @ 5, 10 SAY "EoM(dDate) returns the last date in the month of the" @ 6, 10 SAY "month appearing in dDate. Test it, Insert a date" @ 9, 10 GET dDate @@ -724,7 +724,7 @@ FUNCTION eomtest() FUNCTION eoqtest() // - // dret := eoq( dDate ) + // dret := EoQ( dDate ) // ===================== // Returns the last date in the quarter in which dDate falls. @@ -734,7 +734,7 @@ FUNCTION eoqtest() LOCAL nKey DO WHILE c - @ 5, 10 SAY "EOQ(dDate) returns the last date in the quarter in" + @ 5, 10 SAY "EoQ(dDate) returns the last date in the quarter in" @ 6, 10 SAY "which dDate falls. Test it, Insert a date" @ 9, 10 GET dDate @@ -772,7 +772,7 @@ FUNCTION eoqtest() FUNCTION eoytest() // - // dEoy := eoy( dDate ) + // dEoy := EoY( dDate ) // ===================== // Returns the last date in the year of the year appearing in // date. @@ -783,7 +783,7 @@ FUNCTION eoytest() LOCAL nKey DO WHILE c - @ 5, 10 SAY "eoy(dDate) returns the last date in the year of the" + @ 5, 10 SAY "EoY(dDate) returns the last date in the year of the" @ 6, 10 SAY "year appearing in dDate. Test it, Insert a date" @ 9, 10 GET dDate @@ -821,7 +821,7 @@ FUNCTION eoytest() FUNCTION isleaptest() // - // lRet := isleap( dDate ) + // lRet := IsLeap( dDate ) // ======================== // if dDate is a leap year, lRet is .T., otherwise .F.. // Leap years are exactly divisible by 4 and 1,000 but not 100. @@ -833,7 +833,7 @@ FUNCTION isleaptest() LOCAL nKey DO WHILE c - @ 5, 10 SAY "isleap(dDate) returns TRUE if dDate is a leap year" + @ 5, 10 SAY "IsLeap(dDate) returns TRUE if dDate is a leap year" @ 6, 10 SAY "Test it, Insert a date" @ 9, 10 GET dDate @@ -876,7 +876,7 @@ FUNCTION isleaptest() FUNCTION lastdayomtest() // - // ndays := lastdayom( xDate ) + // ndays := LastDayOM( xDate ) // =========================== // Returns the the number of days in the month. // xDate can be a date or a month number. If empty uses the @@ -890,7 +890,7 @@ FUNCTION lastdayomtest() LOCAL cMth := " " DO WHILE c - @ 5, 10 SAY "lastdayom(xDate) returns the number of days in the" + @ 5, 10 SAY "LastDayOM(xDate) returns the number of days in the" @ 6, 10 SAY "month appearing in date. Or, if only a month number" @ 7, 10 SAY "is passed, in that month. Test it. " @ 9, 10 SAY "Insert a date(or)" @@ -936,7 +936,7 @@ FUNCTION lastdayomtest() FUNCTION mdytest() // - // cDate := mdy( dDate ) + // cDate := MDY( dDate ) // ====================== // Returns the date as a string in "Month DD, YY" or "Month DD, YYYY" // If dDate is NULL, the system date is used @@ -948,7 +948,7 @@ FUNCTION mdytest() LOCAL nKey DO WHILE c - @ 5, 10 SAY "mdy() receives a date. mdy returns the date as" + @ 5, 10 SAY "MDY() receives a date. mdy returns the date as" @ 6, 10 SAY "a string in month DD YY format. Test it" @ 8, 10 SAY "Insert a date" @ 8, 30 GET dDate PICTURE "@D / / " @@ -987,9 +987,9 @@ FUNCTION mdytest() FUNCTION ntocdowtest() // - // cDay := ntocdow( nDayNum ) + // cDay := NToCDoW( nDayNum ) // ================================== - // ntocdow() receives the number of a day and returns its + // NToCDoW() receives the number of a day and returns its // name as a string. This version does not observe the Nations // module. English only. @@ -999,7 +999,7 @@ FUNCTION ntocdowtest() LOCAL nKey DO WHILE c - @ 5, 10 SAY "ntocdow(n) returns the name of the day number n" + @ 5, 10 SAY "NToCDoW(n) returns the name of the day number n" @ 6, 10 SAY "Test it, Insert a day number" @ 6, 60 GET cDay @@ -1037,9 +1037,9 @@ FUNCTION ntocdowtest() FUNCTION ntocmthtest() // - // cMonth := ntocmonth( nMonthNum ) + // cMonth := NToCMonth( nMonthNum ) // ================================== - // ntocmonth() receives the number of a month and returns its + // NToCMonth() receives the number of a month and returns its // name as a string. This version does not observe the Nations // module. English only. @@ -1049,7 +1049,7 @@ FUNCTION ntocmthtest() LOCAL nKey DO WHILE c - @ 5, 10 SAY "ntocmonth(n) returns the name of the month number n" + @ 5, 10 SAY "NToCMonth(n) returns the name of the month number n" @ 6, 10 SAY "Test it, Insert a month number" @ 6, 60 GET cMonth @@ -1087,7 +1087,7 @@ FUNCTION ntocmthtest() FUNCTION qtrtest() // - // nqtr := quarter( dDate ) + // nqtr := Quarter( dDate ) // =========================== // Returns the quarter as a number. If no date is specified, // the system date is used. @@ -1098,7 +1098,7 @@ FUNCTION qtrtest() LOCAL nKey DO WHILE c - @ 5, 10 SAY "quarter(dDate) returns the number of the quarter" + @ 5, 10 SAY "Quarter(dDate) returns the number of the quarter" @ 6, 10 SAY "Test it, Insert a date" @ 6, 52 GET dDate @@ -1213,7 +1213,7 @@ FUNCTION chkansi( cAnsidate ) FUNCTION weektest() // - // nWeek := week( dDate, lSWN ) + // nWeek := Week( dDate, lSWN ) // ============================= // Returns the calendar week as a number. If no date is specified, // the system date is used. An empty date viz stod() @@ -1226,7 +1226,7 @@ FUNCTION weektest() LOCAL cMode := Space( 1 ) DO WHILE c - @ 5, 10 SAY "week(dDate, lSWN) returns the calendar number of the week" + @ 5, 10 SAY "Week(dDate, lSWN) returns the calendar number of the week" @ 6, 10 SAY "if lSWN == .T., the simple week number is returned" @ 7, 10 SAY "if lSWN == .F.(default), the ISO8601 week number is returned" diff --git a/harbour/contrib/hbct/tests/expomant.prg b/harbour/contrib/hbct/tests/expomant.prg index 6d090fa366..9245312725 100644 --- a/harbour/contrib/hbct/tests/expomant.prg +++ b/harbour/contrib/hbct/tests/expomant.prg @@ -65,11 +65,11 @@ PROCEDURE Main() ? Str( Sqrt( n ), 20, 15 ) + ": " + Str( Mantissa( Sqrt( n ) ), 20, 15 ) + " " + Str( Exponent( Sqrt( n ) ), 4 ) NEXT - // The call to str( infinity(.T.) ), generate a GPF. - // ?? Str( infinity( .T. ) ) + Str( mantissa( infinity( .T. ) ) ) + Str( exponent( infinity( .T. ) ) ) - // ?? Str( infinity( .T. ) ) + // The call to str( Infinity(.T.) ), generate a GPF. + // ?? Str( Infinity( .T. ) ) + Str( Mantissa( Infinity( .T. ) ) ) + Str( Exponent( Infinity( .T. ) ) ) + // ?? Str( Infinity( .T. ) ) - ?? " infinity(.T.): " + Str( Mantissa( Infinity( .T. ) ), 20, 15 ) + " " + ?? " Infinity(.T.): " + Str( Mantissa( Infinity( .T. ) ), 20, 15 ) + " " ? Str( Exponent( Infinity( .T. ) ), 4 ) ctexit() diff --git a/harbour/contrib/hbct/tests/finan.prg b/harbour/contrib/hbct/tests/finan.prg index 514fe7e011..6f17872ca9 100644 --- a/harbour/contrib/hbct/tests/finan.prg +++ b/harbour/contrib/hbct/tests/finan.prg @@ -78,7 +78,7 @@ PROCEDURE Main() ? "Calculate the monthly payment for a loan of $2000.00 at an annual rate" ? "of 10%, within 24 month " - ? "PAYMENT( 2000.00, 0.10 / 12, 24 ) = 92.290 // CT3" + ? "Payment( 2000.00, 0.10 / 12, 24 ) = 92.290 // CT3" ? Space( 28 ), Payment( 2000.00, 0.10 / 12, 24 ), " <-- CT for Harbour" ? ? " PRESS ANY KEY" @@ -88,14 +88,14 @@ PROCEDURE Main() ? ? "Calculate how many month do you need to cancel a loan of $4000.00 at" ? "an annual rate of 9.5% with payments of $200.00 max" - ? "PERIODS( 4000.00, 200.00, 0.095 / 12 ) = 21.859 // CT3" + ? "Periods( 4000.00, 200.00, 0.095 / 12 ) = 21.859 // CT3" ? Space( 33 ), Periods( 4000.00, 200.00, 0.095 / 12 ), " <-- CT for Harbour" ? ? ? "Calculate which is the effective anual rate of your Bank, for a loan" ? "of $2500.00 if you pay $86.67 per month for 3 years" - ? "RATE( 2500.00, 86.67, 36 ) * 12 = 0.1501 // CT3" + ? "Rate( 2500.00, 86.67, 36 ) * 12 = 0.1501 // CT3" ? Space( 24 ), Rate( 2500.00, 86.67, 36 ) * 12.0, " <-- CT for Harbour" ? ? " PRESS ANY KEY" diff --git a/harbour/contrib/hbct/tests/math.prg b/harbour/contrib/hbct/tests/math.prg index c25dadf73f..864b718d96 100644 --- a/harbour/contrib/hbct/tests/math.prg +++ b/harbour/contrib/hbct/tests/math.prg @@ -63,99 +63,99 @@ PROCEDURE Main() ? "Test of mathematical functions" ? - ? "FLOOR( 1.9 ) = 1 // CT3" + ? "Floor( 1.9 ) = 1 // CT3" ? Space( 5 ), Floor( 1.9 ), " <-- CT for Harbour" ? - ? "FLOOR( 1.1 ) = 1 // CT3" + ? "Floor( 1.1 ) = 1 // CT3" ? Space( 5 ), Floor( 1.1 ), " <-- CT for Harbour" ? - ? "FLOOR( 0.9 ) = 0 // CT3" + ? "Floor( 0.9 ) = 0 // CT3" ? Space( 5 ), Floor( 0.9 ), " <-- CT for Harbour" ? - ? "FLOOR( -0.1 ) = -1 // CT3" + ? "Floor( -0.1 ) = -1 // CT3" ? Space( 7 ), Floor( -0.1 ), " <-- CT for Harbour" ? - ? "FLOOR( -0.9 ) = -1 // CT3" + ? "Floor( -0.9 ) = -1 // CT3" ? Space( 7 ), Floor( -0.9 ), " <-- CT for Harbour" ? - ? "FLOOR( -1.1 ) = -2 // CT3" + ? "Floor( -1.1 ) = -2 // CT3" ? Space( 7 ), Floor( -1.1 ), " <-- CT for Harbour" ? WAIT4() - ? "CEILING( 1.9 ) = 2 // CT3" + ? "Ceiling( 1.9 ) = 2 // CT3" ? Space( 7 ), Ceiling( 1.9 ), " <-- CT for Harbour" ? - ? "CEILING( 1.1 ) = 2 // CT3" + ? "Ceiling( 1.1 ) = 2 // CT3" ? Space( 7 ), Ceiling( 1.1 ), " <-- CT for Harbour" ? - ? "CEILING( 0.9 ) = 1 // CT3" + ? "Ceiling( 0.9 ) = 1 // CT3" ? Space( 7 ), Ceiling( 0.9 ), " <-- CT for Harbour" ? - ? "CEILING( -0.1 ) = 0 // CT3" + ? "Ceiling( -0.1 ) = 0 // CT3" ? Space( 8 ), Ceiling( -0.1 ), " <-- CT for Harbour" ? - ? "CEILING( -0.9 ) = 0 // CT3" + ? "Ceiling( -0.9 ) = 0 // CT3" ? Space( 8 ), Ceiling( -0.9 ), " <-- CT for Harbour" ? - ? "CEILING( -1.1 ) = -1 // CT3" + ? "Ceiling( -1.1 ) = -1 // CT3" ? Space( 9 ), Ceiling( -1.1 ), " <-- CT for Harbour" ? WAIT4() - ? "LOG10( 0.01 ) = -2.00 // CT3" + ? "Log10( 0.01 ) = -2.00 // CT3" ? Space( 7 ), Log10( 0.01 ), " <-- CT for Harbour" ? - ? "LOG10( 2 ) = 0.30 // CT3" + ? "Log10( 2 ) = 0.30 // CT3" ? Space( 3 ), Log10( 2 ), " <-- CT for Harbour" ? - ? "LOG10( 100 ) = 2.00 // CT3" + ? "Log10( 100 ) = 2.00 // CT3" ? Space( 5 ), Log10( 100 ), " <-- CT for Harbour" ? ? - ? "SIGN( 48335 ) = 1 // CT3" + ? "Sign( 48335 ) = 1 // CT3" ? Space( 6 ), Sign( 48335 ), " <-- CT for Harbour" ? - ? "SIGN( -258 ) = -1 // CT3" + ? "Sign( -258 ) = -1 // CT3" ? Space( 6 ), Sign( -258 ), " <-- CT for Harbour" ? WAIT4() SET DECIMALS TO 0 - ? "FACT( 1 ) = 1 // CT3" + ? "Fact( 1 ) = 1 // CT3" ? Space( 2 ), Fact( 1 ), " <-- CT for Harbour" ? - ? "FACT( 5 ) = 120 // CT3" + ? "Fact( 5 ) = 120 // CT3" ? Space( 4 ), Fact( 5 ), " <-- CT for Harbour" ? - ? "FACT( 21 ) = 51090942171709440000 // CT3" + ? "Fact( 21 ) = 51090942171709440000 // CT3" ? Space( 12 ), Fact( 21 ), " <-- CT for Harbour" ? - ? "FACT( 25 ) = -1 // CT3" + ? "Fact( 25 ) = -1 // CT3" ? Space( 4 ), Fact( 25 ), " <-- CT for Harbour" ? - ? "FACT( 0 ) = 1 // CT3" + ? "Fact( 0 ) = 1 // CT3" ? Space( 2 ), Fact( 0 ), " <-- CT for Harbour" ? diff --git a/harbour/contrib/hbct/tests/num1.prg b/harbour/contrib/hbct/tests/num1.prg index 2d7f10c042..28976c3fa7 100644 --- a/harbour/contrib/hbct/tests/num1.prg +++ b/harbour/contrib/hbct/tests/num1.prg @@ -60,38 +60,38 @@ PROCEDURE Main() ?? "Test of Numeric functions - part 1" - ? "CELSIUS( 33.8 ) = 1 // CT3" + ? "Celsius( 33.8 ) = 1 // CT3" ? Space( 10 ), Celsius( 33.8 ), " <-- CT for Harbour " ? - ? "CELSIUS( 338.0 ) = 170 // CT3" + ? "Celsius( 338.0 ) = 170 // CT3" ? Space( 11 ), Celsius( 338.0 ), " <-- CT for Harbour " ? - ? "CELSIUS( 3380.0 ) = 1860 // CT3" + ? "Celsius( 3380.0 ) = 1860 // CT3" ? Space( 12 ), Celsius( 3380.0 ), " <-- CT for Harbour " ? - ? "CELSIUS( -33.8 ) = -36.5555.. // CT3" + ? "Celsius( -33.8 ) = -36.5555.. // CT3" ? Space( 10 ), Celsius( -33.8 ), " <-- CT for Harbour " ? - ? "FAHRENHEIT( 12.5 ) = 54.5 // CT3" + ? "Fahrenheit( 12.5 ) = 54.5 // CT3" ? Space( 12 ), Fahrenheit( 12.5 ), " <-- CT for Harbour " ? - ? "FAHRENHEIT( 125 ) = 257 // CT3" + ? "Fahrenheit( 125 ) = 257 // CT3" ? Space( 12 ), Fahrenheit( 125 ), " <-- CT for Harbour " ? - ? "FAHRENHEIT( 1250 ) = 2282 // CT3" + ? "Fahrenheit( 1250 ) = 2282 // CT3" ? Space( 14 ), Fahrenheit( 1250 ), " <-- CT for Harbour " ? - ? "FAHRENHEIT( -155 ) = -247 // CT3" + ? "Fahrenheit( -155 ) = -247 // CT3" ? Space( 14 ), Fahrenheit( -155 ), " <-- CT for Harbour " ? - ? "INFINITY() // CT3" + ? "Infinity() // CT3" ? Space( 8 ), Str( Infinity(), 30, 15 ), " <-- CT for Harbour" ? diff --git a/harbour/contrib/hbct/tests/numtoken.prg b/harbour/contrib/hbct/tests/numtoken.prg index 72657d5c12..7ec36dd3a4 100644 --- a/harbour/contrib/hbct/tests/numtoken.prg +++ b/harbour/contrib/hbct/tests/numtoken.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function NUMTOKEN() + * Test CT3 function NumToken() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -58,14 +58,14 @@ PROCEDURE Main() ctinit() - ? "Begin test of NUMTOKEN()" + ? "Begin test of NumToken()" ? // Some simple tests ? " Simple tests:" - ? ' numtoken("Hello, World!") == 2 ? ------------------------------> ' + Str( NumToken( "Hello, World!" ), 2 ) - ? ' numtoken("This is good. See you! How do you do?",".!?") == 3 ? -> ' + Str( NumToken( "This is good. See you! How do you do?", ".!?" ), 2 ) - ? ' numtoken("one,,three,four,,six",",",1) == 6 ? -----------------> ' + Str( NumToken( "one,,three,four,,six", ",", 1 ), 2 ) + ? ' NumToken("Hello, World!") == 2 ? ------------------------------> ' + Str( NumToken( "Hello, World!" ), 2 ) + ? ' NumToken("This is good. See you! How do you do?",".!?") == 3 ? -> ' + Str( NumToken( "This is good. See you! How do you do?", ".!?" ), 2 ) + ? ' NumToken("one,,three,four,,six",",",1) == 6 ? -----------------> ' + Str( NumToken( "one,,three,four,,six", ",", 1 ), 2 ) ? ? ' # of tokens in the string "' + cStr + '"' @@ -77,7 +77,7 @@ PROCEDURE Main() ? ' skip width = 3: ' + Str( NumToken( cStr, "!", 3 ) ) ? - ? "End test of NUMTOKEN()" + ? "End test of NumToken()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/rangerem.prg b/harbour/contrib/hbct/tests/rangerem.prg index 3aecf9504d..9f75af3a53 100644 --- a/harbour/contrib/hbct/tests/rangerem.prg +++ b/harbour/contrib/hbct/tests/rangerem.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function RANGEREM() + * Test CT3 function RangeRem() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,7 +56,7 @@ PROCEDURE Main() ctinit() - ? "Begin test of RANGEREM()" + ? "Begin test of RangeRem()" ? ? ' RangeRem( "0", "9", "year2002.dbf" ) == "year.dbf" ? --> "' + ; @@ -67,7 +67,7 @@ PROCEDURE Main() RangeRem( "0", "9", "yearcurr.dbf" ) + '"' ? - ? "End test of RANGEREM()" + ? "End test of RangeRem()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/rangerep.prg b/harbour/contrib/hbct/tests/rangerep.prg index 4b74c69cdd..7fe1f82498 100644 --- a/harbour/contrib/hbct/tests/rangerep.prg +++ b/harbour/contrib/hbct/tests/rangerep.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function RANGEREPL() + * Test CT3 function RangeRepl() * * Copyright 2002 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,7 +56,7 @@ PROCEDURE Main() ctinit() - ? "Begin test of RANGEREPL()" + ? "Begin test of RangeRepl()" ? ? ' RangeRepl( "0", "9", "year2002.dbf", "?" ) == "year????.dbf" ? --> "' + ; @@ -67,7 +67,7 @@ PROCEDURE Main() RangeRepl( "0", "9", "yearcurr.dbf", "?" ) + '"' ? - ? "End test of RANGEREPL()" + ? "End test of RangeRepl()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/setatlik.prg b/harbour/contrib/hbct/tests/setatlik.prg index b31a797056..63dc4e8ed7 100644 --- a/harbour/contrib/hbct/tests/setatlik.prg +++ b/harbour/contrib/hbct/tests/setatlik.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function SETATLIKE() + * Test CT3 function SetAtLike() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -58,7 +58,7 @@ PROCEDURE Main() ctinit() - ? "Begin test of SETATLIKE()" + ? "Begin test of SetAtLike()" ? " Default mode should be 0, is................................", SetAtLike() ? " Setting mode to 1, return value should be 0, is.............", SetAtLike( 1 ) ? " Mode setting should now be 1, is............................", SetAtLike() @@ -68,9 +68,9 @@ PROCEDURE Main() ? " Default wildcard character should be '?', is................", cWildcard SetAtLike( , "#" ) SetAtLike( , @cWildcard ) - ? " Setting wildcard to '#' and calling SETATLIKE(,@cWildcard)" + ? " Setting wildcard to '#' and calling SetAtLike(,@cWildcard)" ? " should yield '#' for cWildcard, does......................", cWildcard - ? "End test of SETATLIKE()" + ? "End test of SetAtLike()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/strdiff.prg b/harbour/contrib/hbct/tests/strdiff.prg index 7a6ba51a20..5c3089c244 100644 --- a/harbour/contrib/hbct/tests/strdiff.prg +++ b/harbour/contrib/hbct/tests/strdiff.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function STRDIFF() + * Test CT3 function StrDiff() * * Copyright 2002 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,20 +56,20 @@ PROCEDURE Main() ctinit() - ? "Begin test of STRDIFF()" + ? "Begin test of StrDiff()" ? // simple tests ? "Simple tests:" - ? ' strdiff("ABC", "ADC") == 3 ? -> ', StrDiff( "ABC", "ADC" ) - ? ' strdiff("ABC", "AEC") == 3 ? -> ', StrDiff( "ABC", "AEC" ) - ? ' strdiff("CBA", "ABC") == 6 ? -> ', StrDiff( "CBA", "ABC" ) - ? ' strdiff("ABC", "AXBC") == 1 ? -> ', StrDiff( "ABC", "AXBC" ) - ? ' strdiff("AXBC", "ABC") == 6 ? -> ', StrDiff( "AXBC", "ABC" ) - ? ' strdiff("AXBC", "ADC") == 9 ? -> ', StrDiff( "AXBC", "ADC" ) + ? ' StrDiff("ABC", "ADC") == 3 ? -> ', StrDiff( "ABC", "ADC" ) + ? ' StrDiff("ABC", "AEC") == 3 ? -> ', StrDiff( "ABC", "AEC" ) + ? ' StrDiff("CBA", "ABC") == 6 ? -> ', StrDiff( "CBA", "ABC" ) + ? ' StrDiff("ABC", "AXBC") == 1 ? -> ', StrDiff( "ABC", "AXBC" ) + ? ' StrDiff("AXBC", "ABC") == 6 ? -> ', StrDiff( "AXBC", "ABC" ) + ? ' StrDiff("AXBC", "ADC") == 9 ? -> ', StrDiff( "AXBC", "ADC" ) - ? "End test of STRDIFF()" + ? "End test of StrDiff()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/tab.prg b/harbour/contrib/hbct/tests/tab.prg index 7df0868342..4b87769849 100644 --- a/harbour/contrib/hbct/tests/tab.prg +++ b/harbour/contrib/hbct/tests/tab.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 functions TABEXPAND() and TABPACK() + * Test CT3 functions TabExpand() and TabPack() * * Copyright 2002 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -58,17 +58,17 @@ PROCEDURE Main() ctinit() - ? "Begin test of TABEXPAND()" + ? "Begin test of TabExpand()" ? // simple tests ? "Simple tests:" - ? ' tabexpand("-"+chr(9)+"!") == "- !" ? -> "' + TabExpand( "-" + Chr( 9 ) + "!" ) + '"' - ? ' tabexpand("----"+chr(9) +"!") == "---- !" ? -> "' + TabExpand( "----" + Chr( 9 ) + "!" ) + '"' - ? ' tabexpand("-"+chr(9)+"!",, "+") == "-+++++++!" ? -> "' + TabExpand( "-" + Chr( 9 ) + "!",, "+" ) + '"' - ? ' tabexpand("-"+chr(9)+ "!", 4) == "- !" ? -> "' + TabExpand( "-" + Chr( 9 ) + "!", 4 ) + '"' - ? ' tabexpand("----"+chr(9)+ "!", 8) == "---- !" ? -> "' + TabExpand( "----" + Chr( 9 ) + "!", 8 ) + '"' - ? ' tabexpand("----"+chr(9)+ "!", 8, "+") == "----++++!" ? -> "' + TabExpand( "----" + Chr( 9 ) + "!", 8, "+" ) + '"' + ? ' TabExpand("-"+Chr(9)+"!") == "- !" ? -> "' + TabExpand( "-" + Chr( 9 ) + "!" ) + '"' + ? ' TabExpand("----"+Chr(9) +"!") == "---- !" ? -> "' + TabExpand( "----" + Chr( 9 ) + "!" ) + '"' + ? ' TabExpand("-"+Chr(9)+"!",, "+") == "-+++++++!" ? -> "' + TabExpand( "-" + Chr( 9 ) + "!",, "+" ) + '"' + ? ' TabExpand("-"+Chr(9)+ "!", 4) == "- !" ? -> "' + TabExpand( "-" + Chr( 9 ) + "!", 4 ) + '"' + ? ' TabExpand("----"+Chr(9)+ "!", 8) == "---- !" ? -> "' + TabExpand( "----" + Chr( 9 ) + "!", 8 ) + '"' + ? ' TabExpand("----"+Chr(9)+ "!", 8, "+") == "----++++!" ? -> "' + TabExpand( "----" + Chr( 9 ) + "!", 8, "+" ) + '"' ? ? "Tests with newline characters: ^J == LF, ^M == CR" @@ -79,36 +79,36 @@ PROCEDURE Main() cStr := TabExpand( "-" + Chr( 9 ) + "!" + hb_eol() + "----" + Chr( 9 ) + "!", , "+" ) cStr := StrTran( cStr, Chr( 10 ), "^J" ) cStr := StrTran( cStr, Chr( 13 ), "^M" ) - ? ' tabexpand("-"+chr(9)+"!"+hb_eol()+"----"+chr(9)+ "!",, "+")' + ? ' TabExpand("-"+Chr(9)+"!"+hb_eol()+"----"+Chr(9)+ "!",, "+")' ? ' == "-+++++++!"+hb_eol()+"----++++!" ? -> "' + cStr + '"' cStr := TabExpand( "-" + Chr( 9 ) + "!$$--" + hb_eol() + "--" + Chr( 9 ) + "!", , "+", "$" ) cStr := StrTran( cStr, Chr( 10 ), "^J" ) cStr := StrTran( cStr, Chr( 13 ), "^M" ) - ? ' tabexpand("-"+chr(9)+"!$$--"+hb_eol()+--"+chr(9)+ "!",, "+", "$")' + ? ' TabExpand("-"+Chr(9)+"!$$--"+hb_eol()+--"+Chr(9)+ "!",, "+", "$")' nLen := Len( hb_eol() ) ? ' == "-+++++++!$$--"+hb_eol()+"' + Replicate( "-", 4 - nLen ) + '++!" ? -> "' + cStr + '"' ? ? "Tests with tab characters:" - ? ' tabexpand("-"+chr(9)+"-",,"+") == "-+++++++-" ? -> "' + TabExpand( "-" + Chr( 9 ) + "-",, "+" ) + '"' - ? ' tabexpand("-"+chr(9)+"-",,"+",,"-")' + ? ' TabExpand("-"+Chr(9)+"-",,"+") == "-+++++++-" ? -> "' + TabExpand( "-" + Chr( 9 ) + "-",, "+" ) + '"' + ? ' TabExpand("-"+Chr(9)+"-",,"+",,"-")' ? ' == "++++++++^I+++++++" ? -> "' + StrTran( TabExpand( "-" + Chr( 9 ) + "-",, "+",, "-" ), Chr( 9 ), "^I" ) + '"' ? - ? "End test of TABEXPAND()" - ? "Press any key to continue with tests of TABPACK()..." + ? "End test of TabExpand()" + ? "Press any key to continue with tests of TabPack()..." ? Inkey( 0 ) - ? "Begin test of TABPACK()" + ? "Begin test of TabPack()" ? // simple tests ? "Simple tests: ^I == tab character" - ? ' tabpack("AAAAAAA*",, "*") == "AAAAAAA*" ? -> "' + StrTran( TabPack( "AAAAAAA*",, "*" ), Chr( 9 ), "^I" ) + '"' - ? ' tabpack("AAAAA***",, "*") == "AAAAA^I" ? -> "' + StrTran( TabPack( "AAAAA***",, "*" ), Chr( 9 ), "^I" ) + '"' - ? ' tabpack("AAAAA*****",, "*") == "AAAAA^I**" ? -> "' + StrTran( TabPack( "AAAAA*****",, "*" ), Chr( 9 ), "^I" ) + '"' + ? ' TabPack("AAAAAAA*",, "*") == "AAAAAAA*" ? -> "' + StrTran( TabPack( "AAAAAAA*",, "*" ), Chr( 9 ), "^I" ) + '"' + ? ' TabPack("AAAAA***",, "*") == "AAAAA^I" ? -> "' + StrTran( TabPack( "AAAAA***",, "*" ), Chr( 9 ), "^I" ) + '"' + ? ' TabPack("AAAAA*****",, "*") == "AAAAA^I**" ? -> "' + StrTran( TabPack( "AAAAA*****",, "*" ), Chr( 9 ), "^I" ) + '"' ? ? "Tests with newline characters:" @@ -122,10 +122,10 @@ PROCEDURE Main() cStr := StrTran( cStr, Chr( 10 ), "^J" ) cStr := StrTran( cStr, Chr( 13 ), "^M" ) cStr := StrTran( cStr, Chr( 9 ), "^I" ) - ? ' tabpack("ABCD+" + hb_eol() + "++---+++++", 4, "+")' - ? ' == "ABCD+"+hb_eol()+"++---"+chr(9)+"++" ? -> "' + cStr + '"' + ? ' TabPack("ABCD+" + hb_eol() + "++---+++++", 4, "+")' + ? ' == "ABCD+"+hb_eol()+"++---"+Chr(9)+"++" ? -> "' + cStr + '"' - ? "End test of TABPACK()" + ? "End test of TabPack()" ? #if 0 diff --git a/harbour/contrib/hbct/tests/token.prg b/harbour/contrib/hbct/tests/token.prg index 89a1fcd4c5..a5dcce39f9 100644 --- a/harbour/contrib/hbct/tests/token.prg +++ b/harbour/contrib/hbct/tests/token.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function TOKEN() + * Test CT3 function Token() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -65,15 +65,15 @@ PROCEDURE Main() ctinit() - ? "Begin test of TOKEN()" + ? "Begin test of Token()" ? // Some simple tests ? " Simple tests:" - ? ' token("Hello, World!") == "World" ? -----------> "' + Token( "Hello, World!" ) + '"' - ? ' token("Hello, World!",,2,1) == "" ? -----------> "' + Token( "Hello, World!",, 2, 1 ) + '"' - ? ' token("Hello, World!",",",2,1) == " World!" ? -> "' + Token( "Hello, World!", ",", 2, 1 ) + '"' - ? ' token("Hello, World!"," ",2,1) == "World!" ? --> "' + Token( "Hello, World!", " ", 2, 1 ) + '"' + ? ' Token("Hello, World!") == "World" ? -----------> "' + Token( "Hello, World!" ) + '"' + ? ' Token("Hello, World!",,2,1) == "" ? -----------> "' + Token( "Hello, World!",, 2, 1 ) + '"' + ? ' Token("Hello, World!",",",2,1) == " World!" ? -> "' + Token( "Hello, World!", ",", 2, 1 ) + '"' + ? ' Token("Hello, World!"," ",2,1) == "World!" ? --> "' + Token( "Hello, World!", " ", 2, 1 ) + '"' ? ? ' Tokenizing the string "' + cStr + '"' @@ -94,7 +94,7 @@ PROCEDURE Main() NEXT ? - ? "End test of TOKEN()" + ? "End test of Token()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/token2.prg b/harbour/contrib/hbct/tests/token2.prg index 953a63488c..5a98adcd24 100644 --- a/harbour/contrib/hbct/tests/token2.prg +++ b/harbour/contrib/hbct/tests/token2.prg @@ -5,14 +5,14 @@ /* * Harbour Project source code: * Test CT3 functions - * - TOKENINIT() - * - TOKENEXIT() - * - TOKENNEXT() - * - TOKENNUM() - * - TOKENAT() - * - SAVETOKEN() - * - RESTTOKEN() - * - TOKENEND() + * - TokenInit() + * - TokenExit() + * - TokenNext() + * - TokenNum() + * - TokenAt() + * - SaveToken() + * - RestToken() + * - TokenEnd() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -78,24 +78,24 @@ PROCEDURE Main() // Some simple tests with global token environment ? ' Incremental tokenizing the string "' + cStr1 + '"' - ? ' tokeninit(@cStr1, ",", 1) == .T. ? ----> ' + LToC( TokenInit( @cStr1, ",", 1 ) ) - ? ' tokennum() == 6 ? ---------------------> ' + Str( TokenNum() ) - ? ' tokenend() ? -------------------------> ' + LToC( TokenEnd() ) + ? ' TokenInit(@cStr1, ",", 1) == .T. ? ----> ' + LToC( TokenInit( @cStr1, ",", 1 ) ) + ? ' TokenNum() == 6 ? ---------------------> ' + Str( TokenNum() ) + ? ' TokenEnd() ? -------------------------> ' + LToC( TokenEnd() ) WHILE ! TokenEnd() - ? ' tokennext(@cStr1) ------------------> "' + TokenNext( @cStr1 ) + '"' - ? ' tokenend() ? -------------------------> ' + LToC( TokenEnd() ) + ? ' TokenNext(@cStr1) ------------------> "' + TokenNext( @cStr1 ) + '"' + ? ' TokenEnd() ? -------------------------> ' + LToC( TokenEnd() ) ENDDO ? - ? ' rewind with tokeninit() == .T. ? ------> ' + LToC( TokenInit() ) - ? ' tokenend() ? -------------------------> ' + LToC( TokenEnd() ) + ? ' rewind with TokenInit() == .T. ? ------> ' + LToC( TokenInit() ) + ? ' TokenEnd() ? -------------------------> ' + LToC( TokenEnd() ) WHILE ! TokenEnd() - ? ' tokennext(@cStr1) ------------------> "' + TokenNext( @cStr1 ) + '"' - ? ' tokenend() ? -------------------------> ' + LToC( TokenEnd() ) + ? ' TokenNext(@cStr1) ------------------> "' + TokenNext( @cStr1 ) + '"' + ? ' TokenEnd() ? -------------------------> ' + LToC( TokenEnd() ) ENDDO ? ? ' access tokens directly with tokennext' - ? ' tokennext(@cStr1,2) == "BB" ? -------> "' + TokenNext( @cStr1, 2 ) + '"' - ? ' tokennext(@cStr1,4) == "DDDD" ? -----> "' + TokenNext( @cStr1, 4 ) + '"' + ? ' TokenNext(@cStr1,2) == "BB" ? -------> "' + TokenNext( @cStr1, 2 ) + '"' + ? ' TokenNext(@cStr1,4) == "DDDD" ? -----> "' + TokenNext( @cStr1, 4 ) + '"' ? ? "...Press any key..." @@ -104,24 +104,24 @@ PROCEDURE Main() ? ' Incremental tokenizing the string "' + cStr3 + '" with the' ? ' token environment of cStr1 !' - ? ' rewind with tokeninit() == .T. ? ------> ' + LToC( TokenInit() ) - ? ' tokenend() ? -------------------------> ' + LToC( TokenEnd() ) + ? ' rewind with TokenInit() == .T. ? ------> ' + LToC( TokenInit() ) + ? ' TokenEnd() ? -------------------------> ' + LToC( TokenEnd() ) WHILE ! TokenEnd() - ? ' tokennext(@cStr3) ------------------> "' + TokenNext( @cStr3 ) + '"' - ? ' tokenend() ? -------------------------> ' + LToC( TokenEnd() ) + ? ' TokenNext(@cStr3) ------------------> "' + TokenNext( @cStr3 ) + '"' + ? ' TokenEnd() ? -------------------------> ' + LToC( TokenEnd() ) ENDDO ? - ? ' rewind with tokeninit() == .T. ? ------> ' + LToC( TokenInit() ) - ? ' tokenend() ? -------------------------> ' + LToC( TokenEnd() ) + ? ' rewind with TokenInit() == .T. ? ------> ' + LToC( TokenInit() ) + ? ' TokenEnd() ? -------------------------> ' + LToC( TokenEnd() ) WHILE ! TokenEnd() - ? ' start & end with tokenat(.F./.T.)-----> ' + Str( TokenAt() ) + ' ' + Str( TokenAt( .T. ) ) + ? ' start & end with TokenAt(.F./.T.)-----> ' + Str( TokenAt() ) + ' ' + Str( TokenAt( .T. ) ) TokenNext( @cStr1 ) - ? ' tokenend() ? -------------------------> ' + LToC( TokenEnd() ) + ? ' TokenEnd() ? -------------------------> ' + LToC( TokenEnd() ) ENDDO ? ? ' access tokens directly with tokenat' - ? ' tokenat( .F., 2 ) == 3 ? ---------------> ' + Str( TokenAt( .F., 2 ) ) - ? ' tokenat( .T., 4 ) == 14 ? --------------> ' + Str( TokenAt( .T., 4 ) ) + ? ' TokenAt( .F., 2 ) == 3 ? ---------------> ' + Str( TokenAt( .F., 2 ) ) + ? ' TokenAt( .T., 4 ) == 14 ? --------------> ' + Str( TokenAt( .T., 4 ) ) ? ? "...Press any key..." @@ -130,20 +130,20 @@ PROCEDURE Main() ? ' Save global token environment with savetoken' cTE1 := SaveToken() - ? ' tokeninit a different string, cStr4 := "' + cStr4 + '", with tokeninit()' - ? ' tokeninit( @cStr4, ":", 1 ) == .T. ? ----> ' + LToC( TokenInit( @cStr4, ":", 1 ) ) - ? ' tokennum() == 5 ? ---------------------> ' + Str( TokenNum() ) - ? ' tokennext() == "08" ? ------------------> "' + TokenNext( @cStr4 ) + '"' + ? ' tokeninit a different string, cStr4 := "' + cStr4 + '", with TokenInit()' + ? ' TokenInit( @cStr4, ":", 1 ) == .T. ? ----> ' + LToC( TokenInit( @cStr4, ":", 1 ) ) + ? ' TokenNum() == 5 ? ---------------------> ' + Str( TokenNum() ) + ? ' TokenNext() == "08" ? ------------------> "' + TokenNext( @cStr4 ) + '"' ? ' Now restore global token environment with resttoken and rewind it' RestToken( cTE1 ) TokenInit() - ? ' tokennum() == 6 ? ----------------------> ' + Str( TokenNum() ) - ? ' tokenend() ? -------------------------> ' + LToC( TokenEnd() ) + ? ' TokenNum() == 6 ? ----------------------> ' + Str( TokenNum() ) + ? ' TokenEnd() ? -------------------------> ' + LToC( TokenEnd() ) WHILE ! TokenEnd() - ? ' tokennext( @cStr1 ) -----------------> "' + TokenNext( @cStr1 ) + '"' - ? ' tokenend() ? -------------------------> ' + LToC( TokenEnd() ) + ? ' TokenNext( @cStr1 ) -----------------> "' + TokenNext( @cStr1 ) + '"' + ? ' TokenEnd() ? -------------------------> ' + LToC( TokenEnd() ) ENDDO - ? ' Release global TE with tokenexit() ----> ' + LToC( TokenExit() ) + ? ' Release global TE with TokenExit() ----> ' + LToC( TokenExit() ) ? ? "...Press any key..." @@ -153,17 +153,17 @@ PROCEDURE Main() ? ' Now tokenize cStr4 := "' + cStr4 + '" and' ? ' cStr5 := "' + cStr5 + '"' ? ' and store the token environment locally to cTE1 and cTE2:' - ? ' tokeninit( @cStr4, ":", 1, @cTE1 ) == .T. ? -> ' + LToC( TokenInit( @cStr4, ":", 1, @cTE1 ) ) - ? ' tokeninit( @cStr5, "+", 1, @cTE2 ) == .T. ? -> ' + LToC( TokenInit( @cStr5, "+", 1, @cTE2 ) ) - ? ' tokennum( @cTE1 ) == 5 ? --------------------> ' + Str( TokenNum( @cTE1 ) ) - ? ' tokennum( @cTE2 ) == 4 ? --------------------> ' + Str( TokenNum( @cTE2 ) ) - ? ' tokenend( @cTE1 ) ? ---------------------> ' + LToC( TokenEnd( @cTE1 ) ) - ? ' tokenend( @cTE2 ) ? ---------------------> ' + LToC( TokenEnd( @cTE2 ) ) + ? ' TokenInit( @cStr4, ":", 1, @cTE1 ) == .T. ? -> ' + LToC( TokenInit( @cStr4, ":", 1, @cTE1 ) ) + ? ' TokenInit( @cStr5, "+", 1, @cTE2 ) == .T. ? -> ' + LToC( TokenInit( @cStr5, "+", 1, @cTE2 ) ) + ? ' TokenNum( @cTE1 ) == 5 ? --------------------> ' + Str( TokenNum( @cTE1 ) ) + ? ' TokenNum( @cTE2 ) == 4 ? --------------------> ' + Str( TokenNum( @cTE2 ) ) + ? ' TokenEnd( @cTE1 ) ? ---------------------> ' + LToC( TokenEnd( @cTE1 ) ) + ? ' TokenEnd( @cTE2 ) ? ---------------------> ' + LToC( TokenEnd( @cTE2 ) ) WHILE ! TokenEnd( @cTE1 ) .AND. ! TokenEnd( @cTE2 ) ? ' next train at ' + TokenNext( cStr4,, @cTE1 ) + ":" + TokenNext( cStr5,, @cTE2 ) - ? ' compiled with tokennext( cStr4,, @cTE1 ) + ":" + tokennext( cStr5,, @cTE2 )' - ? ' tokenend( @cTE1 ) ? ---------------------> ' + LToC( TokenEnd( @cTE1 ) ) - ? ' tokenend( @cTE2 ) ? ---------------------> ' + LToC( TokenEnd( @cTE2 ) ) + ? ' compiled with TokenNext( cStr4,, @cTE1 ) + ":" + TokenNext( cStr5,, @cTE2 )' + ? ' TokenEnd( @cTE1 ) ? ---------------------> ' + LToC( TokenEnd( @cTE1 ) ) + ? ' TokenEnd( @cTE2 ) ? ---------------------> ' + LToC( TokenEnd( @cTE2 ) ) ENDDO ? diff --git a/harbour/contrib/hbct/tests/tokenlow.prg b/harbour/contrib/hbct/tests/tokenlow.prg index f39ae74505..5a075f9a25 100644 --- a/harbour/contrib/hbct/tests/tokenlow.prg +++ b/harbour/contrib/hbct/tests/tokenlow.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function TOKENLOWER() + * Test CT3 function TokenLower() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -58,30 +58,30 @@ PROCEDURE Main() ctinit() - ? "Begin test of TOKENLOWER()" + ? "Begin test of TokenLower()" ? // Some simple tests ? " Simple tests:" - ? ' tokenlower("Hello, World, here I am!") == "hello, world, here i am!" ?' + ? ' TokenLower("Hello, World, here I am!") == "hello, world, here i am!" ?' ? ' -> "' + TokenLower( "Hello, World, here I am!" ) + '"' - ? ' tokenlower("Hello, World, here I am!",,3) == "hello, world, here I am!" ?' + ? ' TokenLower("Hello, World, here I am!",,3) == "hello, world, here I am!" ?' ? ' -> "' + TokenLower( "Hello, World, here I am!",, 3 ) + '"' - ? ' tokenlower("Hello, World, here I am!",",",3) == "hello, World, here I am!" ?' + ? ' TokenLower("Hello, World, here I am!",",",3) == "hello, World, here I am!" ?' ? ' -> "' + TokenLower( "Hello, World, here I am!", ",", 3 ) + '"' - ? ' tokenlower("Hello, World, here I am!"," W") == "hello, World, here i am!" ?' + ? ' TokenLower("Hello, World, here I am!"," W") == "hello, World, here i am!" ?' ? ' -> "' + TokenLower( "Hello, World, here I am!", " W" ) + '"' ? ? ' Lowercase the tokens in the string "' + cStr + '"' - ? ' with csetref(.T.) and "@"' + ? ' with CSetRef(.T.) and "@"' CSetRef( .T. ) ? - ? ' --> return value of tokenlower(@cStr): ', TokenLower( @cStr ) + ? ' --> return value of TokenLower(@cStr): ', TokenLower( @cStr ) ? ' --> cStr is now: "' + cStr + '"' ? - ? "End test of TOKENLOWER()" + ? "End test of TokenLower()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/tokensep.prg b/harbour/contrib/hbct/tests/tokensep.prg index 1da5f959f7..8d17b2cfd2 100644 --- a/harbour/contrib/hbct/tests/tokensep.prg +++ b/harbour/contrib/hbct/tests/tokensep.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function TOKENSEP() + * Test CT3 function TokenSep() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -63,7 +63,7 @@ PROCEDURE Main() ctinit() - ? "Begin test of TOKENSEP()" + ? "Begin test of TokenSep()" ? // Some simple tests @@ -85,7 +85,7 @@ PROCEDURE Main() NEXT ? - ? "End test of TOKENSEP()" + ? "End test of TokenSep()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/tokenupp.prg b/harbour/contrib/hbct/tests/tokenupp.prg index 311fdf586e..6a71a862b0 100644 --- a/harbour/contrib/hbct/tests/tokenupp.prg +++ b/harbour/contrib/hbct/tests/tokenupp.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function TOKENUPPER() + * Test CT3 function TokenUpper() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -58,30 +58,30 @@ PROCEDURE Main() ctinit() - ? "Begin test of TOKENUPPER()" + ? "Begin test of TokenUpper()" ? // Some simple tests ? " Simple tests:" - ? ' tokenupper("Hello, world, here I am!") == "Hello, World, Here I Am!" ?' + ? ' TokenUpper("Hello, world, here I am!") == "Hello, World, Here I Am!" ?' ? ' -> "' + TokenUpper( "Hello, world, here I am!" ) + '"' - ? ' tokenupper("Hello, world, here I am!",,3) == "Hello, World, Here I am!" ?' + ? ' TokenUpper("Hello, world, here I am!",,3) == "Hello, World, Here I am!" ?' ? ' -> "' + TokenUpper( "Hello, world, here I am!",, 3 ) + '"' - ? ' tokenupper("Hello, world, here I am!",",",3) == "Hello, world, here I am!" ?' + ? ' TokenUpper("Hello, world, here I am!",",",3) == "Hello, world, here I am!" ?' ? ' -> "' + TokenUpper( "Hello, world, here I am!", ",", 3 ) + '"' - ? ' tokenupper("Hello, world, here I am!"," w") == "Hello, wOrld, Here I Am!" ?' + ? ' TokenUpper("Hello, world, here I am!"," w") == "Hello, wOrld, Here I Am!" ?' ? ' -> "' + TokenUpper( "Hello, world, here I am!", " w" ) + '"' ? ? ' Uppercase the tokens in the string "' + cStr + '"' - ? ' with csetref(.T.) and "@"' + ? ' with CSetRef(.T.) and "@"' CSetRef( .T. ) ? - ? ' --> return value of tokenupper(@cStr): ', TokenUpper( @cStr ) + ? ' --> return value of TokenUpper(@cStr): ', TokenUpper( @cStr ) ? ' --> cStr is now: "' + cStr + '"' ? - ? "End test of TOKENUPPER()" + ? "End test of TokenUpper()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/trig.prg b/harbour/contrib/hbct/tests/trig.prg index 62abbfc298..853f9ff69c 100644 --- a/harbour/contrib/hbct/tests/trig.prg +++ b/harbour/contrib/hbct/tests/trig.prg @@ -73,41 +73,41 @@ PROCEDURE Main() ? ? "PI = " + Str( Pi(), 18, 15 ) - ? "STR( SIN( Pi() / 4 ), 18, 15 ) = 0.707106781186548 // CT3" + ? "STR( Sin( Pi() / 4 ), 18, 15 ) = 0.707106781186548 // CT3" ? Space( 33 ) + Str( Sin( Pi() / 4 ), 18, 15 ) + " <-- CT for Harbour" ? - ? "STR( SIN( Pi() / 2 ), 18, 15 ) = 1.000000000000000 // CT3" + ? "STR( Sin( Pi() / 2 ), 18, 15 ) = 1.000000000000000 // CT3" ? Space( 33 ) + Str( Sin( Pi() / 2 ), 18, 15 ) + " <-- CT for Harbour" ? - ? "STR( SIN( Pi() * 99.5 ), 18, 15 ) = -1.000000000000000 // CT3" + ? "STR( Sin( Pi() * 99.5 ), 18, 15 ) = -1.000000000000000 // CT3" ? Space( 36 ) + Str( Sin( Pi() * 99.5 ), 18, 15 ) + " <-- CT for Harbour" ? - ? "STR( SIN( Pi() / 9 ), 18, 15 ) = 0.342020143325669 // CT3" + ? "STR( Sin( Pi() / 9 ), 18, 15 ) = 0.342020143325669 // CT3" ? Space( 33 ) + Str( Sin( Pi() / 9 ), 18, 15 ) + " <-- CT for Harbour" WAIT4() - ? "STR( COS( 0 ), 18, 15 ) = 1.000000000000000 // CT3" + ? "STR( Cos( 0 ), 18, 15 ) = 1.000000000000000 // CT3" ? Space( 26 ) + Str( Cos( 0 ), 18, 15 ) + " <-- CT for Harbour" ? - ? "STR( COS( Pi() / 4 ), 18, 15 ) = 0.707106781186548 // CT3" + ? "STR( Cos( Pi() / 4 ), 18, 15 ) = 0.707106781186548 // CT3" ? Space( 33 ) + Str( Cos( Pi() / 4 ), 18, 15 ) + " <-- CT for Harbour" ? - ? "STR( COS( Pi() / 2 ), 18, 15 ) = 0.000000000000000 // CT3" + ? "STR( Cos( Pi() / 2 ), 18, 15 ) = 0.000000000000000 // CT3" ? Space( 33 ) + Str( Cos( Pi() / 2 ), 18, 15 ) + " <-- CT for Harbour" ? - ? "STR( COS( Pi() * 99.5 ), 18, 15 ) = 0.000000000000000 // CT3" + ? "STR( Cos( Pi() * 99.5 ), 18, 15 ) = 0.000000000000000 // CT3" ? Space( 35 ) + Str( Cos( Pi() * 99.5 ), 18, 15 ) + " <-- CT for Harbour" ? - ? "STR( COS( Pi() / 9 ), 18, 15 ) = 0.939692620785908 // CT3" + ? "STR( Cos( Pi() / 9 ), 18, 15 ) = 0.939692620785908 // CT3" ? Space( 33 ) + Str( Cos( Pi() / 9 ), 18, 15 ) + " <-- CT for Harbour" ? @@ -115,44 +115,44 @@ PROCEDURE Main() WAIT4() - ? "STR( TAN( 0 ), 18, 15 ) = 1.000000000000000 // CT3 wrong ! " + ? "STR( Tan( 0 ), 18, 15 ) = 1.000000000000000 // CT3 wrong ! " ? Space( 26 ) + Str( Tan( 0 ), 18, 15 ) + " <-- CT for Harbour" ? - ? "STR( TAN( Pi() / 4 ), 18, 15 ) = 1.000000000000000 // CT3" + ? "STR( Tan( Pi() / 4 ), 18, 15 ) = 1.000000000000000 // CT3" ? Space( 33 ) + Str( Tan( Pi() / 4 ), 18, 15 ) + " <-- CT for Harbour" ? - ? "STR( TAN( Pi() / 9 ), 18, 15 ) = 0.363970234266202 // CT3" + ? "STR( Tan( Pi() / 9 ), 18, 15 ) = 0.363970234266202 // CT3" ? Space( 33 ) + Str( Tan( Pi() / 9 ), 18, 15 ) + " <-- CT for Harbour" ? ? ? - ? "STR( ASIN( 0.5 ), 18, 15 ) = 0.523598775598299 // CT3" - ? Space( 29 ) + Str( Asin( 0.5 ), 18, 15 ) + " <-- CT for Harbour" + ? "STR( ASin( 0.5 ), 18, 15 ) = 0.523598775598299 // CT3" + ? Space( 29 ) + Str( ASin( 0.5 ), 18, 15 ) + " <-- CT for Harbour" ? - ? "STR( ACOS( 0.7 ), 18, 15 ) = 0.795398830184144 // CT3" - ? Space( 29 ) + Str( Acos( 0.7 ), 18, 15 ) + " <-- CT for Harbour" + ? "STR( ACos( 0.7 ), 18, 15 ) = 0.795398830184144 // CT3" + ? Space( 29 ) + Str( ACos( 0.7 ), 18, 15 ) + " <-- CT for Harbour" ? - ? "STR( ATAN( Pi() / 4 ), 18, 15 ) = 0.665773750028354 // CT3" - ? Space( 34 ) + Str( Atan( Pi() / 4 ), 18, 15 ) + " <-- CT for Harbour" + ? "STR( ATan( Pi() / 4 ), 18, 15 ) = 0.665773750028354 // CT3" + ? Space( 34 ) + Str( ATan( Pi() / 4 ), 18, 15 ) + " <-- CT for Harbour" ? WAIT4() - ? "STR( COT( Pi() / 4 ), 18, 15 ) = 1.000000000000000 // CT3" + ? "STR( Cot( Pi() / 4 ), 18, 15 ) = 1.000000000000000 // CT3" ? Space( 33 ) + Str( Cot( Pi() / 4 ), 18, 15 ) + " <-- CT for Harbour" ? - ? "STR( COT( Pi() / 2 ), 18, 15 ) = 0.000000000000000 // CT3" + ? "STR( Cot( Pi() / 2 ), 18, 15 ) = 0.000000000000000 // CT3" ? Space( 33 ) + Str( Cot( Pi() / 2 ), 18, 15 ) + " <-- CT for Harbour" ? - ? "STR( COT( Pi() / 9 ), 18, 15 ) = 2.747477419454622 // CT3" + ? "STR( Cot( Pi() / 9 ), 18, 15 ) = 2.747477419454622 // CT3" ? Space( 33 ) + Str( Cot( Pi() / 9 ), 18, 15 ) + " <-- CT for Harbour" ? @@ -160,30 +160,30 @@ PROCEDURE Main() ?? "Testing Hiperbolic Sine..." ? - ? "STR( SINH( Pi() / 2 ), 18, 15 ) = 2.301298902307295 // CT3" + ? "STR( Sinh( Pi() / 2 ), 18, 15 ) = 2.301298902307295 // CT3" ? Space( 34 ) + Str( Sinh( Pi() / 2 ), 18, 15 ) + " <-- CT for Harbour" ? - ? "STR( SINH( Pi() / 4 ), 18, 15 ) = 0.868670961486010 // CT3" + ? "STR( Sinh( Pi() / 4 ), 18, 15 ) = 0.868670961486010 // CT3" ? Space( 34 ) + Str( Sinh( Pi() / 4 ), 18, 15 ) + " <-- CT for Harbour" ? ? "Testing Hiperbolic Cosine..." ? - ? "STR( COSH( Pi() / 2 ), 18, 15 ) = 2.509178478658057 // CT3" + ? "STR( Cosh( Pi() / 2 ), 18, 15 ) = 2.509178478658057 // CT3" ? Space( 34 ) + Str( Cosh( Pi() / 2 ), 18, 15 ) + " <-- CT for Harbour" ? - ? "STR( COSH( Pi() / 4 ), 18, 15 ) = 1.324609089252006 // CT3" + ? "STR( Cosh( Pi() / 4 ), 18, 15 ) = 1.324609089252006 // CT3" ? Space( 34 ) + Str( Cosh( Pi() / 4 ), 18, 15 ) + " <-- CT for Harbour" ? ? "Testing Hiperbolic Tangent..." ? - ? "STR( TANH( Pi() / 2 ), 18, 15 ) = 0.917152335667274 // CT3" + ? "STR( Tanh( Pi() / 2 ), 18, 15 ) = 0.917152335667274 // CT3" ? Space( 34 ) + Str( Tanh( Pi() / 2 ), 18, 15 ) + " <-- CT for Harbour" ? - ? "STR( TANH( Pi() / 4 ), 18, 15 ) = 0.655794202632672 // CT3" + ? "STR( Tanh( Pi() / 4 ), 18, 15 ) = 0.655794202632672 // CT3" ? Space( 34 ) + Str( Tanh( Pi() / 4 ), 18, 15 ) + " <-- CT for Harbour" ? @@ -191,23 +191,23 @@ PROCEDURE Main() ? "Testing Degree TO Radian..." ? - ? "STR( DTOR( 360 ), 18, 15 ) = 6.283185307179588 // CT3" + ? "STR( DToR( 360 ), 18, 15 ) = 6.283185307179588 // CT3" ? Space( 28 ) + Str( DToR( 360 ), 18, 15 ), " <-- CT for Harbour " ? - ? "STR( DTOR( 180 ), 18, 15 ) = 3.141592653589794 // CT3" + ? "STR( DToR( 180 ), 18, 15 ) = 3.141592653589794 // CT3" ? Space( 28 ) + Str( DToR( 180 ), 18, 15 ), " <-- CT for Harbour " ? - ? "STR( DTOR( 180.5 ), 18, 15 ) = 3.150319299849766 // CT3" + ? "STR( DToR( 180.5 ), 18, 15 ) = 3.150319299849766 // CT3" ? Space( 30 ) + Str( DToR( 180.5 ), 18, 15 ), " <-- CT for Harbour " ? - ? "STR( DTOR( 720 ), 18, 15 ) = 12.566370614359180 // CT3" + ? "STR( DToR( 720 ), 18, 15 ) = 12.566370614359180 // CT3" ? Space( 29 ) + Str( DToR( 720 ), 18, 15 ), " <-- CT for Harbour " ? - ? "STR( DTOR( -180 ), 18, 15 ) = -3.141592653589794 // CT3" + ? "STR( DToR( -180 ), 18, 15 ) = -3.141592653589794 // CT3" ? Space( 30 ) + Str( DToR( -180 ), 18, 15 ), " <-- CT for Harbour " WAIT4() @@ -215,38 +215,38 @@ PROCEDURE Main() ? "Testing Radian TO Degree..." ? - ? "RTOD( Pi() ) = 180 // CT3 " + ? "RToD( Pi() ) = 180 // CT3 " ? Space( 7 ), RToD( Pi() ), " <-- CT for Harbour " - ? "RTOD( 2 * Pi() ) = 360 // CT3 " + ? "RToD( 2 * Pi() ) = 360 // CT3 " ? Space( 11 ), RToD( 2 * Pi() ), " <-- CT for Harbour " - ? "RTOD( 4 * Pi() ) = 720 // CT3 " + ? "RToD( 4 * Pi() ) = 720 // CT3 " ? Space( 11 ), RToD( 4 * Pi() ), " <-- CT for Harbour " - ? "RTOD( -Pi() ) = -180 // CT3" + ? "RToD( -Pi() ) = -180 // CT3" ? Space( 9 ), RToD( -Pi() ), " <-- CT for Harbour " ? WAIT4() -/* NOTE: ATN2( x, y) have the parameters inverted, when +/* NOTE: Atn2( x, y) have the parameters inverted, when comparing with the standard C languaje ATAN2( y, x) */ - ? "Testing ATN2( x, y )... where:" + ? "Testing Atn2( x, y )... where:" x := Sin( DToR( 30 ) ) y := Cos( DToR( 30 ) ) - ? "x = SIN( DTOR( 30 ) ) =", x - ? "y = COS( DTOR( 30 ) ) =", y + ? "x = Sin( DToR( 30 ) ) =", x + ? "y = Cos( DToR( 30 ) ) =", y ? - ? "STR( ATN2( x, y ), 18, 15 ) = 0.523598775598299 // CT3" + ? "STR( Atn2( x, y ), 18, 15 ) = 0.523598775598299 // CT3" ? Space( 30 ) + Str( Atn2( x, y ), 18, 15 ) + " <-- CT for Harbour" ? - ? "RTOD( ATN2( x, y ) ) =" + Str( RToD( Atn2( x, y ) ), 18, 4 ) + " <-- CT for Harbour" + ? "RToD( Atn2( x, y ) ) =" + Str( RToD( Atn2( x, y ) ), 18, 4 ) + " <-- CT for Harbour" ? WAIT4() diff --git a/harbour/contrib/hbct/tests/valpos.prg b/harbour/contrib/hbct/tests/valpos.prg index 1a6d07c32f..2bd063934f 100644 --- a/harbour/contrib/hbct/tests/valpos.prg +++ b/harbour/contrib/hbct/tests/valpos.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function VALPOS() + * Test CT3 function ValPos() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,16 +56,16 @@ PROCEDURE Main() ctinit() - ? "Begin test of VALPOS()" + ? "Begin test of ValPos()" ? - ? ' valpos("1234x56789") == 9 ? --> ' + Str( ValPos( "1234x56789" ) ) - ? ' valpos("1234x56789",1) == 1 ? --> ' + Str( ValPos( "1234x56789", 1 ) ) - ? ' valpos("1234x56789",11) == 0 ? --> ' + Str( ValPos( "1234x56789", 11 ) ) - ? ' valpos("1234x56789",5) == 0 ? --> ' + Str( ValPos( "1234x56789", 5 ) ) + ? ' ValPos("1234x56789") == 9 ? --> ' + Str( ValPos( "1234x56789" ) ) + ? ' ValPos("1234x56789",1) == 1 ? --> ' + Str( ValPos( "1234x56789", 1 ) ) + ? ' ValPos("1234x56789",11) == 0 ? --> ' + Str( ValPos( "1234x56789", 11 ) ) + ? ' ValPos("1234x56789",5) == 0 ? --> ' + Str( ValPos( "1234x56789", 5 ) ) ? - ? "End test of VALPOS()" + ? "End test of ValPos()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/wordone.prg b/harbour/contrib/hbct/tests/wordone.prg index ac53d108e7..efb8052f2e 100644 --- a/harbour/contrib/hbct/tests/wordone.prg +++ b/harbour/contrib/hbct/tests/wordone.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function WORDONE() + * Test CT3 function WordOne() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,17 +56,17 @@ PROCEDURE Main() ctinit() - ? "Begin test of WORDONE()" + ? "Begin test of WordOne()" ? // simple tests ? "Simple tests:" - ? ' wordone("12ABAB12") == "12AB12" ? --> "' + WordOne( "12ABAB12" ) + '"' - ? ' wordone("1AAAA2") == "1AAAA2" ? --> "' + WordOne( "1AAAA2" ) + '"' - ? ' wordone("12", "1212ABAB") == "12ABAB" ? --> "' + WordOne( "12", "1212ABAB" ) + '"' + ? ' WordOne("12ABAB12") == "12AB12" ? --> "' + WordOne( "12ABAB12" ) + '"' + ? ' WordOne("1AAAA2") == "1AAAA2" ? --> "' + WordOne( "1AAAA2" ) + '"' + ? ' WordOne("12", "1212ABAB") == "12ABAB" ? --> "' + WordOne( "12", "1212ABAB" ) + '"' ? - ? "End test of WORDONE()" + ? "End test of WordOne()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/wordonly.prg b/harbour/contrib/hbct/tests/wordonly.prg index 62b60883e3..14bf21ac6f 100644 --- a/harbour/contrib/hbct/tests/wordonly.prg +++ b/harbour/contrib/hbct/tests/wordonly.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function WORDONLY() + * Test CT3 function WordOnly() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,16 +56,16 @@ PROCEDURE Main() ctinit() - ? "Begin test of WORDONLY()" + ? "Begin test of WordOnly()" ? // simple tests ? "Simple tests:" - ? ' wordonly("AABBCCDD", "XXAAYYBBZZ") == "AABB" ? --> "' + WordOnly( "AABBCCDD", "XXAAYYBBZZ" ) + '"' - ? ' wordonly("AABBCCDD", "XAAYYYBBZZ") == "BB" ? ----> "' + WordOnly( "AABBCCDD", "XAAYYYBBZZ" ) + '"' + ? ' WordOnly("AABBCCDD", "XXAAYYBBZZ") == "AABB" ? --> "' + WordOnly( "AABBCCDD", "XXAAYYBBZZ" ) + '"' + ? ' WordOnly("AABBCCDD", "XAAYYYBBZZ") == "BB" ? ----> "' + WordOnly( "AABBCCDD", "XAAYYYBBZZ" ) + '"' ? - ? "End test of WORDONLY()" + ? "End test of WordOnly()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/wordrem.prg b/harbour/contrib/hbct/tests/wordrem.prg index 71e90233aa..cd0c17396a 100644 --- a/harbour/contrib/hbct/tests/wordrem.prg +++ b/harbour/contrib/hbct/tests/wordrem.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function WORDREM() + * Test CT3 function WordRem() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,16 +56,16 @@ PROCEDURE Main() ctinit() - ? "Begin test of WORDREM()" + ? "Begin test of WordRem()" ? // simple tests ? "Simple tests:" - ? ' wordrem("abcd", "0ab1cd") == "0ab1" ? ----> "' + WordRem( "abcd", "0ab1cd" ) + '"' - ? ' wordrem("abcd", "ab0cd1") == "0cd1" ? ----> "' + WordRem( "abcd", "ab0cd1" ) + '"' + ? ' WordRem("abcd", "0ab1cd") == "0ab1" ? ----> "' + WordRem( "abcd", "0ab1cd" ) + '"' + ? ' WordRem("abcd", "ab0cd1") == "0cd1" ? ----> "' + WordRem( "abcd", "ab0cd1" ) + '"' ? - ? "End test of WORDREM()" + ? "End test of WordRem()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/wordrepl.prg b/harbour/contrib/hbct/tests/wordrepl.prg index 47466e87e3..3ca81f7fa8 100644 --- a/harbour/contrib/hbct/tests/wordrepl.prg +++ b/harbour/contrib/hbct/tests/wordrepl.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function WORDREPL() + * Test CT3 function WordRepl() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,23 +56,23 @@ PROCEDURE Main() ctinit() - ? "Begin test of WORDREPL()" + ? "Begin test of WordRepl()" ? // simple tests ? " Simple tests:" - ? ' wordrepl("CC", "AABBCCDDEE", "XX") == "AABBXXDDEE"? --> "' + WordRepl( "CC", "AABBCCDDEE", "XX" ) + '"' - ? ' wordrepl("aa", "1aaaa", "ba") == "1abaa" ? ------> "' + WordRepl( "aa", "1aaaa", "ba" ) + '"' - ? ' wordrepl("aa", "1aaaa", "ba", .T.) == "1baba" ? ------> "' + WordRepl( "aa", "1aaaa", "ba", .T. ) + '"' + ? ' WordRepl("CC", "AABBCCDDEE", "XX") == "AABBXXDDEE"? --> "' + WordRepl( "CC", "AABBCCDDEE", "XX" ) + '"' + ? ' WordRepl("aa", "1aaaa", "ba") == "1abaa" ? ------> "' + WordRepl( "aa", "1aaaa", "ba" ) + '"' + ? ' WordRepl("aa", "1aaaa", "ba", .T.) == "1baba" ? ------> "' + WordRepl( "aa", "1aaaa", "ba", .T. ) + '"' ? - ? " Testing CSETATMUPA(.T.) with lMode==.T.:" + ? " Testing CSetAtMupa(.T.) with lMode==.T.:" CSetAtMupa( .T. ) - ? ' wordrepl("aa", "1aaaa", "ba") == "1abaa" ? --> "' + WordRepl( "aa", "1aaaa", "ba" ) + '"' - ? ' wordrepl("aa", "1aaaa", "ba", .T.) == "1bbba" ? --> "' + WordRepl( "aa", "1aaaa", "ba", .T. ) + '"' + ? ' WordRepl("aa", "1aaaa", "ba") == "1abaa" ? --> "' + WordRepl( "aa", "1aaaa", "ba" ) + '"' + ? ' WordRepl("aa", "1aaaa", "ba", .T.) == "1bbba" ? --> "' + WordRepl( "aa", "1aaaa", "ba", .T. ) + '"' ? - ? "End test of WORDREPL()" + ? "End test of WordRepl()" ? ctexit() diff --git a/harbour/contrib/hbct/tests/wordswap.prg b/harbour/contrib/hbct/tests/wordswap.prg index fff8859390..2886e73a97 100644 --- a/harbour/contrib/hbct/tests/wordswap.prg +++ b/harbour/contrib/hbct/tests/wordswap.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * Test CT3 function WORDSWAP() + * Test CT3 function WordSwap() * * Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel @@ -56,16 +56,16 @@ PROCEDURE Main() ctinit() - ? "Begin test of WORDSWAP()" + ? "Begin test of WordSwap()" ? // simple tests ? "Simple tests:" - ? ' wordswap("1234567890") == "3412785690" ? --> "' + WordSwap( "1234567890" ) + '"' - ? ' wordswap("1234567890", .T.) == "4321876590" ? --> "' + WordSwap( "1234567890", .T. ) + '"' + ? ' WordSwap("1234567890") == "3412785690" ? --> "' + WordSwap( "1234567890" ) + '"' + ? ' WordSwap("1234567890", .T.) == "4321876590" ? --> "' + WordSwap( "1234567890", .T. ) + '"' ? - ? "End test of WORDSWAP()" + ? "End test of WordSwap()" ? ctexit()