/[fuse_dbi]/trunk/t/02sqlite.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /trunk/t/02sqlite.t

Parent Directory Parent Directory | Revision Log Revision Log


Revision 33 - (hide annotations)
Mon Nov 15 20:55:10 2004 UTC (19 years, 4 months ago) by dpavlin
File MIME type: application/x-troff
File size: 2174 byte(s)
SQLite test is finally working,
bumped version to 0.05,
you can really umount filesystem when using fork (which is still very
experimental and useful only for tests anyway)

1 dpavlin 11 #!/usr/bin/perl -w
2    
3     use strict;
4     use warnings;
5    
6 dpavlin 15 use Test::More;
7 dpavlin 33 use File::Find;
8 dpavlin 11 use blib;
9    
10 dpavlin 15 eval "use DBD::SQLite";
11     plan skip_all => "DBD::SQLite required for testing" if $@;
12 dpavlin 33 plan tests => 36;
13 dpavlin 15
14     use_ok('DBI');
15 dpavlin 11 use_ok('Fuse::DBI');
16    
17 dpavlin 15 my $test_db = 'fusedbi.db';
18     my $dsn = "DBI:SQLite:dbname=$test_db";
19     my $mount = '/tmp/fuse_dbi_mnt';
20    
21     ok((! -e $test_db || unlink $test_db), "test db: $test_db");
22    
23     ok((! -e $mount || rmdir $mount), "mount point $mount");
24    
25     mkdir $mount || die "mkdir $mount: $!";
26     ok(-d $mount, "mkdir $mount");
27    
28     ok(my $dbh = DBI->connect($dsn, , '', '', { RaiseError => 1 }),
29     "connect fusedbi test database");
30    
31     ok($dbh->do(qq{
32     create table files (
33     name text primary key,
34     data text
35     )
36     }), "create table files");
37    
38     ok(my $sth = $dbh->prepare(qq{
39     insert into files (name,data) values (?,?)
40     }), "prepare");
41    
42 dpavlin 33 my @files = qw(file dir/file dir/subdir/file);
43     my %file_data;
44    
45     foreach my $file (@files) {
46     $file_data{$file} = ("this is test data on ".localtime()."\n") x length($file);
47     ok($sth->execute($file,$file_data{$file}), "insert $file");
48 dpavlin 15 }
49    
50 dpavlin 22 ok($dbh->disconnect, "disconnect after insert");
51    
52 dpavlin 15 my $sql_filenames = qq{
53 dpavlin 11 select
54 dpavlin 15 name as id,
55     name as filename,
56     length(data) as size,
57 dpavlin 17 1 as writable
58 dpavlin 15 from files
59 dpavlin 11 };
60    
61 dpavlin 15 my $sql_read = qq{
62     select data
63     from files
64     where name = ?;
65 dpavlin 11 };
66    
67 dpavlin 15 my $sql_update = qq{
68     update files
69     set data = ?
70     where name = ?;
71 dpavlin 11 };
72    
73 dpavlin 15 system "fusermount -q -u $mount" || diag "nothing mounted at $mount, ok";
74    
75 dpavlin 11 my $mnt = Fuse::DBI->mount({
76     filenames => $sql_filenames,
77     read => $sql_read,
78     update => $sql_update,
79 dpavlin 15 dsn => $dsn,
80     mount => $mount,
81 dpavlin 22 fork => 1,
82 dpavlin 11 });
83    
84     ok($mnt, "mount");
85    
86 dpavlin 33 sub test_file {
87     my $f = $File::Find::name;
88 dpavlin 11
89 dpavlin 33 ok($f, "file $f");
90    
91     return unless (-f $f);
92    
93     ok(open(F, $f), "open");
94     my $tmp = '';
95     while(<F>) {
96     $tmp .= $_;
97     }
98     ok(close(F), "close");
99    
100     # strip mountpoint
101     $f =~ s#^\Q$mount\E/##;
102    
103     ok($file_data{$f}, "$f exists");
104    
105     cmp_ok(length($file_data{$f}), '==', length($tmp), "size");
106     cmp_ok($file_data{$f}, 'eq', $tmp, "content");
107     }
108    
109     # small delay so that filesystem could mount
110     sleep(1);
111    
112     find({ wanted => \&test_file, no_chdir => 1 }, $mount);
113    
114 dpavlin 11 ok($mnt->umount,"umount");
115 dpavlin 12
116 dpavlin 15 ok(unlink $test_db,"rm $test_db");
117    

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26