10 plan skip_all => "DBD::Pg required for testing" if $@;
17 my $dsn = "DBI:Pg:dbname=$test_db";
18 my $mount = '/tmp/fuse_dbi_mnt';
20 ok((! -e $mount || rmdir $mount), "mount point $mount");
22 mkdir $mount || die "mkdir $mount: $!";
23 ok(-d $mount, "mkdir $mount");
25 ok(my $dbh = DBI->connect($dsn, , '', '', { RaiseError => 1 }),
26 "connect fusedbi test database");
28 my $drop = eval { $dbh->do(qq{ drop table files }) };
29 diag "drop table files" if ($drop);
33 name text primary key,
36 }), "create table files");
38 ok(my $sth = $dbh->prepare(qq{
39 insert into files (name,data) values (?,?)
42 foreach my $file (qw(file dir/file dir/subdir/file)) {
43 my $data = "this is test data\n" x length($file);
44 ok($sth->execute($file,$data), "insert $file");
47 my $sql_filenames = qq{
68 system "fusermount -q -u $mount" || diag "nothing mounted at $mount, ok";
70 my $mnt = Fuse::DBI->mount({
71 filenames => $sql_filenames,
73 update => $sql_update,
81 diag "press enter to continue";
84 ok($mnt->umount,"umount");