From 3783e1eacfc1df581f18fa82072f6aa0f41a3df6 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Fri, 3 Sep 1999 13:58:47 +0000 Subject: [PATCH] *** empty log message *** --- harbour/tests/working/rtl_test.prg | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/harbour/tests/working/rtl_test.prg b/harbour/tests/working/rtl_test.prg index 957925f95f..de081afdb7 100644 --- a/harbour/tests/working/rtl_test.prg +++ b/harbour/tests/working/rtl_test.prg @@ -361,7 +361,7 @@ FUNCTION Main( cPar1 ) TEST_LINE( .T. .AND. SToD("") , SToD(" ") ) TEST_LINE( .T. .AND. NIL , NIL ) TEST_LINE( .T. .AND. {} , "{.[0].}" ) -// TEST_LINE( .T. .AND. {|| NIL } , "{||...}" ) + TEST_LINE( .T. .AND. {|| NIL } , "{||...}" ) TEST_LINE( .F. .AND. 1 , .F. ) TEST_LINE( .F. .AND. 1.567 , .F. ) TEST_LINE( .F. .AND. lcString , .F. ) @@ -397,7 +397,7 @@ FUNCTION Main( cPar1 ) TEST_LINE( .T. .AND. SToD("") , "E BASE 1078 Argument error .AND. F:S" ) TEST_LINE( .T. .AND. NIL , "E BASE 1078 Argument error .AND. F:S" ) TEST_LINE( .T. .AND. {} , "E BASE 1078 Argument error .AND. F:S" ) -// TEST_LINE( .T. .AND. {|| NIL } , "E BASE 1078 Argument error .AND. F:S" ) + TEST_LINE( .T. .AND. {|| NIL } , "E BASE 1078 Argument error .AND. F:S" ) TEST_LINE( .F. .AND. 1 , "E BASE 1078 Argument error .AND. F:S" ) TEST_LINE( .F. .AND. 1.567 , "E BASE 1078 Argument error .AND. F:S" ) TEST_LINE( .F. .AND. lcString , "E BASE 1078 Argument error .AND. F:S" ) @@ -448,7 +448,7 @@ FUNCTION Main( cPar1 ) TEST_LINE( lcString >= 1 , "E BASE 1076 Argument error >= F:S" ) TEST_LINE( lcString <> 1 , "E BASE 1072 Argument error <> F:S" ) TEST_LINE( lcString == 1 , "E BASE 1070 Argument error == F:S" ) -// TEST_LINE( {|| NIL } == {|| NIL } , "E BASE 1070 Argument error == F:S" ) + TEST_LINE( {|| NIL } == {|| NIL } , "E BASE 1070 Argument error == F:S" ) TEST_LINE( lcString = 1 , "E BASE 1071 Argument error = F:S" ) TEST_LINE( lcString < 1 , "E BASE 1073 Argument error < F:S" ) TEST_LINE( lcString <= 1 , "E BASE 1074 Argument error <= F:S" ) @@ -466,13 +466,13 @@ FUNCTION Main( cPar1 ) TEST_CALL( '("NOTHERE")->NOFIELD', {|| ("NOTHERE")->NOFIELD }, "E BASE 1002 Alias does not exist NOTHERE F:R" ) TEST_CALL( '(mcString)->NOFIELD' , {|| (mcString)->NOFIELD } , "E BASE 1002 Alias does not exist HELLO F:R" ) TEST_CALL( '({})->NOFIELD' , {|| ({})->NOFIELD } , "E BASE 1065 Argument error & F:S" ) -// TEST_CALL( '({|| NIL })->NOFIELD', {|| ({|| NIL })->NOFIELD }, "E BASE 1065 Argument error & F:S" ) + TEST_CALL( '({|| NIL })->NOFIELD', {|| ({|| NIL })->NOFIELD }, "E BASE 1065 Argument error & F:S" ) TEST_CALL( '(.T.)->NOFIELD' , {|| (.T.)->NOFIELD } , "E BASE 1065 Argument error & F:S" ) TEST_CALL( '(NIL)->NOFIELD' , {|| (NIL)->NOFIELD } , "E BASE 1065 Argument error & F:S" ) TEST_CALL( '("NOTHERE")->(Eof())', {|| ("NOTHERE")->(Eof()) }, .T. ) TEST_CALL( '(mcString)->(Eof())' , {|| (mcString)->(Eof()) } , .T. ) TEST_CALL( '({})->(Eof())' , {|| ({})->(Eof()) } , .T. ) -// TEST_CALL( '({|| NIL })->(Eof())', {|| ({|| NIL })->(Eof()) }, .T. ) + TEST_CALL( '({|| NIL })->(Eof())', {|| ({|| NIL })->(Eof()) }, .T. ) TEST_CALL( '(.T.)->(Eof())' , {|| (.T.)->(Eof()) } , .T. ) TEST_CALL( '(.F.)->(Eof())' , {|| (.F.)->(Eof()) } , .T. ) TEST_CALL( '(NIL)->(Eof())' , {|| (NIL)->(Eof()) } , .T. ) @@ -483,7 +483,7 @@ FUNCTION Main( cPar1 ) TEST_LINE( 200->(1) , 1 ) TEST_LINE( 200->(1.5) , 1.5 ) TEST_LINE( 200->({}) , "{.[0].}" ) -// TEST_LINE( 200->({|| NIL }) , "{||...}" ) + TEST_LINE( 200->({|| NIL }) , "{||...}" ) TEST_LINE( 200->(.T.) , .T. ) #endif @@ -539,7 +539,7 @@ FUNCTION Main( cPar1 ) TEST_LINE( Empty( {1} ) , .F. ) TEST_LINE( Empty( {} ) , .T. ) TEST_LINE( Empty( {0} ) , .F. ) -// TEST_LINE( Empty( {|x|x+x} ) , .F. ) + TEST_LINE( Empty( {|x|x+x} ) , .F. ) /* ABS() */