/[wait]/trunk/t/table.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/table.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 11 by unknown, Fri Apr 28 15:41:10 2000 UTC revision 19 by ulpfr, Tue May 9 11:29:45 2000 UTC
# Line 4  Line 4 
4  # Author          : Ulrich Pfeifer  # Author          : Ulrich Pfeifer
5  # Created On      : Thu Aug  8 12:14:23 1996  # Created On      : Thu Aug  8 12:14:23 1996
6  # Last Modified By: Ulrich Pfeifer  # Last Modified By: Ulrich Pfeifer
7  # Last Modified On: Sun Nov 22 18:44:29 1998  # Last Modified On: Mon May  8 16:06:01 2000
8  # Language        : CPerl  # Language        : CPerl
9  # Update Count    : 75  # Update Count    : 78
10  # Status          : Unknown, Use with caution!  # Status          : Unknown, Use with caution!
11  #  #
12  # Copyright (c) 1996-1997, Ulrich Pfeifer  # Copyright (c) 1996-1997, Ulrich Pfeifer
13  #  #
14    
15  BEGIN { $| = 1; print "1..17\n"; }  BEGIN { $| = 1; print "1..18\n"; }
16  END {print "not ok 1\n" unless $loaded;  END {print "not ok 1\n" unless $loaded;
17       system 'rm -rf test' if -d 'test';}       system 'rm -rf test' if -d 'test';}
18  #use diagnostics;  #use diagnostics;
# Line 56  print ((defined $tb)? "ok $test\n" : "no Line 56  print ((defined $tb)? "ok $test\n" : "no
56  $status = $tb->open;  $status = $tb->open;
57  print (($status)? "ok $test\n" : "not ok $test\n"); $test++;  print (($status)? "ok $test\n" : "not ok $test\n"); $test++;
58    
59    $status = $tb->set(top=>1);
60    print (($status)? "ok $test\n" : "not ok $test\n"); $test++;
61    
62  $status = $tb->drop;  $status = $tb->drop;
63  print (($status)? "ok $test\n" : "not ok $test\n"); $test++;  print (($status)? "ok $test\n" : "not ok $test\n"); $test++;
64  print ((!defined $tb)? "ok $test\n" : "not ok $test\n"); $test++;  print ((!defined $tb)? "ok $test\n" : "not ok $test\n"); $test++;
Legend:
Removed from v.11  
changed lines
  Added in v.19
  ViewVC Help
Powered by ViewVC 1.1.26