Parent Directory | Revision Log | Patch
revision 113 by dpavlin, Tue Jul 13 20:28:45 2004 UTC | revision 114 by dpavlin, Tue Jul 13 21:27:27 2004 UTC | |
---|---|---|
# | Line 4 use strict; | Line 4 use strict; |
4 | ||
5 | use Test::More; | use Test::More; |
6 | use File::Path qw(rmtree); | use File::Path qw(rmtree); |
7 | use blib; | #use blib; |
8 | ||
9 | BEGIN { use_ok('WAIT::Database'); } | BEGIN { use_ok('WAIT::Database'); } |
10 | END { system 'rm -rf test' if -d 'test'; ok(1, "rm") } | |
11 | ||
12 | plan tests => 31; | plan tests => 32; |
13 | ||
14 | if (-e './test') { | if (-e './test') { |
15 | warn "test directory exists, removing!\n"; | warn "test directory exists, removing!\n"; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |