9 eval "use DBD::SQLite";
10 plan skip_all => "DBD::SQLite required for testing" if $@;
16 my $test_db = 'fusedbi.db';
17 my $dsn = "DBI:SQLite:dbname=$test_db";
18 my $mount = '/tmp/fuse_dbi_mnt';
20 ok((! -e $test_db || unlink $test_db), "test db: $test_db");
22 ok((! -e $mount || rmdir $mount), "mount point $mount");
24 mkdir $mount || die "mkdir $mount: $!";
25 ok(-d $mount, "mkdir $mount");
27 ok(my $dbh = DBI->connect($dsn, , '', '', { RaiseError => 1 }),
28 "connect fusedbi test database");
32 name text primary key,
35 }), "create table files");
37 ok(my $sth = $dbh->prepare(qq{
38 insert into files (name,data) values (?,?)
41 foreach my $file (qw(file dir/file dir/subdir/file)) {
42 my $data = "this is test data\n" x length($file);
43 ok($sth->execute($file,$data), "insert $file");
46 ok($dbh->disconnect, "disconnect after insert");
48 my $sql_filenames = qq{
69 system "fusermount -q -u $mount" || diag "nothing mounted at $mount, ok";
71 my $mnt = Fuse::DBI->mount({
72 filenames => $sql_filenames,
74 update => $sql_update,
82 diag "press enter to continue";
85 ok($mnt->umount,"umount");
87 ok(unlink $test_db,"rm $test_db");