/[wait]/trunk/t/database.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/database.t

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

revision 107 by dpavlin, Mon May 24 13:44:01 2004 UTC revision 108 by dpavlin, Tue Jul 13 17:41:12 2004 UTC
# Line 1  Line 1 
1  #                              -*- Mode: Perl -*-  #!/usr/bin/perl -w
2  # database.t --  #
3  # ITIID           : $ITI$ $Header $__Header$  # test WAIT::Database
 # 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:33 1998  
 # Language        : CPerl  
 # Update Count    : 16  
 # Status          : Unknown, Use with caution!  
 #  
 # Copyright (c) 1996-1997, Ulrich Pfeifer  
 #  
4    
5  ######################### We start with some black magic to print on failure.  use strict;
6    use Test::More;
7    use Test::Exception;
8    use File::Path qw(rmtree);
9    use blib;
10    
11  BEGIN { $| = 1; print "1..13\n"; }  BEGIN { use_ok('WAIT::Database'); }
 END {print "not ok 1\n" unless $loaded;}  
 #use diagnostics;  
 use WAIT::Database;  
 $loaded = 1;  
 print "ok 1\n";  
12    
13  ######################### End of black magic.  plan tests => 9;
14    
15  # Insert your test code below (better if it prints "ok 13"  my $db;
 # (correspondingly "not ok 13") depending on the success of chunk 13  
 # of the test code):  
16    
17  $test = 2;  if (-e './test') {
18            warn "test directory exists, removing!\n";
19            rmtree('./test');
20    }
21    
22  $db = create WAIT::Database name => 'test';  ok($db = WAIT::Database->create(name => 'test'), "create");
23    
24  print ((defined $db)? "ok $test\n" : "not ok $test\n"); $test++;  ok($db->close, "close");
25    
26  $status = $db->close();  ok(!defined($db), "object empty");
27    
28  print (($status)? "ok $test\n" : "not ok $test\n"); $test++;  ok($db = WAIT::Database->open(name => 'test'), "open");
29    
30  print ((!defined $db)? "ok $test\n" : "not ok $test\n"); $test++;  ok(!$db->sync, "sync without tables");
31    
32  $db = WAIT::Database->open(name => 'test');  # can't test this
33    #undef $WAIT::Database::self;
34    #ok(!defined($WAIT::Database::self) , 'undef $WAIT::Database::self');
35    
36  print ((defined $db)? "ok $test\n" : "not ok $test\n"); $test++;  ok($db->dispose, "dispose");
37    
38  $db->sync;  ok(! $db, '$db empty');
 print "ok $test\n"; $test++;  
39    
40  undef $self;                    # perl -w  {
41  undef $WAIT::Database::self;     # perl -w          my $db = WAIT::Database->create(name => 'test');
42  print ((!defined $self)? "ok $test\n" : "not ok $test\n"); $test++;          $db->close();
43  print ((!defined $WAIT::Database::self)? "ok $test\n" : "not ok $test\n"); $test++;  }
44    ok(!defined($db), "create+close");
45    
46  $status = $db->dispose;  ok(WAIT::Database->dispose(name => 'test'), "dispose");
47    
48  print (($status)? "ok $test\n" : "not ok $test\n"); $test++;  dies_ok { $db = WAIT::Database->open(name => 'test') } "open non-existing database";
 print ((!defined $db)? "ok $test\n" : "not ok $test\n"); $test++;  
   
 {my $db = WAIT::Database->create(name => 'test'); $db->close()}  
 print ((!defined $db)? "ok $test\n" : "not ok $test\n"); $test++;  
   
 $status = WAIT::Database->dispose(name => 'test');  
 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++;  
Legend:
Removed from v.107  
changed lines
  Added in v.108
  ViewVC Help
Powered by ViewVC 1.1.26