--- cvs-head/t/table.t	2000/04/28 15:40:52	10
+++ branches/CPAN/t/table.t	2000/05/09 11:29:45	19
@@ -4,15 +4,15 @@
 # Author          : Ulrich Pfeifer
 # Created On      : Thu Aug  8 12:14:23 1996
 # Last Modified By: Ulrich Pfeifer
-# Last Modified On: Sun Nov 22 18:44:29 1998
+# Last Modified On: Mon May  8 16:06:01 2000
 # Language        : CPerl
-# Update Count    : 75
+# Update Count    : 78
 # Status          : Unknown, Use with caution!
 # 
 # Copyright (c) 1996-1997, Ulrich Pfeifer
 # 
 
-BEGIN { $| = 1; print "1..17\n"; }
+BEGIN { $| = 1; print "1..18\n"; }
 END {print "not ok 1\n" unless $loaded;
      system 'rm -rf test' if -d 'test';}
 #use diagnostics;
@@ -56,6 +56,9 @@
 $status = $tb->open;
 print (($status)? "ok $test\n" : "not ok $test\n"); $test++;
 
+$status = $tb->set(top=>1);
+print (($status)? "ok $test\n" : "not ok $test\n"); $test++;
+
 $status = $tb->drop;
 print (($status)? "ok $test\n" : "not ok $test\n"); $test++;
 print ((!defined $tb)? "ok $test\n" : "not ok $test\n"); $test++;