git.rot13.org Git - webpac2/blob - t/4-store.t

   1 #!/usr/bin/perl -w
   2
   3 use Test::More tests => 31;
   4 use Test::Exception;
   5 use Cwd qw/abs_path/;
   6 use blib;
   7 use File::Temp qw/tempdir/;
   8 use strict;
   9 use Data::Dumper;
  10
  11 BEGIN {
  12 use_ok( 'WebPAC::Store' );
  13 }
  14
  15 ok(my $abs_path = abs_path($0), "abs_path");
  16 $abs_path =~ s#/[^/]*$#/#;
  17 diag "abs_path: $abs_path";
  18
  19 my $db;
  20 my $debug = 1;
  21 my $no_log = 1; # force no log output
  22
  23 diag "NULL Store";
  24
  25 throws_ok { new WebPAC::Store() } qr/path/, 'new without path';
  26
  27 throws_ok { new WebPAC::Store( path => '/tmp' ) } qr/database/, 'new without database';
  28
  29 ok($db = new WebPAC::Store( path => '/tmp', database => '.', debug => $debug ), "new");
  30
  31 ok(! $db->path, "path");
  32
  33 ok(! $db->load_ds(), 'load_ds');
  34 ok(! $db->load_ds( id => 000 ), 'load_ds');
  35
  36 ok(! $db->save_ds(), "save_ds");
  37 ok(! $db->save_ds( id => 000 ), 'save_ds');
  38
  39 undef $db;
  40
  41 ok(my $path = tempdir( CLEANUP => 1 ), "path");
  42
  43 diag "Store path: $path";
  44
  45 ok($db = new WebPAC::Store( path => $path, database => '.', debug => $debug, no_log => $no_log ), "new");
  46
  47 cmp_ok($db->{'path'}, 'eq', $path, "path");
  48
  49 ok(! $db->path(''), "path - disable caching");
  50
  51 ok(! defined($db->{'path'}), "no path");
  52
  53 ok($db->path( $path ), "path($path)");
  54
  55 cmp_ok($db->{'path'}, 'eq', $path, "path");
  56
  57 throws_ok { $db->load_ds() } qr/without id/, 'load_ds without arguments';
  58 ok(! $db->load_ds( id => 000 ), 'load_ds');
  59
  60 throws_ok { $db->save_ds() } qr/id/, "save_ds - need id";
  61
  62 my $ds = {
  63         'Source' => {
  64                 'name' => 'Izvor: ',
  65                 'tag' => 'Source',
  66                 'display' => [ 'foo' ]
  67         },
  68         'ID' => {
  69                 'name' => 'ID',
  70                 'tag' => 'IDths',
  71                 'swish' => [ 'bar' ],
  72                 'lookup_key' => [ 'bar' ]
  73         },
  74 };
  75
  76 throws_ok { $db->save_ds( id => 1 ) } qr/ds/, "save_ds - need ds";
  77
  78 ok($db->save_ds( id => 1, ds => $ds ), "save_ds");
  79
  80 ok(my $ds2 = $db->load_ds( id => 1 ), "load_ds with id");
  81
  82 is_deeply($ds, $ds2, "loaded data");
  83
  84 throws_ok { $ds2 = $db->load_ds( 1 ) } qr/HASH/, "load_ds without hash";
  85
  86 ok($ds2 = $db->load_ds( id => 1 ), "load_ds");
  87
  88 is_deeply($ds, $ds2, "loaded data");
  89
  90 ok(! $db->load_ds( id => 42 ), "load_ds non-existing");
  91
  92 ok($db = new WebPAC::Store( path => $path, database => '.', debug => $debug, no_log => $no_log ), "new");
  93
  94 ok(! $db->load_ds( id => 1, prefix => 'foobar' ), "load_ds with invalid prefix");
  95
  96 ok($ds2 = $db->load_ds( id => 1, database => '.' ), "load_ds");
  97
  98 undef $db;
  99