repo.or.cz
/
blog.pm-common-perl-mods.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
skip tests unless DBD::SQLite installed
[blog.pm-common-perl-mods.git]
/
Rose-DBx-Object-I18N
/
t
/
zzcleanup.t
blob
eac0c041e27be17dc9aebdf29089d5903213674d
1
#!/usr/bin/perl
2
3
use
strict
;
4
use
warnings
;
5
6
use
Test
::
More
;
7
8
eval
"use DBD::SQLite"
;
9
plan skip_all
=>
"DBD::SQLite is required to run this test"
if
$
@
;
10
11
plan
'tests'
=>
1
;
12
13
use
lib
't/lib'
;
14
15
use
NewDB
;
16
17
my
$db
=
NewDB
->
new
();
18
19
$db
->
cleanup
();
20
21
ok
( ! -
f
$db
->
db
->
database
);