/[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 113 by dpavlin, Mon May 24 13:44:01 2004 UTC revision 114 by dpavlin, Tue Jul 13 21:27:27 2004 UTC
# Line 1  Line 1 
1  #                              -*- Mode: Perl -*-  #!/usr/bin/perl -w
 # database.t --  
 # ITIID           : $ITI$ $Header $__Header$  
 # Author          : Ulrich Pfeifer  
 # Created On      : Thu Aug  8 12:14:23 1996  
 # Last Modified By: Ulrich Pfeifer  
 # Last Modified On: Mon May  8 16:06:01 2000  
 # Language        : CPerl  
 # Update Count    : 78  
 # Status          : Unknown, Use with caution!  
 #  
 # Copyright (c) 1996-1997, Ulrich Pfeifer  
 #  
   
 BEGIN { $| = 1; print "1..18\n"; }  
 END {print "not ok 1\n" unless $loaded;  
      system 'rm -rf test' if -d 'test';}  
 #use diagnostics;  
 use WAIT::Database;  
 $loaded = 1;  
 print "ok 1\n";  
   
 $test = 2;  
   
 $db = create WAIT::Database name => 'test';  
 print ((defined $db)? "ok $test\n" : "not ok $test\n"); $test++;  
   
 $tb = create_table $db name => 'sample', attr => ['docid', 'term'];  
 print ((defined $tb)? "ok $test\n" : "not ok $test\n"); $test++;  
   
 $status = drop_table $db name => 'sample';  
 print (($status)? "ok $test\n" : "not ok $test\n"); $test++;  
   
 eval {$status = $tb->drop};  
 print (($@)? "ok $test\n" : "not ok $test\n"); $test++;  
   
 $tb = create_table $db name => 'sample', attr => ['docid', 'term'];  
 print ((defined $tb)? "ok $test\n" : "not ok $test $@\n"); $test++;  
   
 $status = $tb->open;  
 print (($status)? "ok $test\n" : "not ok $test\n"); $test++;  
   
 $status = $tb->close;  
 print (($status)? "ok $test\n" : "not ok $test\n"); $test++;  
 print ((defined $tb)? "ok $test\n" : "not ok $test\n"); $test++;  
   
 $status = $db->close;  
 print (($status)? "ok $test\n" : "not ok $test\n"); $test++;  
   
 $db = WAIT::Database->open(name => 'test');  
 print ((defined $db)? "ok $test\n" : "not ok $test\n"); $test++;  
   
 $tb = table $db name => 'sample';  
 print ((defined $tb)? "ok $test\n" : "not ok $test\n"); $test++;  
   
 $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++;  
2    
3  # clean up  use strict;
4  $status = $db->dispose;  
5  print (($status)? "ok $test\n" : "not ok $test\n"); $test++;  use Test::More;
6  print ((!defined $db)? "ok $test\n" : "not ok $test\n"); $test++;  use File::Path qw(rmtree);
7    use blib;
8    
9    BEGIN { use_ok('WAIT::Database'); }
10    END { system 'rm -rf test' if -d 'test'; }
11    
12    plan tests => 31;
13    
14    ok(my $db = WAIT::Database->create(name => 'test'), "create");
15    
16    ok(my $tb = $db->create_table(name => 'sample', attr => ['docid', 'term']), "create_table");
17    
18    use Data::Dumper;
19    print Dumper($tb);
20    
21    ok($db->drop_table(name => 'sample'), "drop_table");
22    
23    ok (!$tb->drop, "tb->drop");
24    
25    ok ($tb = $db->create_table(name => 'sample', attr => ['docid', 'term']), "create_table");
26    
27    ok($tb->open, "tb->open");
28    
29    ok($tb->close, "tb->close");
30    
31    ok(defined $tb,"defined tb");
32    
33    ok($db->close, "db->close");
34    
35    ok($db = WAIT::Database->open(name => 'test'), "open");
36    
37    ok($tb = $db->table(name => 'sample'), "db->table");
38    
39    ok($tb->open, "tb->open");
40    
41    ok($tb->set(top=>1), "tb->set(top=>1)");
42    
43    ok($tb->drop, "tb->drop");
44    ok(!defined $tb, "undef tb");
45    
46    # clean up
47    ok($db->dispose, "dispose");
48    ok(!defined $db, "undef db");
49    
50    
Legend:
Removed from v.113  
changed lines
  Added in v.114
  ViewVC Help
Powered by ViewVC 1.1.26