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() ) ]])