trunk/t/02database.t

#!/usr/bin/perl -w

use strict;
use warnings;

use Test::More tests => 3;
use blib;

use_ok('Fuse::DBI');

my $sql_filenames = q{
        select
                oid as id,
                namespace||'/'||name||' ['||oid||']' as filename,
                length(template) as size,
                iseditable as writable
        from template ;
};

my $sql_read = q{
        select template
                from template
                where oid = ?;
};

my $sql_update = q{
        update template
                set template = ?        
                where oid = ?;
};

my $mnt = Fuse::DBI->mount({
        filenames => $sql_filenames,
        read => $sql_read,
        update => $sql_update,
        dsn => 'DBI:Pg:dbname=webgui',
        mount => '/mnt2',
});

ok($mnt, "mount");

diag "mounted sleeping for 5 sec";
system "ls -lR /mnt2";
sleep(5);

ok($mnt->umount,"umount");
1	#!/usr/bin/perl -w
2
3	use strict;
4	use warnings;
5
6	use Test::More tests => 3;
7	use blib;
8
9	use_ok('Fuse::DBI');
10
11	my $sql_filenames = q{
12	select
13	oid as id,
14	namespace\|\|'/'\|\|name\|\|' ['\|\|oid\|\|']' as filename,
15	length(template) as size,
16	iseditable as writable
17	from template ;
18	};
19
20	my $sql_read = q{
21	select template
22	from template
23	where oid = ?;
24	};
25
26	my $sql_update = q{
27	update template
28	set template = ?
29	where oid = ?;
30	};
31
32	my $mnt = Fuse::DBI->mount({
33	filenames => $sql_filenames,
34	read => $sql_read,
35	update => $sql_update,
36	dsn => 'DBI:Pg:dbname=webgui',
37	mount => '/mnt2',
38	});
39
40	ok($mnt, "mount");
41
42	diag "mounted sleeping for 5 sec";
43	system "ls -lR /mnt2";
44	sleep(5);
45
46	ok($mnt->umount,"umount");