use svk, cpan target

[Fuse-DBI] / t / 02sqlite.t

diff --git a/t/02sqlite.t b/t/02sqlite.t
index 28a58c4..d8d7010 100755 (executable)
--- a/t/02sqlite.t
+++ b/t/02sqlite.t
@@ -4,11 +4,12 @@ use strict;
 use warnings;
 
 use Test::More;
+use File::Find;
 use blib;
 
 eval "use DBD::SQLite";
 plan skip_all => "DBD::SQLite required for testing" if $@;
-plan tests => 15;
+plan tests => 50;
 
 use_ok('DBI');
 use_ok('Fuse::DBI');
@@ -34,16 +35,21 @@ ok($dbh->do(qq{
        )
 }), "create table files");
 
-ok(my $sth = $dbh->prepare(qq{
+ok(my $sth_insert = $dbh->prepare(qq{
        insert into files (name,data) values (?,?)
-}), "prepare");
+}), "prepare insert");
 
-foreach my $file (qw(file dir/file dir/subdir/file)) {
-       my $data = "this is test data\n" x length($file);
-       ok($sth->execute($file,$data), "insert $file");
-}
+ok(my $sth_select = $dbh->prepare(qq{
+       select data from files where name = ?
+}), "prepare select");
+
+my @files = qw(file dir/file dir/subdir/file);
+my %file_data;
 
-ok($dbh->disconnect, "disconnect after insert");
+foreach my $file (@files) {
+       $file_data{$file} = ("this is test data on ".localtime()."\n") x length($file);
+       ok($sth_insert->execute($file,$file_data{$file}), "insert $file");
+}
 
 my $sql_filenames = qq{
        select
@@ -79,10 +85,52 @@ my $mnt = Fuse::DBI->mount({
 
 ok($mnt, "mount");
 
-diag "press enter to continue";
-my $foo = <STDIN>;
+sub test_file {
+       my $f = $File::Find::name;
+
+       ok($f, "file $f");
+
+       return unless (-f $f);
+
+       ok(open(F, $f), "open read $f");
+       my $tmp = '';
+       while(<F>) {
+               $tmp .= $_;
+       }
+       ok(close(F), "close");
+
+       # strip mountpoint
+       $f =~ s#^\Q$mount\E/##;
+
+       ok($file_data{$f}, "$f exists");
+
+       cmp_ok(length($file_data{$f}), '==', length($tmp), "size");
+       cmp_ok($file_data{$f}, 'eq', $tmp, "content");
+
+       $tmp =~ tr/a-z/A-Z/;
+       $tmp .= $f;
+
+       ok(open(F, "> $mount/$f"), "open write $mount/$f");
+       print F $tmp;
+       ok(close(F), "close");
+
+       ok($sth_select->execute($f), "select $f");
+       cmp_ok($sth_select->fetchrow_array(), 'eq', $tmp, "updated content");
+}
+
+# small delay so that filesystem could mount
+sleep(1);
+
+find({ wanted => \&test_file, no_chdir => 1 }, $mount);
 
 ok($mnt->umount,"umount");
 
+undef $sth_select;
+undef $sth_insert;
+
+ok($dbh->disconnect, "disconnect");
+
 ok(unlink $test_db,"rm $test_db");
 
+ok(!-e $test_db,"cleanup");
+