--- trunk/t/database.t	2004/05/24 13:44:01	88
+++ trunk/t/database.t	2004/07/13 19:50:13	112
@@ -1,66 +1,54 @@
-#                              -*- Mode: Perl -*- 
-# 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: 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';
+#!/usr/bin/perl -w
+#
+# test WAIT::Database
 
-print ((defined $db)? "ok $test\n" : "not ok $test\n"); $test++;
+use strict;
+use Test::More;
+use Test::Exception;
+use File::Path qw(rmtree);
+use blib;
 
-$status = $db->close();
+BEGIN { use_ok('WAIT::Database'); }
 
-print (($status)? "ok $test\n" : "not ok $test\n"); $test++;
+plan tests => 12;
 
-print ((!defined $db)? "ok $test\n" : "not ok $test\n"); $test++;
+my $db;
 
-$db = WAIT::Database->open(name => 'test');
+if (-e './test') {
+	warn "test directory exists, removing!\n";
+	rmtree('./test',0,1);
+}
 
-print ((defined $db)? "ok $test\n" : "not ok $test\n"); $test++;
+ok($db = WAIT::Database->create(name => 'test'), "create");
 
-$db->sync;
-print "ok $test\n"; $test++;
+ok($db->close, "close");
 
-undef $self;                    # perl -w
-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++;
+ok(!defined($db), "object empty");
 
-$status = $db->dispose;
+ok($db = WAIT::Database->open(name => 'test'), "open");
 
-print (($status)? "ok $test\n" : "not ok $test\n"); $test++;
-print ((!defined $db)? "ok $test\n" : "not ok $test\n"); $test++;
+ok(!$db->sync, "sync without tables");
 
-{my $db = WAIT::Database->create(name => 'test'); $db->close()}
-print ((!defined $db)? "ok $test\n" : "not ok $test\n"); $test++;
+undef $WAIT::Database::self;
+ok(!defined($WAIT::Database::self) , 'undef distroy');
 
-$status = WAIT::Database->dispose(name => 'test');
-print (($status)? "ok $test\n" : "not ok $test\n"); $test++;
+$db = WAIT::Database->open(name => 'test');
+undef $db;
+ok(!defined($db), 'undef obj');
 
 $db = WAIT::Database->open(name => 'test');
-print ((!defined $db)? "ok $test\n" : "not ok $test\n"); $test++;
+ok($db->dispose, "dispose");
+
+ok(!defined($db), '$db empty');
+
+{
+	my $db = WAIT::Database->create(name => 'test');
+	$db->close();
+}
+
+ok(!defined($db), "create+close");
+
+ok(WAIT::Database->dispose(name => 'test'), "dispose");
+
+ok(!defined($db = WAIT::Database->open(name => 'test')), "open non-existing database");
+