/[webpac2]/trunk/t/4-db.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

Diff of /trunk/t/4-db.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 123 by dpavlin, Sat Nov 19 23:48:24 2005 UTC revision 124 by dpavlin, Thu Nov 24 11:47:10 2005 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use Test::More tests => 26;  use Test::More tests => 25;
4  use Test::Exception;  use Test::Exception;
5  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
6  use blib;  use blib;
7  use File::Temp qw/tempdir/;  use File::Temp qw/tempdir/;
8  use strict;  use strict;
9    use Data::Dumper;
10    
11  BEGIN {  BEGIN {
12  use_ok( 'WebPAC::DB' );  use_ok( 'WebPAC::DB' );
# Line 17  diag "abs_path: $abs_path"; Line 18  diag "abs_path: $abs_path";
18    
19  my $db;  my $db;
20  my $debug = 1;  my $debug = 1;
21    my $no_log = 1; # force no log output
22    
23  diag "NULL DB";  diag "NULL DB";
24    
25  ok($db = new WebPAC::DB( debug => $debug, no_log => 1, ), "new");  ok($db = new WebPAC::DB( debug => $debug, ), "new");
26    
27  ok(! $db->path, "path");  ok(! $db->path, "path");
28    
29  ok(! $db->load_ds(), 'load_ds');  ok(! $db->load_ds(), 'load_ds');
30  ok(! $db->load_ds({ '000' => '000' }), 'load_ds');  ok(! $db->load_ds( id => 000 ), 'load_ds');
31    
32  ok(! $db->save_ds(), "save_ds");  ok(! $db->save_ds(), "save_ds");
33  ok(! $db->save_ds({ '000' => '000' }), 'save_ds');  ok(! $db->save_ds( id => 000 ), 'save_ds');
34    
35  undef $db;  undef $db;
36    
# Line 36  ok(my $path = tempdir( CLEANUP => 1 ), " Line 38  ok(my $path = tempdir( CLEANUP => 1 ), "
38    
39  diag "DB path: $path";  diag "DB path: $path";
40    
41  ok($db = new WebPAC::DB( path => $path, debug => $debug, no_log => 1 ), "new");  ok($db = new WebPAC::DB( path => $path, debug => $debug, no_log => $no_log ), "new");
42    
43  cmp_ok($db->{'path'}, 'eq', $path, "path");  cmp_ok($db->{'path'}, 'eq', $path, "path");
44    
# Line 49  ok($db->path( $path ), "path($path)"); Line 51  ok($db->path( $path ), "path($path)");
51  cmp_ok($db->{'path'}, 'eq', $path, "path");  cmp_ok($db->{'path'}, 'eq', $path, "path");
52    
53  ok(! $db->load_ds(), 'load_ds');  ok(! $db->load_ds(), 'load_ds');
54  ok(! $db->load_ds({ '000' => '000' }), 'load_ds');  ok(! $db->load_ds( id => 000 ), 'load_ds');
55    
56  ok(! $db->save_ds(), "save_ds");  throws_ok { $db->save_ds() } qr/id/, "save_ds - need id";
57    
58  my $ds = {  my $ds = {
59          'Source' => {          'Source' => {
# Line 65  my $ds = { Line 67  my $ds = {
67                  'swish' => [ 'bar' ],                  'swish' => [ 'bar' ],
68                  'lookup_key' => [ 'bar' ]                  'lookup_key' => [ 'bar' ]
69          },          },
         'filename' => [ 'out/thes/001.html' ],  
         'name' => 'filename',  
         'tag' => 'filename'  
70  };  };
71    
72  ok(! $db->save_ds(), "empty save_ds");  throws_ok { $db->save_ds( id => 1 ) } qr/ds/, "save_ds - need ds";
73  throws_ok { $db->save_ds( foo => 1 ) } qr/ds/, "save_ds - ds";  
74  throws_ok { $db->save_ds( ds => $ds ) } qr/current_filename/, "save_ds - current_filename";  ok($db->save_ds( id => 1, ds => $ds ), "save_ds");
 throws_ok { $db->save_ds( ds => $ds, 'current_filename' => 'foo' ) } qr/headline/, "save_ds - headline";  
75    
76  ok($db->save_ds( ds => $ds, 'current_filename' => 'foo', 'headline' => 'bar' ), "save_ds");  ok(my $ds2 = $db->load_ds( id => 1 ), "load_ds with id");
77    
78    is_deeply($ds, $ds2, "loaded data");
79    
80  ok(my $ds2 = $db->load_ds({ '000' => '000' }), "load_ds");  ok($ds2 = $db->load_ds( 1 ), "load_ds without id");
81    
82  is_deeply($ds, $ds2, "loaded data");  is_deeply($ds, $ds2, "loaded data");
83    
84  ok(! $db->load_ds({ '000' => 42 }), "load_ds non-existing");  ok(! $db->load_ds( id => 42 ), "load_ds non-existing");
85    
86  undef $db;  undef $db;
87    
Legend:
Removed from v.123  
changed lines
  Added in v.124
  ViewVC Help
Powered by ViewVC 1.1.26