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

   1 #!/usr/bin/perl -w
   2
   3 use Test::More tests => 29;
   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 ok($db = new WebPAC::Store( debug => $debug ), "new");
  26
  27 ok(! $db->path, "path");
  28
  29 ok(! $db->load_ds(), 'load_ds');
  30 ok(! $db->load_ds( id => 000 ), 'load_ds');
  31
  32 ok(! $db->save_ds(), "save_ds");
  33 ok(! $db->save_ds( id => 000 ), 'save_ds');
  34
  35 undef $db;
  36
  37 ok(my $path = tempdir( CLEANUP => 1 ), "path");
  38
  39 diag "Store path: $path";
  40
  41 ok($db = new WebPAC::Store( path => $path, database => '.', debug => $debug, no_log => $no_log ), "new");
  42
  43 cmp_ok($db->{'path'}, 'eq', $path, "path");
  44
  45 ok(! $db->path(''), "path - disable caching");
  46
  47 ok(! defined($db->{'path'}), "no path");
  48
  49 ok($db->path( $path ), "path($path)");
  50
  51 cmp_ok($db->{'path'}, 'eq', $path, "path");
  52
  53 throws_ok { $db->load_ds() } qr/without id/, 'load_ds without arguments';
  54 ok(! $db->load_ds( id => 000 ), 'load_ds');
  55
  56 throws_ok { $db->save_ds() } qr/id/, "save_ds - need id";
  57
  58 my $ds = {
  59         'Source' => {
  60                 'name' => 'Izvor: ',
  61                 'tag' => 'Source',
  62                 'display' => [ 'foo' ]
  63         },
  64         'ID' => {
  65                 'name' => 'ID',
  66                 'tag' => 'IDths',
  67                 'swish' => [ 'bar' ],
  68                 'lookup_key' => [ 'bar' ]
  69         },
  70 };
  71
  72 throws_ok { $db->save_ds( id => 1 ) } qr/ds/, "save_ds - need ds";
  73
  74 ok($db->save_ds( id => 1, ds => $ds ), "save_ds");
  75
  76 ok(my $ds2 = $db->load_ds( id => 1 ), "load_ds with id");
  77
  78 is_deeply($ds, $ds2, "loaded data");
  79
  80 throws_ok { $ds2 = $db->load_ds( 1 ) } qr/HASH/, "load_ds without hash";
  81
  82 ok($ds2 = $db->load_ds( id => 1 ), "load_ds");
  83
  84 is_deeply($ds, $ds2, "loaded data");
  85
  86 ok(! $db->load_ds( id => 42 ), "load_ds non-existing");
  87
  88 ok($db = new WebPAC::Store( path => $path, debug => $debug, no_log => $no_log ), "new without database");
  89
  90 throws_ok { $ds2 = $db->load_ds( id => 1 ) } qr/database/, "load_ds without database";
  91
  92 ok($ds2 = $db->load_ds( id => 1, database => '.' ), "load_ds");
  93
  94 undef $db;
  95