/[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

cvs-head/t/database.t revision 10 by ulpfr, Fri Apr 28 15:40:52 2000 UTC trunk/t/database.t revision 112 by dpavlin, Tue Jul 13 19:50:13 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  
 #  
   
 ######################### We start with some black magic to print on failure.  
   
 BEGIN { $| = 1; print "1..13\n"; }  
 END {print "not ok 1\n" unless $loaded;}  
 #use diagnostics;  
 use WAIT::Database;  
 $loaded = 1;  
 print "ok 1\n";  
   
 ######################### End of black magic.  
   
 # Insert your test code below (better if it prints "ok 13"  
 # (correspondingly "not ok 13") depending on the success of chunk 13  
 # of the test code):  
   
 $test = 2;  
   
 $db = create WAIT::Database name => 'test';  
4    
5  print ((defined $db)? "ok $test\n" : "not ok $test\n"); $test++;  use strict;
6    use Test::More;
7    use Test::Exception;
8    use File::Path qw(rmtree);
9    use blib;
10    
11  $status = $db->close();  BEGIN { use_ok('WAIT::Database'); }
12    
13  print (($status)? "ok $test\n" : "not ok $test\n"); $test++;  plan tests => 12;
14    
15  print ((!defined $db)? "ok $test\n" : "not ok $test\n"); $test++;  my $db;
16    
17  $db = WAIT::Database->open(name => 'test');  if (-e './test') {
18            warn "test directory exists, removing!\n";
19            rmtree('./test',0,1);
20    }
21    
22  print ((defined $db)? "ok $test\n" : "not ok $test\n"); $test++;  ok($db = WAIT::Database->create(name => 'test'), "create");
23    
24  $db->sync;  ok($db->close, "close");
 print "ok $test\n"; $test++;  
25    
26  undef $self;                    # perl -w  ok(!defined($db), "object empty");
 undef $WAIT::Database::self;     # perl -w  
 print ((!defined $self)? "ok $test\n" : "not ok $test\n"); $test++;  
 print ((!defined $WAIT::Database::self)? "ok $test\n" : "not ok $test\n"); $test++;  
27    
28  $status = $db->dispose;  ok($db = WAIT::Database->open(name => 'test'), "open");
29    
30  print (($status)? "ok $test\n" : "not ok $test\n"); $test++;  ok(!$db->sync, "sync without tables");
 print ((!defined $db)? "ok $test\n" : "not ok $test\n"); $test++;  
31    
32  {my $db = WAIT::Database->create(name => 'test'); $db->close()}  undef $WAIT::Database::self;
33  print ((!defined $db)? "ok $test\n" : "not ok $test\n"); $test++;  ok(!defined($WAIT::Database::self) , 'undef distroy');
34    
35  $status = WAIT::Database->dispose(name => 'test');  $db = WAIT::Database->open(name => 'test');
36  print (($status)? "ok $test\n" : "not ok $test\n"); $test++;  undef $db;
37    ok(!defined($db), 'undef obj');
38    
39  $db = WAIT::Database->open(name => 'test');  $db = WAIT::Database->open(name => 'test');
40  print ((!defined $db)? "ok $test\n" : "not ok $test\n"); $test++;  ok($db->dispose, "dispose");
41    
42    ok(!defined($db), '$db empty');
43    
44    {
45            my $db = WAIT::Database->create(name => 'test');
46            $db->close();
47    }
48    
49    ok(!defined($db), "create+close");
50    
51    ok(WAIT::Database->dispose(name => 'test'), "dispose");
52    
53    ok(!defined($db = WAIT::Database->open(name => 'test')), "open non-existing database");
54    
Legend:
Removed from v.10  
changed lines
  Added in v.112
  ViewVC Help
Powered by ViewVC 1.1.26