diff --git a/lib/modules/Tools.pmod/testsuite.in b/lib/modules/Tools.pmod/testsuite.in index 2bee6d64d26e9d33950984ebb026391042d20d57..f9ee28529bee430f2e22cadff3076cc9663cefd9 100644 --- a/lib/modules/Tools.pmod/testsuite.in +++ b/lib/modules/Tools.pmod/testsuite.in @@ -1,5 +1,6 @@ -// $Id: testsuite.in,v 1.2 2002/09/10 00:31:56 nilsson Exp $ +// $Id: testsuite.in,v 1.3 2002/10/10 02:18:51 nilsson Exp $ +// Tools.Hilfe test_tests([[ class TestHilfe { inherit Tools.Hilfe.Evaluator; @@ -163,4 +164,25 @@ array(int) a() { return ({ tests-fails, fails }); } -]]) \ No newline at end of file +]]) +test_true([[ Tools.Hilfe.StdinHilfe ]]) +test_true([[ Tools.Hilfe.GenericHilfe ]]) +test_true([[ Tools.Hilfe.GenericAsyncHilfe ]]) +test_true([[ Tools.Hilfe.main ]]) + + +// Tools.Legal +test_true([[ has_prefix(Tools.Legal.Copyright.get_latest_pike(), "Copyright � ") ]]) +test_true([[ mappingp( Tools.Legal.Copyright.get_all() ) ]]) +test_true([[ arrayp( Tools.Legal.Copyright.get_all()->Pike ) ]]) +test_any([[ + int x=sizeof( Tools.Legal.Copyright.get_all() ); + int y=sizeof( Tools.Legal.Copyright.get_text() ); + Tools.Legal.Copyright.add( "Basun", ({ "Dunald Dock" }) ); + return ( (x+1) == sizeof( Tools.Legal.Copyright.get_all() ) ) && + ( y < sizeof(Tools.Legal.Copyright.get_text()) ); +]], 1) +test_eval_error([[ Tools.Legal.Copyright.add( "Basun", ({ "Muckey Mice" }) ); ]]) +test_equal([[ Tools.Legal.Copyright.get_all()->Basun ]], [[ ({ "Dunald Dock" }) ]]) + +test_true([[ stringp( Tools.Legal.License.get_text() ) ]])