git.rot13.org Git - Fuse-DBI/blob - t/02database.t

   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");