Parent Directory | Revision Log | Patch
revision 19 by dpavlin, Sat Oct 2 00:42:27 2004 UTC | revision 22 by dpavlin, Sat Oct 2 16:30:16 2004 UTC | |
---|---|---|
# | Line 8 use blib; | Line 8 use blib; |
8 | ||
9 | eval "use DBD::SQLite"; | eval "use DBD::SQLite"; |
10 | plan skip_all => "DBD::SQLite required for testing" if $@; | plan skip_all => "DBD::SQLite required for testing" if $@; |
11 | plan tests => 14; | plan tests => 15; |
12 | ||
13 | use_ok('DBI'); | use_ok('DBI'); |
14 | use_ok('Fuse::DBI'); | use_ok('Fuse::DBI'); |
# | Line 43 foreach my $file (qw(file dir/file dir/s | Line 43 foreach my $file (qw(file dir/file dir/s |
43 | ok($sth->execute($file,$data), "insert $file"); | ok($sth->execute($file,$data), "insert $file"); |
44 | } | } |
45 | ||
46 | ok($dbh->disconnect, "disconnect after insert"); | |
47 | ||
48 | my $sql_filenames = qq{ | my $sql_filenames = qq{ |
49 | select | select |
50 | name as id, | name as id, |
# | Line 72 my $mnt = Fuse::DBI->mount({ | Line 74 my $mnt = Fuse::DBI->mount({ |
74 | update => $sql_update, | update => $sql_update, |
75 | dsn => $dsn, | dsn => $dsn, |
76 | mount => $mount, | mount => $mount, |
77 | fork => 1, | |
78 | }); | }); |
79 | ||
80 | ok($mnt, "mount"); | ok($mnt, "mount"); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |