From: <pra...@us...> - 2007-12-18 20:18:34
|
Revision: 1625 http://oorexx.svn.sourceforge.net/oorexx/?rev=1625&view=rev Author: pragmatic_lee Date: 2007-12-18 12:18:37 -0800 (Tue, 18 Dec 2007) Log Message: ----------- moved tests from bif.testgroup to individual bif testgroups Modified Paths: -------------- test/branches/test.3.2.0/ooRexx/base/bif/D2C.testGroup test/branches/test.3.2.0/ooRexx/base/bif/D2X.testGroup test/branches/test.3.2.0/ooRexx/base/bif/DATATYPE.testGroup test/branches/test.3.2.0/ooRexx/base/bif/DATE.testGroup test/branches/test.3.2.0/ooRexx/base/bif/DELSTR.testGroup test/branches/test.3.2.0/ooRexx/base/bif/DELWORD.testGroup test/branches/test.3.2.0/ooRexx/base/bif/DIGITS.testGroup test/branches/test.3.2.0/ooRexx/base/bif/FORMAT.testGroup test/branches/test.3.2.0/ooRexx/base/bif/INSERT.testGroup test/branches/test.3.2.0/ooRexx/base/bif/LASTPOS.testGroup test/branches/test.3.2.0/ooRexx/base/bif/LEFT.testGroup test/branches/test.3.2.0/ooRexx/base/bif/LENGTH.testGroup test/branches/test.3.2.0/ooRexx/base/bif/MAX.testGroup test/branches/test.3.2.0/ooRexx/base/bif/MIN.testGroup test/branches/test.3.2.0/ooRexx/base/bif/OVERLAY.testGroup test/branches/test.3.2.0/ooRexx/base/bif/POS.testGroup test/branches/test.3.2.0/ooRexx/base/bif/REVERSE.testGroup test/branches/test.3.2.0/ooRexx/base/bif/RIGHT.testGroup test/branches/test.3.2.0/ooRexx/base/bif/SIGN.testGroup test/branches/test.3.2.0/ooRexx/base/bif/SOURCELINE.testGroup test/branches/test.3.2.0/ooRexx/base/bif/SPACE.testGroup test/branches/test.3.2.0/ooRexx/base/bif/STRIP.testGroup test/branches/test.3.2.0/ooRexx/base/bif/SUBSTR.testGroup test/branches/test.3.2.0/ooRexx/base/bif/SUBWORD.testGroup test/branches/test.3.2.0/ooRexx/base/bif/SYMBOL.testGroup test/branches/test.3.2.0/ooRexx/base/bif/TIME.testGroup test/branches/test.3.2.0/ooRexx/base/bif/TRANSLATE.testGroup test/branches/test.3.2.0/ooRexx/base/bif/TRUNC.testGroup test/branches/test.3.2.0/ooRexx/base/bif/VALUE.testGroup test/branches/test.3.2.0/ooRexx/base/bif/VERIFY.testGroup test/branches/test.3.2.0/ooRexx/base/bif/WORD.testGroup test/branches/test.3.2.0/ooRexx/base/bif/WORDINDEX.testGroup test/branches/test.3.2.0/ooRexx/base/bif/WORDLENGTH.testGroup test/branches/test.3.2.0/ooRexx/base/bif/WORDPOS.testGroup test/branches/test.3.2.0/ooRexx/base/bif/WORDS.testGroup test/branches/test.3.2.0/ooRexx/base/bif/X2B.testGroup test/branches/test.3.2.0/ooRexx/base/bif/X2C.testGroup test/branches/test.3.2.0/ooRexx/base/bif/X2D.testGroup test/branches/test.3.2.0/ooRexx/base/bif/XRANGE.testGroup Modified: test/branches/test.3.2.0/ooRexx/base/bif/D2C.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/D2C.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/D2C.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/06 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -289,39 +291,20 @@ numeric digits 150 self~assertSame('subTest01','14FBE105'x,d2c(d2c('944617126997049751089'))) --- Documentation examples - Actual verbage from the documentation is commented in each method -::method 'testDocumentationExamples01' --- D2C(65) -> "A" /* "41"x is an ASCII "A" */ - self~assertSame('subTest01',"A",d2c(65)) +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_D2C" + self~assertSame("subTest1", 'A' , D2C(65) ) + self~assertSame("subTest2", 'A' , D2C(65,1) ) + self~assertSame("subTest3", right('A', 2, "00"x) , D2C(65,2) ) + self~assertSame("subTest4", right('A', 5, "00"x) , D2C(65,5) ) + self~assertSame("subTest5", 'm' , D2C(109) ) /* '6D'x is an ASCII 'm' */ + self~assertSame("subTest6", '93'x , D2C(-109,1)) /* '93'x is an ASCII '\xF4' */ + self~assertSame("subTest7", right('L', 2, "00"x) , D2C(76,2) ) /* '4C'x is an ASCII ' L' */ + self~assertSame("subTest8", right('L', 2, "FF"x) , D2C(-180,2)) -::method 'testDocumentationExamples02' --- D2C(65,1) -> "A" - self~assertSame('subTest02',"A",d2c(65,1)) + -- new tests + self~assertSame("subTest9", "" , D2C(-180,0)) -::method 'testDocumentationExamples03' --- D2C(65,2) -> " A" /* the leading character is a "00"x */ - self~assertSame('subTest03','00'x"A",d2c(65,2)) -::method 'testDocumentationExamples04' --- D2C(65,5) -> " A" /* the leading characters are "00"x */ - self~assertSame('subTest04','00'x'00'x'00'x'00'x"A",d2c(65,5)) -::method 'testDocumentationExamples05' --- D2C(109) -> "m" /* "6D"x is an ASCII "m" */ - self~assertSame('subTest05',"m",d2c(109)) - -::method 'testDocumentationExamples06' --- D2C(-109,1) -> "\xF4" /* "93"x is an ASCII "\xF4" */ --- self~assertSame('subTest06',"\xF4",d2c(-109,1)) - self~assertSame('subTest06',"93"x,d2c(-109,1)) - -::method 'testDocumentationExamples07' --- D2C(76,2) -> " L" /* "4C"x is an ASCII "L" */ - self~assertSame('subTest07','00'x"L",d2c(76,2)) - -::method 'testDocumentationExamples08' --- D2C(-180,2) -> " L" /* the leading character is a "FF"x */ - self~assertSame('subTest08','FF'x"L",d2c(-180,2)) - - - Modified: test/branches/test.3.2.0/ooRexx/base/bif/D2X.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/D2X.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/D2X.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/06 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -317,40 +319,16 @@ ::method 'test48' self~assertSame('subTest01','00014FBE105',d2x(SUBWORD('082264 352051461 219862623',2,1),copies('1',2))) --- Documentation examples - Actual verbage from the documentation is commented in each method -::method 'testDocumentationExamples01' --- D2X(9) -> "9" - self~assertSame('subTest01',"9",d2x(9)) +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_D2X" + self~assertSame("subTest1", '9' , D2X(9) ) + self~assertSame("subTest2", '81' , D2X(129) ) + self~assertSame("subTest3", '1' , D2X(129,1) ) + self~assertSame("subTest4", '81' , D2X(129,2) ) + self~assertSame("subTest5", '0081' , D2X(129,4) ) + self~assertSame("subTest6", '01' , D2X(257,2) ) + self~assertSame("subTest7", '81' , D2X(-127,2)) + self~assertSame("subTest8", 'FF81' , D2X(-127,4)) + self~assertSame("subTest9", "" , D2X(12,0) ) -::method 'testDocumentationExamples02' --- D2X(129) -> "81" - self~assertSame('subTest01',"81",d2x(129)) - -::method 'testDocumentationExamples03' --- D2X(129,1) -> "1" - self~assertSame('subTest01',"1",d2x(129,1)) - -::method 'testDocumentationExamples04' --- D2X(129,2) -> "81" - self~assertSame('subTest01',"81",d2x(129,2)) - -::method 'testDocumentationExamples05' --- D2X(129,4) -> "0081" - self~assertSame('subTest01',"0081",d2x(129,4)) - -::method 'testDocumentationExamples06' --- D2X(257,2) -> "01" - self~assertSame('subTest01',"01",d2x(257,2)) - -::method 'testDocumentationExamples07' --- D2X(-127,2) -> "81" - self~assertSame('subTest01',"81",d2x(-127,2)) - -::method 'testDocumentationExamples08' --- D2X(-127,4) -> "FF81" - self~assertSame('subTest01',"FF81",d2x(-127,4)) - -::method 'testDocumentationExamples09' --- D2X(12,0) -> "" - self~assertSame('subTest01',"",d2x(12,0)) - Modified: test/branches/test.3.2.0/ooRexx/base/bif/DATATYPE.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/DATATYPE.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/DATATYPE.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/06 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -461,3 +463,101 @@ erg = '0' return erg +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_DATATYPE" + self~assertEquals("subTest1" , 'NUM' , DATATYPE(' 12 ') ) + self~assertEquals("subTest2" , 'CHAR' , DATATYPE("") ) + self~assertEquals("subTest3" , 'CHAR' , DATATYPE('123*') ) + + self~assertTrue("subTest4" , DATATYPE('12.3','N') ) + self~assertFalse("subTest5" , DATATYPE('12.3','W') ) + self~assertTrue("subTest6" , DATATYPE('Fred','M') ) + self~assertFalse("subTest7" , DATATYPE('Fred','U') ) -- changed, syntax error in documentation ! + self~assertFalse("subTest8" , DATATYPE('Fred','L') ) + self~assertTrue("subTest9" , DATATYPE('?20K','s') ) + self~assertTrue("subTest10" , DATATYPE('BCd3','X') ) + self~assertTrue("subTest11" , DATATYPE('BC d3','X') ) + + -- new tests + self~assertTrue("subTest12" , DATATYPE('', 'X') ) + + self~assertTrue("subTest13" , DATATYPE('BCd3' ,'A') ) -- alphanumeric + self~assertFalse("subTest14", DATATYPE('BC-d3','A') ) + + self~assertTrue("subTest15" , DATATYPE('a1' ,'s') ) -- symbol + self~assertTrue("subTest16" , DATATYPE('.a1' ,'s') ) + self~assertTrue("subTest17" , DATATYPE('_' ,'s') ) + self~assertTrue("subTest18" , DATATYPE('!' ,'s') ) + self~assertTrue("subTest19" , DATATYPE('?' ,'s') ) + self~assertTrue("subTest20" , DATATYPE('.' ,'s') ) + self~assertTrue("subTest21" , DATATYPE('1' ,'s') ) + self~assertTrue("subTest22" , DATATYPE('1b_!?','s') ) + self~assertFalse("subTest23", DATATYPE('. .' ,'s') ) + + self~assertTrue("subTest24" , DATATYPE('abc' ,'v') ) -- variable + self~assertTrue("subTest25" , DATATYPE('?' ,'v') ) + self~assertTrue("subTest26" , DATATYPE('_' ,'v') ) + self~assertTrue("subTest27" , DATATYPE('!' ,'v') ) + self~assertTrue("subTest28" , DATATYPE('a1!_?','v') ) + self~assertFalse("subTest29", DATATYPE('.' ,'v') ) + self~assertFalse("subTest30", DATATYPE('.a' ,'v') ) + self~assertFalse("subTest31", DATATYPE('1' ,'v') ) + + + a=digits() -- get digits + numeric digits 9 + self~assertTrue( "subTest32", DATATYPE('0' ,'W') ) -- whole number + self~assertTrue( "subTest33", DATATYPE('1' ,'W') ) + self~assertTrue( "subTest34", DATATYPE('-1' ,'W') ) + self~assertTrue( "subTest35", DATATYPE('12345','W') ) + self~assertTrue( "subTest36", DATATYPE('1E3' ,'W') ) + self~assertFalse("subTest37", DATATYPE('1E9' ,'W') ) + + numeric digits a + + self~assertFalse("subTest44", DATATYPE('z' ,'X') ) -- heX-digits + self~assertTrue( "subTest45", DATATYPE('' ,'X') ) + + self~assertFalse("subTest46", DATATYPE('z' ,'B') ) -- binary digits + self~assertTrue( "subTest47", DATATYPE('' ,'B') ) + self~assertTrue( "subTest48", DATATYPE('01' ,'B') ) + self~assertTrue( "subTest49", DATATYPE('01101001' ,'B') ) + self~assertTrue( "subTest50", DATATYPE('0110 1001' ,'B') ) + self~assertFalse("subTest51", DATATYPE('011 01001' ,'B') ) + + numeric digits 9 + self~assertEquals("subTest52", 'NUM' , DATATYPE(' 1e3 ') ) + self~assertEquals("subTest53", 'NUM' , DATATYPE(' 123456789 ') ) + self~assertEquals("subTest54", 'NUM' , DATATYPE(' 1234567891 ') ) + self~assertEquals("subTest55", 'CHAR' , DATATYPE("") ) + self~assertEquals("subTest56", 'CHAR' , DATATYPE("a") ) + self~assertEquals("subTest57", 'CHAR' , DATATYPE("abc") ) + self~assertEquals("subTest58", 'CHAR' , DATATYPE("1A0") ) + + self~assertTrue("subTest59" , DATATYPE("123456789012345", "N" ) ) -- Numeric + self~assertTrue("subTest60" , DATATYPE("0" , "N" ) ) -- Numeric + self~assertTrue("subTest61" , DATATYPE("1234567890.1234", "N" ) ) -- Numeric + self~assertFalse("subTest61" , DATATYPE("" , "N" ) ) -- Numeric + numeric digits a + + self~assertTrue("subtest62", DATATYPE(0, "O") ) -- Logical (Boolean) + self~assertTrue("subtest63", DATATYPE(1, "O") ) -- Logical (Boolean) + self~assertFalse("subtest64", DATATYPE(2, "O") ) -- Logical (Boolean) + self~assertFalse("subtest65", DATATYPE(-1, "O") ) -- Logical (Boolean) + self~assertFalse("subtest66", DATATYPE("", "O") ) -- Logical (Boolean) + + + -- test the BIF, using examples from the documentation +::method "test_DATATYPE_WITH_OPTION_9" + a=digits() -- get digits + + numeric digits 1 -- make sure that numeric digits is not set to 9 + self~assertTrue( "subTest38", DATATYPE('0' ,'9') ) -- whole number under 9 digits (?) + self~assertTrue( "subTest39", DATATYPE('1' ,'9') ) + self~assertTrue( "subTest40", DATATYPE('-1' ,'9') ) + self~assertTrue( "subTest41", DATATYPE('12345' ,'9') ) -- ? + self~assertTrue( "subTest42", DATATYPE('1E3' ,'9') ) -- ? + self~assertFalse( "subTest43", DATATYPE('1E9' ,'9') ) -- ? + numeric digits a + Modified: test/branches/test.3.2.0/ooRexx/base/bif/DATE.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/DATE.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/DATE.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/07 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -899,8 +901,40 @@ self~assertSame("usa_dash_sep / subtest # 19", date('U', date, format, '-'), "02-29-00") self~assertSame("weekday / subtest # 20", date('W', date, format), "Tuesday") - - ::routine leapyear return((arg(1)//4=0)&(0=(arg(1)//100=0)))|(arg(1)//400=0) +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_DATE" + tmpD='13 Nov 1996' + + self~assertSame("subTest1" , '13 Nov 1996' , DATE( , tmpD )) + self~assertSame("subTest2" , 728975 , DATE('B', tmpD )) -- error: 728609 ) + self~assertSame("subTest3" , 318 , DATE('D', tmpD )) -- error: 317 ) + self~assertSame("subTest4" , '13/11/96' , DATE('E', tmpD )) + self~assertSame("subTest5" , '13 November 1996' , DATE('L', tmpD )) + self~assertSame("subTest6" , 'November' , DATE('M', tmpD )) + self~assertSame("subTest7" , '13 Nov 1996' , DATE('N', tmpD )) + self~assertSame("subTest8" , '96/11/13' , DATE('O', tmpD )) + self~assertSame("subTest9" , '19961113' , DATE('S', tmpD )) + self~assertSame("subTest10", '11/13/96' , DATE('U', tmpD )) + self~assertSame("subTest11", 'Wednesday' , DATE('W', tmpD )) -- error: 'Monday' ) + + self~assertSame("subTest12", '23/02/13' , DATE('O','13 Feb 1923') ) + self~assertSame("subTest13", '50/06/01' , DATE('O','06/01/50','U')) + + self~assertSame("subTest14", '1996-02-13' , DATE('S','13 Feb 1996','N','-')) + self~assertSame("subTest15", '13Feb1996' , DATE('N','13 Feb 1996','N',"") ) + self~assertSame("subTest16", '13-Feb-1996' , DATE('N','13 Feb 1996','N','-')) + self~assertSame("subTest17", '500601' , DATE('O','06/01/50','U',"") ) + self~assertSame("subTest18", '13.02.96' , DATE('E','02/13/96','U','.') ) + self~assertSame("subTest19", '26_Mar_1998' , DATE('N', '26 Mar 1998', ,'_') ) + + -- self~assertSame("subTest20", DATE('S','1996-11-13','S', ,"",'-'), '19961113' ) -- error: more than 5 arg() ! + self~assertSame("subTest20", '19961113' , DATE('S','1996-11-13','S',"",'-') ) + + self~assertSame("subTest21", '19961113' , DATE('S','13-Nov-1996','N',"",'-') ) + self~assertSame("subTest22", '500601' , DATE('O','06*01*50','U',"",'*') ) + self~assertSame("subTest23", '02/13/96' , DATE('U','13.Feb.1996','N', ,'.') ) + Modified: test/branches/test.3.2.0/ooRexx/base/bif/DELSTR.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/DELSTR.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/DELSTR.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/06 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -339,17 +341,18 @@ v30 = 'abcdefghijklmnopqrstuvwxyz1234' self~assertSame('subtest01','fghijklmnopqrxyz1234',delStr(delStr(v30,1,5),delStr('123',2)||delStr('456',2),delStr(567,2))) --- Documentation examples - Actual verbage from the documentation is commented in each method -::method 'testDocumentationExamples01' --- delStr("abcd",3) -> "ab" - self~assertSame('subTest01',"ab",delStr("abcd",3)) +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_DELSTR" + self~assertSame("subTest1" , 'ab' , DELSTR('abcd',3) ) + self~assertSame("subTest2" , 'abe' , DELSTR('abcde',3,2)) + self~assertSame("subTest3" , 'abcde' , DELSTR('abcde',6) ) -::method 'testDocumentationExamples02' --- delStr("abcde",3,2) -> "abe" - self~assertSame('subTest01',"abe",delStr("abcde",3,2)) + -- new tests + self~assertSame("subTest4" , '' , DELSTR('abcde',1) ) + self~assertSame("subTest5" , 'bcde' , DELSTR('abcde',1,1)) + self~assertSame("subTest6" , 'abcde' , DELSTR('abcde',1,0)) + self~assertSame("subTest7" , 'abcde' , DELSTR('abcde',3,0)) + self~assertSame("subTest8" , 'abde' , DELSTR('abcde',3,1)) + self~assertSame("subTest9" , 'abcde' , DELSTR('abcde',9) ) -::method 'testDocumentationExamples03' --- delStr("abcde",6) -> "abcde" - self~assertSame('subTest01',"abcde",delStr("abcde",6)) - - Modified: test/branches/test.3.2.0/ooRexx/base/bif/DELWORD.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/DELWORD.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/DELWORD.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/06 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -310,24 +312,16 @@ ::method 'test45' self~assertSame('subTest01','John ',delWord(delWord('John R. Buckley',2,1),delWord('2 3',2,1),delWord('1 2 3',2,2))) --- Documentation examples - Actual verbage from the documentation is commented in each method -::method 'testDocumentationExamples01' --- DELWORD("Now is the time",2,2) -> "Now time" - self~assertSame('subTest01',"Now time",delWord("Now is the time",2,2)) +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_DELWORD" + self~assertSame("subTest1" , 'Now time' , DELWORD('Now is the time',2,2)) + self~assertSame("subTest2" , 'Now is ' , DELWORD('Now is the time ',3) ) + self~assertSame("subTest3" , 'Now is the time' , DELWORD('Now is the time',5) ) + self~assertSame("subTest4" , 'Now is time' , DELWORD('Now is the time',3,1)) + self~assertSame("subTest5" , 'Now time' , DELWORD('Now is the time',2,2)) -::method 'testDocumentationExamples02' --- DELWORD("Now is the time ",3) -> "Now is " - self~assertSame('subTest01',"Now is ",delWord("Now is the time ",3)) + -- new tests + self~assertSame("subTest4" , 'Now is the time' , DELWORD('Now is the time',3,0)) + self~assertSame("subTest4" , 'Now is the time' , DELWORD('Now is the time',1,0)) -::method 'testDocumentationExamples03' --- DELWORD("Now is the time",5) -> "Now is the time" - self~assertSame('subTest01',"Now is the time",delWord("Now is the time",5)) - -::method 'testDocumentationExamples04' --- DELWORD("Now is the time",3,1) -> "Now is time" - self~assertSame('subTest01',"Now is time",delWord("Now is the time",3,1)) - -::method 'testDocumentationExamples05' --- DELWORD("Now is the time",2,2) -> "Now time" - self~assertSame('subTest01',"Now time",delWord("Now is the time",2,2)) - Modified: test/branches/test.3.2.0/ooRexx/base/bif/DIGITS.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/DIGITS.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/DIGITS.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/06 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -207,9 +209,140 @@ self~expectSyntax(33.1) numeric fuzz 10 --- Documentation examples - Actual verbage from the documentation is commented in each method -::method 'testDocumentationExamples01' --- DIGITS() -> 9 /* by default */ - self~assertSame('subTest01',9,digits()) + -- test the BIF +::method "test_DIGITS" + self~assertTrue("subTest1", datatype(digits(),"N")) -- make sure a number is returned + self~assertTrue("subTest2", digits()>0 ) -- make sure a number is returned +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_ERRORTEXT" + self~assertSame("subTest-2" , 'Label not found' , ERRORTEXT(16)) + self~assertSame("subTest-1" , "" , ERRORTEXT(60)) + -- additional tests by Walter Pachl (2005-10-14) + self~assertSame('subTest1' , '' , ERRORTEXT(1) ) + self~assertSame('subTest2' , '' , ERRORTEXT(2) ) + self~assertSame('subTest3' , 'Failure during initialization' , ERRORTEXT(3) ) + self~assertSame('subTest4' , 'Program interrupted' , ERRORTEXT(4) ) + self~assertSame('subTest5' , 'System resources exhausted' , ERRORTEXT(5) ) + self~assertSame('subTest6' , 'Unmatched "/*" or quote' , ERRORTEXT(6) ) + self~assertSame('subTest7' , 'WHEN or OTHERWISE expected' , ERRORTEXT(7) ) + self~assertSame('subTest8' , 'Unexpected THEN or ELSE' , ERRORTEXT(8) ) + self~assertSame('subTest9' , 'Unexpected WHEN or OTHERWISE' , ERRORTEXT(9) ) + self~assertSame('subTest10', 'Unexpected or unmatched END' , ERRORTEXT(10)) + self~assertSame('subTest11', 'Control stack full' , ERRORTEXT(11)) + self~assertSame('subTest12', '' , ERRORTEXT(12)) + self~assertSame('subTest13', 'Invalid character in program' , ERRORTEXT(13)) + self~assertSame('subTest14', 'Incomplete DO/SELECT/IF' , ERRORTEXT(14)) + self~assertSame('subTest15', 'Invalid hexadecimal or binary string' , ERRORTEXT(15)) + self~assertSame('subTest16', 'Label not found' , ERRORTEXT(16)) + self~assertSame('subTest17', 'Unexpected PROCEDURE' , ERRORTEXT(17)) + self~assertSame('subTest18', 'THEN expected' , ERRORTEXT(18)) + self~assertSame('subTest19', 'String or symbol expected' , ERRORTEXT(19)) + self~assertSame('subTest20', 'Symbol expected' , ERRORTEXT(20)) + self~assertSame('subTest21', 'Invalid data on end of clause' , ERRORTEXT(21)) + self~assertSame('subTest22', 'Invalid character string' , ERRORTEXT(22)) + self~assertSame('subTest23', 'Invalid data string' , ERRORTEXT(23)) + self~assertSame('subTest24', 'Invalid TRACE request' , ERRORTEXT(24)) + self~assertSame('subTest25', 'Invalid subkeyword found' , ERRORTEXT(25)) + self~assertSame('subTest26', 'Invalid whole number' , ERRORTEXT(26)) + self~assertSame('subTest27', 'Invalid DO syntax' , ERRORTEXT(27)) + self~assertSame('subTest28', 'Invalid LEAVE or ITERATE' , ERRORTEXT(28)) + self~assertSame('subTest29', 'Environment name too long' , ERRORTEXT(29)) + self~assertSame('subTest30', 'Name or string too long' , ERRORTEXT(30)) + self~assertSame('subTest31', 'Name starts with number or "."' , ERRORTEXT(31)) + self~assertSame('subTest32', '' , ERRORTEXT(32)) + self~assertSame('subTest33', 'Invalid expression result' , ERRORTEXT(33)) + self~assertSame('subTest34', 'Logical value not 0 or 1' , ERRORTEXT(34)) + self~assertSame('subTest35', 'Invalid expression' , ERRORTEXT(35)) + self~assertSame('subTest36', 'Unmatched "(" or "[" in expression' , ERRORTEXT(36)) + self~assertSame('subTest37', 'Unexpected ",", ")", or "]"' , ERRORTEXT(37)) + self~assertSame('subTest38', 'Invalid template or pattern' , ERRORTEXT(38)) + self~assertSame('subTest39', 'Evaluation stack overflow' , ERRORTEXT(39)) + self~assertSame('subTest40', 'Incorrect call to routine' , ERRORTEXT(40)) + self~assertSame('subTest41', 'Bad arithmetic conversion' , ERRORTEXT(41)) + self~assertSame('subTest42', 'Arithmetic overflow/underflow' , ERRORTEXT(42)) + self~assertSame('subTest43', 'Routine not found' , ERRORTEXT(43)) + self~assertSame('subTest44', 'Function or message did not return data' , ERRORTEXT(44)) + self~assertSame('subTest45', 'No data specified on function RETURN' , ERRORTEXT(45)) + self~assertSame('subTest46', 'Invalid variable reference' , ERRORTEXT(46)) + self~assertSame('subTest47', 'Unexpected label' , ERRORTEXT(47)) + self~assertSame('subTest48', 'Failure in system service' , ERRORTEXT(48)) + self~assertSame('subTest49', 'Interpretation error' , ERRORTEXT(49)) + self~assertSame('subTest50', '' , ERRORTEXT(50)) + self~assertSame('subTest51', '' , ERRORTEXT(51)) + self~assertSame('subTest52', '' , ERRORTEXT(52)) + self~assertSame('subTest53', '' , ERRORTEXT(53)) + self~assertSame('subTest54', '' , ERRORTEXT(54)) + self~assertSame('subTest55', '' , ERRORTEXT(55)) + self~assertSame('subTest56', '' , ERRORTEXT(56)) + self~assertSame('subTest57', '' , ERRORTEXT(57)) + self~assertSame('subTest58', '' , ERRORTEXT(58)) + self~assertSame('subTest59', '' , ERRORTEXT(59)) + self~assertSame('subTest60', '' , ERRORTEXT(60)) + self~assertSame('subTest61', '' , ERRORTEXT(61)) + self~assertSame('subTest62', '' , ERRORTEXT(62)) + self~assertSame('subTest63', '' , ERRORTEXT(63)) + self~assertSame('subTest64', '' , ERRORTEXT(64)) + self~assertSame('subTest65', '' , ERRORTEXT(65)) + self~assertSame('subTest66', '' , ERRORTEXT(66)) + self~assertSame('subTest67', '' , ERRORTEXT(67)) + self~assertSame('subTest68', '' , ERRORTEXT(68)) + self~assertSame('subTest69', '' , ERRORTEXT(69)) + self~assertSame('subTest70', '' , ERRORTEXT(70)) + self~assertSame('subTest71', '' , ERRORTEXT(71)) + self~assertSame('subTest72', '' , ERRORTEXT(72)) + self~assertSame('subTest73', '' , ERRORTEXT(73)) + self~assertSame('subTest74', '' , ERRORTEXT(74)) + self~assertSame('subTest75', '' , ERRORTEXT(75)) + self~assertSame('subTest76', '' , ERRORTEXT(76)) + self~assertSame('subTest77', '' , ERRORTEXT(77)) + self~assertSame('subTest78', '' , ERRORTEXT(78)) + self~assertSame('subTest79', '' , ERRORTEXT(79)) + self~assertSame('subTest80', '' , ERRORTEXT(80)) + self~assertSame('subTest81', '' , ERRORTEXT(81)) + self~assertSame('subTest82', '' , ERRORTEXT(82)) + self~assertSame('subTest83', '' , ERRORTEXT(83)) + self~assertSame('subTest84', '' , ERRORTEXT(84)) + self~assertSame('subTest85', '' , ERRORTEXT(85)) + self~assertSame('subTest86', '' , ERRORTEXT(86)) + self~assertSame('subTest87', '' , ERRORTEXT(87)) + self~assertSame('subTest88', 'Invalid argument' , ERRORTEXT(88)) + self~assertSame('subTest89', 'Variable or message term expected' , ERRORTEXT(89)) + self~assertSame('subTest90', 'External name not found' , ERRORTEXT(90)) + self~assertSame('subTest91', 'No result object' , ERRORTEXT(91)) + self~assertSame('subTest92', 'OLE error' , ERRORTEXT(92)) + self~assertSame('subTest93', 'Incorrect call to method' , ERRORTEXT(93)) + self~assertSame('subTest94', '' , ERRORTEXT(94)) + self~assertSame('subTest95', '' , ERRORTEXT(95)) + self~assertSame('subTest96', '' , ERRORTEXT(96)) + self~assertSame('subTest97', 'Object method not found' , ERRORTEXT(97)) + self~assertSame('subTest98', 'Execution error' , ERRORTEXT(98)) + self~assertSame('subTest99', 'Translation error' , ERRORTEXT(99)) + + self~assertTrue("subTest100", test100()) + self~assertTrue("subTest101", test101()) + + return + + ---------------------------------------------------------------------- + + test100: procedure -- nonexisting error text number + signal on syntax name test100syntax + call errortext(100) -- should invoke a syntax error + return .false -- arriving here is an error! + test100syntax: -- syntax error # 40.903 + return condition("o")~code=40.903 + + ---------------------------------------------------------------------- + + test101: procedure -- not using a whole number as index + signal on syntax name test101syntax + a='blabla'; + errortext(a) -- should invoke a syntax error + return .false + test101syntax: -- syntax error # 40.12 + return condition("o")~code=40.12 + + Modified: test/branches/test.3.2.0/ooRexx/base/bif/FORMAT.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/FORMAT.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/FORMAT.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/07 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -2713,4 +2715,22 @@ ::method test654 -- self~assertSame('subTest01','1E+1',format(9.99999999,1,0,0,1)) +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_FORMAT" + self~assertSame("subTest1" , ' 3' , FORMAT('3',4) ) + self~assertSame("subTest2" , ' 2' , FORMAT('1.73',4,0) ) + self~assertSame("subTest3" , ' 1.730' , FORMAT('1.73',4,3) ) + self~assertSame("subTest4" , ' -0.8' , FORMAT('-.76',4,1) ) + self~assertSame("subTest5" , ' 3.03' , FORMAT('3.03',4) ) + self~assertSame("subTest6" , '-12.7300' , FORMAT(' - 12.73', ,4) ) + self~assertSame("subTest7" , '-12.73' , FORMAT(' - 12.73') ) + self~assertSame("subTest8" , '0' , FORMAT('0.000') ) + self~assertSame("subTest9" , '1.234573E+04' , FORMAT('12345.73', , ,2,2) ) -- + self~assertSame("subTest10", '1.235E+4' , FORMAT('12345.73', ,3, ,0) ) + self~assertSame("subTest11", '1.235' , FORMAT('1.234573', ,3, ,0) ) + self~assertSame("subTest12", '12345.73' , FORMAT('12345.73', , ,3,6) ) + self~assertSame("subTest13", '123456700000.000' , FORMAT('1234567e5', ,3,0) ) + + Modified: test/branches/test.3.2.0/ooRexx/base/bif/INSERT.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/INSERT.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/INSERT.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/07 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -670,4 +672,20 @@ .local~remove(vn100) .local~remove(vn999) +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_INSERT" + self~assertSame("subTest1" , 'abc def' , INSERT(' ','abcdef',3) ) + self~assertSame("subTest2" , 'abc 123 ' , INSERT('123','abc',5,6) ) + self~assertSame("subTest3" , 'abc++123+++' , INSERT('123','abc',5,6,'+')) + self~assertSame("subTest4" , '123abc' , INSERT('123','abc') ) + self~assertSame("subTest5" , '123--abc' , INSERT('123','abc', ,5,'-')) + -- new tests + self~assertSame("subTest6" , 'abcdef' , INSERT('','abcdef',3) ) + self~assertSame("subTest7" , 'abcdef' , INSERT(' ','abcdef',3, 0) ) + self~assertSame("subTest8" , '' , INSERT('','') ) + self~assertSame("subTest9" , ' ' , INSERT('','', 3, 0) ) + self~assertSame("subTest10", ' ' , INSERT('','', 3, 1) ) + + Modified: test/branches/test.3.2.0/ooRexx/base/bif/LASTPOS.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/LASTPOS.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/LASTPOS.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/11 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -727,3 +729,17 @@ .local~remove(vc740x) .local~remove(vxnx) +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_LASTPOS" + self~assertEquals("subTest1" , 8 , LASTPOS(' ','abc def ghi') ) + self~assertEquals("subTest2" , 0 , LASTPOS(' ','abcdefghi') ) + self~assertEquals("subTest3" , 4 , LASTPOS('xy','efgxyz') ) + self~assertEquals("subTest4" , 4 , LASTPOS(' ','abc def ghi',7)) + + -- new tests + self~assertEquals("subTest5" , 0 , LASTPOS('','abc def ghi',7)) + self~assertEquals("subTest6" , 0 , LASTPOS('','') ) + + + Modified: test/branches/test.3.2.0/ooRexx/base/bif/LEFT.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/LEFT.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/LEFT.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/11 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -273,4 +275,15 @@ .local~remove(vn21) .local~remove(vn25) +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_LEFT" + self~assertSame("subTest1" , 'abc d ' , LEFT('abc d',8) ) + self~assertSame("subTest2" , 'abc d...' , LEFT('abc d',8,'.')) + self~assertSame("subTest3" , 'abc de' , LEFT('abc def',7) ) + -- new tests + self~assertSame("subTest4" , 'a' , LEFT('abc def',1) ) + self~assertSame("subTest5" , '' , LEFT('abc def',0) ) + + Modified: test/branches/test.3.2.0/ooRexx/base/bif/LENGTH.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/LENGTH.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/LENGTH.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/11 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -227,6 +229,12 @@ .local~remove(v32768) .local~remove(v100000) +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_LENGTH" + self~assertSame("subTest1" , 8 , LENGTH('abcdefgh')) + self~assertSame("subTest2" , 8 , LENGTH('abc defg')) + self~assertSame("subTest3" , 0 , LENGTH("") ) Modified: test/branches/test.3.2.0/ooRexx/base/bif/MAX.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/MAX.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/MAX.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/11 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -152,4 +154,12 @@ ::method 'test012' self~assertSame('subTest01',-12345679,max(-12345679, '-12345678.96')) +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_MAX" + self~assertEquals("subTest1" , 12 , MAX(12,6,7,9) ) + self~assertEquals("subTest2" , 19 , MAX(17.3,19,17.03) ) + self~assertEquals("subTest3" , -3 , MAX(-7,-3,-4.3) ) + self~assertEquals("subTest4" , 21 , MAX(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21)) + Modified: test/branches/test.3.2.0/ooRexx/base/bif/MIN.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/MIN.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/MIN.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/11 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -118,34 +120,35 @@ ::method 'test001' self~assertSame('subTest01','1.00',min(1.00,1)) --- call ver Min(1.00,1),'1.00'; R0011: ::method 'test002' self~assertSame('subTest01','1',min(1,1.00)) --- call ver Min(1,1.00),'1'; R0012: ::method 'test003' self~assertSame('subTest01','12345678.0',min(12345678.00, 12345678)) --- call ver Min(12345678.00, 12345678),'12345678.0'; R0021: ::method 'test004' self~assertSame('subTest01','12345678',min(12345678, 12345678.00)) --- call ver Min(12345678, 12345678.00),'12345678'; R0022: ::method 'test005' self~assertSame('subTest01',12345679,min(12345679, 12345678.96)) --- call ver Min(12345679, 12345678.96),12345679; R0024: ::method 'test006' self~assertSame('subTest01','-12345678.0',min('-12345678.00', -12345678)) --- call ver Min('-12345678.00', -12345678),'-12345678.0'; R0028: ::method 'test007' self~assertSame('subTest01','-12345678',min(-12345678, '-12345678.00')) --- call ver Min(-12345678, '-12345678.00'),'-12345678'; R0029: ::method 'test008' self~assertSame('subTest01',-12345679.0,min('-12345678.96', -12345679)) --- call ver Min('-12345678.96', -12345679),-12345679.0; R0030: +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_MIN" + self~assertEquals("subTest1" , 6 , MIN(12,6,7,9) ) + self~assertEquals("subTest2" , 17.03 , MIN(17.3,19,17.03) ) + self~assertEquals("subTest3" , -7 , MIN(-7,-3,-4.3) ) + self~assertEquals("subTest4" , 1 , MIN(21,20,19,18,17,16,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1)) + + Modified: test/branches/test.3.2.0/ooRexx/base/bif/OVERLAY.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/OVERLAY.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/OVERLAY.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/12 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -369,4 +371,27 @@ .local~remove(vres6) .local~remove(vres7) +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_OVERLAY" + self~assertSame("subTest1" , 'ab def' , OVERLAY(' ','abcdef',3) ) + self~assertSame("subTest2" , 'ab. ef' , OVERLAY('.','abcdef',3,2) ) + self~assertSame("subTest3" , 'qqcd' , OVERLAY('qq','abcd') ) + self~assertSame("subTest4" , 'abcqq' , OVERLAY('qq','abcd',4) ) + self~assertSame("subTest5" , 'abc+123+++', OVERLAY('123','abc',5,6,'+') ) + -- new tests + self~assertSame("subTest6" , 'abc' , OVERLAY('','abc',3) ) + self~assertSame("subTest7" , 'abc' , OVERLAY('','abc',3, 0) ) + self~assertSame("subTest8" , 'ab ' , OVERLAY('','abc',3, 1) ) + self~assertSame("subTest9" , 'abc ' , OVERLAY('','abc',6, 1) ) + + self~assertSame("subTest10", 'abc' , OVERLAY(' ','abc',3, 0) ) + self~assertSame("subTest11", 'ab ' , OVERLAY(' ','abc',3, 1) ) + self~assertSame("subTest12", 'abc ' , OVERLAY(' ','abc',6, 1) ) + + self~assertSame("subTest13", 'abc' , OVERLAY('12','abc',3, 0) ) + self~assertSame("subTest14", 'ab3' , OVERLAY('34','abc',3, 1) ) + self~assertSame("subTest15", 'abc 5' , OVERLAY('56','abc',6, 1) ) + + Modified: test/branches/test.3.2.0/ooRexx/base/bif/POS.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/POS.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/POS.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/12 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -459,3 +461,15 @@ c = 6 self~assertSame('subTest01','9',pos(b,a,c)) +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_POS" + self~assertEquals("subTest1" , 6, POS('day','Saturday') ) + self~assertEquals("subTest2" , 0, POS('x','abc def ghi') ) + self~assertEquals("subTest3" , 4, POS(' ','abc def ghi') ) + self~assertEquals("subTest4" , 8, POS(' ','abc def ghi',5)) + + -- new test + self~assertEquals("subTest5" , 0, POS('','abc def ghi',5) ) + + Modified: test/branches/test.3.2.0/ooRexx/base/bif/REVERSE.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/REVERSE.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/REVERSE.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/12 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -230,4 +232,14 @@ hansjako. = 13 self~assertSame('subTest01','31',reverse(value(reverse(.okajsnah)))) +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_REVERSE" + self~assertSame("subTest1" , '.cBA' , REVERSE('ABc.')) + self~assertSame("subTest2" , ' ZYX' , REVERSE('XYZ ')) + -- new tests + self~assertSame("subTest3" , '' , REVERSE('' )) + self~assertSame("subTest4" , '' , REVERSE('' )) + + Modified: test/branches/test.3.2.0/ooRexx/base/bif/RIGHT.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/RIGHT.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/RIGHT.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/12 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -312,3 +314,15 @@ .local~remove(vn21) .local~remove(vn25) +-- from bif.testgroup +-- test the BIF, using examples from the documentation +::method "test_RIGHT" + self~assertSame("subTest1" , ' abc d' , RIGHT('abc d',8) ) + self~assertSame("subTest2" , 'c def' , RIGHT('abc def',5) ) + self~assertSame("subTest3" , '00012' , RIGHT('12',5,'0') ) + + -- new tests + self~assertSame("subTest4" , ' ' , RIGHT('', 3) ) + self~assertSame("subTest5" , '' , RIGHT('', 0) ) + self~assertSame("subTest6" , '' , RIGHT('123', 0) ) + Modified: test/branches/test.3.2.0/ooRexx/base/bif/SIGN.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/SIGN.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/SIGN.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/13 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -280,5 +282,14 @@ x = sign(x) self~assertSame('subTest01',1,x) +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_SIGN" + self~assertEquals("subTest1" , 1 , SIGN('12.3') ) + self~assertEquals("subTest2" , -1 , SIGN(' -0.307') ) + self~assertEquals("subTest3" , 0 , SIGN(0.0) ) + -- new tests + self~assertEquals("subTest4" , 0 , SIGN(-0.0) ) + Modified: test/branches/test.3.2.0/ooRexx/base/bif/SOURCELINE.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/SOURCELINE.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/SOURCELINE.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,8 +4,8 @@ name: SOURCELINE.testUnit author: Lee Peedin - date: 2007/12/13 - version: 1.0 + date: 2007/12/13 2007/12/18 + version: 1.0 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -158,8 +158,8 @@ self~assertSame('sourceline(1) must equal first line', l1, sourceLine(1)) ::method 'test_last_line' - lastLine = " src = sourceLine(179)" - self~assertSame('Text from last line should match sourceline(178)', lastLine, sourceLine(178)) + lastLine = " end" + self~assertSame('Text from last line should match sourceline(178)', lastLine, sourceLine(197)) ::method 'test_negative_number' self~expectSyntax(40.14) @@ -175,4 +175,23 @@ ::method 'test_too_large_by_one' self~expectSyntax(40.34) - src = sourceLine(179) + src = sourceLine(198) + +-- from bif.testgroup +::method "test_SOURCELINE" + -- self~assertEquals("subTest1" , SOURCELINE(1) , "/*" ) + + self~assertTrue("subTest1" , datatype(sourceline(), "N")) + self~assertEquals("subTest2" , "/*" , SOURCELINE(2) ) + + -- get operating system + parse upper source opsys +1 + if pos(opsys, "WO")=0 then -- assuming Unix based operating system + do + -- assuming hash-bang characters get removed on Unix by the opsys/shell + self~assertEquals("subTest3a (Unix-based)" , "" , SOURCELINE(1) ) + end + else -- Windows or OS/2 + do + self~assertEquals("subTest3b (Windows)" , "/usr/bin/rexx" , SOURCELINE(1)~substr(3) ) + end \ No newline at end of file Modified: test/branches/test.3.2.0/ooRexx/base/bif/SPACE.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/SPACE.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/SPACE.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/13 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -365,4 +367,23 @@ .local~remove(v19) .local~remove(v8) +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_SPACE" + self~assertSame("subTest1" , 'abc def' , SPACE('abc def ') ) + self~assertSame("subTest2" , 'abc def' , SPACE(' abc def',3) ) + self~assertSame("subTest3" , 'abc def' , SPACE('abc def ',1) ) + self~assertSame("subTest4" , 'abcdef' , SPACE('abc def ',0) ) + self~assertSame("subTest5" , 'abc++def' , SPACE('abc def ',2,'+')) + -- new tests + self~assertSame("subTest6" , '' , SPACE(' ',0) ) + self~assertSame("subTest7" , '' , SPACE(' ',1) ) + self~assertSame("subTest8" , '' , SPACE(' ',2) ) + self~assertSame("subTest9" , '' , SPACE(' ',3) ) + self~assertSame("subTest10", '' , SPACE('' ,0) ) + self~assertSame("subTest11", '' , SPACE('' ,1) ) + self~assertSame("subTest12", '' , SPACE('' ,2) ) + self~assertSame("subTest13", '' , SPACE('' ,3) ) + + Modified: test/branches/test.3.2.0/ooRexx/base/bif/STRIP.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/STRIP.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/STRIP.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/13 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -502,4 +504,16 @@ .local~remove(xr) .local~remove(xr2) +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_STRIP" + self~assertSame("subTest1" , 'ab c' , STRIP(' ab c ') ) + self~assertSame("subTest2" , 'ab c ' , STRIP(' ab c ','L') ) + self~assertSame("subTest3" , ' ab c' , STRIP(' ab c ','t') ) + self~assertSame("subTest4" , '12.7' , STRIP('12.7000', ,0) ) + self~assertSame("subTest5" , '12.7' , STRIP('0012.700', ,0) ) + -- new tests + self~assertSame("subTest6" , '' , STRIP('' ) ) + self~assertSame("subTest7" , '' , STRIP(' ') ) + Modified: test/branches/test.3.2.0/ooRexx/base/bif/SUBSTR.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/SUBSTR.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/SUBSTR.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/13 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -440,4 +442,17 @@ .local~remove(v256) .local~remove(v10000) +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_SUBSTR" + self~assertSame("subTest1" , 'bc' , SUBSTR('abc',2) ) + self~assertSame("subTest2" , 'bc ' , SUBSTR('abc',2,4) ) + self~assertSame("subTest3" , 'bc....', SUBSTR('abc',2,6,'.') ) + -- new tests + self~assertSame("subTest4" , '' , SUBSTR('abc',2,0) ) + self~assertSame("subTest5" , 'a' , SUBSTR('abc',1,1) ) + self~assertSame("subTest6" , 'c' , SUBSTR('abc',3,1) ) + self~assertSame("subTest7" , ' ' , SUBSTR('abc',4,1) ) + self~assertSame("subTest8" , ' ' , SUBSTR('abc',4,2) ) + Modified: test/branches/test.3.2.0/ooRexx/base/bif/SUBWORD.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/SUBWORD.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/SUBWORD.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/13 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -675,4 +677,17 @@ .local~remove(v19) .local~remove(v14) +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_SUBWORD" + self~assertSame("subTest1" , 'is the' , SUBWORD('Now is the time',2,2) ) + self~assertSame("subTest2" , 'the time', SUBWORD('Now is the time',3) ) + self~assertSame("subTest3" , "" , SUBWORD('Now is the time',5) ) + -- new tests + self~assertSame("subTest4" , '' , SUBWORD('Now is the time',2,0) ) + self~assertSame("subTest5" , 'the time' , SUBWORD('Now is the time ',3) ) + self~assertSame("subTest6" , "time" , SUBWORD('Now is the time ',4) ) + self~assertSame("subTest7" , "" , SUBWORD('Now is the time ',5) ) + + Modified: test/branches/test.3.2.0/ooRexx/base/bif/SYMBOL.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/SYMBOL.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/SYMBOL.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: Lee Peedin date: 2007/12/13 version: 1.0 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: @@ -200,4 +202,23 @@ ::method 'test028' self~assertSame('subTest01','LIT',symbol('1Garbage+1')) +-- from bif.testgroup + -- test the BIF, using examples from the documentation +::method "test_SYMBOL" + /* following: Drop A.3; J=3 */ + drop a.3 + j=3 + self~assertEquals("subTest1" , 'VAR' , SYMBOL('J') ) + self~assertEquals("subTest2" , 'LIT' /* has tested "3" */ , SYMBOL(J) ) + self~assertEquals("subTest3" , 'LIT' /* has tested A.3 */ , SYMBOL('a.j') ) + self~assertEquals("subTest4" , 'LIT' /* a constant symbol */ , SYMBOL(2) ) + self~assertEquals("subTest5" , 'BAD' /* not a valid symbol */ , SYMBOL('*') ) + + -- new tests + self~assertEquals("subTest6" , 'LIT' /* not a valid symbol */ , SYMBOL('.') ) + self~assertEquals("subTest7" , 'LIT' /* not a valid symbol */ , SYMBOL('.a') ) + self~assertEquals("subTest8" , 'BAD' /* not a valid symbol */ , SYMBOL('') ) + self~assertEquals("subTest9" , 'BAD' /* not a valid symbol */ , SYMBOL(' ') ) + + Modified: test/branches/test.3.2.0/ooRexx/base/bif/TIME.testGroup =================================================================== --- test/branches/test.3.2.0/ooRexx/base/bif/TIME.testGroup 2007-12-18 18:06:37 UTC (rev 1624) +++ test/branches/test.3.2.0/ooRexx/base/bif/TIME.testGroup 2007-12-18 20:18:37 UTC (rev 1625) @@ -4,6 +4,8 @@ author: W. David Ashley date: 2007-12-17 version: 1.0.1 + date: 2007/12/18 + version: 1.1 -- line commented lines are ignored, when building the directory of infos from this header changed: 2007-12-17, ---wda, initial creation @@ -1955,3 +1957,204 @@ self~expectSyntax(40.904) z = time(a) +-- from time.testgroup 12/18/07 Lee Peedin +::METHOD 'test_civil_morning' +time = '4:47am' +format = 'C' +self~assertSame("civil / subtest # 1", time('C', time, format), "4:47am") +self~assertSame("hours / subtest # 2", time('H', time, format), "4") +self~assertSame("long / subtest # 3", time('L', time, format), "04:47:00.000000") +self~assertSame("long / subtest # 4", time('M', time, format), "287") +self~assertSame("long / subtest # 5", time('N', time, format), "04:47:00") +self~assertSame("long / subtest # 6", time('S', time, format), "17220") + +::METHOD 'test_civil_afternoon' +time = '4:47pm' +format = 'C' +self~assertS... [truncated message content] |