Parent Directory | Revision Log | Patch
trunk/t/02database.t revision 15 by dpavlin, Sun Sep 5 16:04:35 2004 UTC | trunk/t/02sqlite.t 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, |
51 | name as filename, | name as filename, |
52 | length(data) as size, | length(data) as size, |
53 | 0 as writable | 1 as writable |
54 | from files | from files |
55 | }; | }; |
56 | ||
# | 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 |