/[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

trunk/t/4-db.tt revision 18 by dpavlin, Sun Jul 17 14:53:37 2005 UTC trunk/t/4-db.t 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 => 22;  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 16  $abs_path =~ s#/[^/]*$#/#; Line 17  $abs_path =~ s#/[^/]*$#/#;
17  diag "abs_path: $abs_path";  diag "abs_path: $abs_path";
18    
19  my $db;  my $db;
20    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 => 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_gs(), 'load_gs');  ok(! $db->load_ds(), 'load_ds');
30  ok(! $db->load_gs({ '000' => '000' }), 'load_gs');  ok(! $db->load_ds( id => 000 ), 'load_ds');
31    
32  ok(! $db->save_gs(), "save_gs");  ok(! $db->save_ds(), "save_ds");
33  ok(! $db->save_gs({ '000' => '000' }), 'save_gs');  ok(! $db->save_ds( id => 000 ), 'save_ds');
34    
35  undef $db;  undef $db;
36    
37  ok(my $path = tempdir(), "path");  ok(my $path = tempdir( CLEANUP => 1 ), "path");
38    
39  diag "DB path: $path";  diag "DB path: $path";
40    
41  ok($db = new WebPAC::DB( path => $path, debug => 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    
45  ok(! $db->path, "path - disable caching");  ok(! $db->path(''), "path - disable caching");
46    
47  cmp_ok($db->{'path'}, '==', undef, "no path");  ok(! defined($db->{'path'}), "no path");
48    
49  ok($db->path( $path ), "path($path)");  ok($db->path( $path ), "path($path)");
50    
51  ok(! $db->load_gs(), 'load_gs');  cmp_ok($db->{'path'}, 'eq', $path, "path");
52  ok(! $db->load_gs({ '000' => '000' }), 'load_gs');  
53    ok(! $db->load_ds(), 'load_ds');
54    ok(! $db->load_ds( id => 000 ), 'load_ds');
55    
56  ok(! $db->save_gs(), "save_gs");  throws_ok { $db->save_ds() } qr/id/, "save_ds - need id";
57    
58  my @ds = [ {  my $ds = {
59          'name' => 'Izvor: ',          'Source' => {
60          'tag' => 'Source',                  'name' => 'Izvor: ',
61          'display' => [ 'foo' ]                  'tag' => 'Source',
62          }, {                  'display' => [ 'foo' ]
         'name' => 'ID',  
         'tag' => 'IDths',  
         'swish' => [ 'bar' ],  
         'lookup_key' => [ 'bar' ]  
         }, {  
         'filename' => [ 'out/thes/001.html' ],  
         'name' => 'filename',  
         'tag' => 'filename'  
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    ok($ds2 = $db->load_ds( 1 ), "load_ds without id");
81    
82  ok(! $db->save_gs(), "empty save_gs");  is_deeply($ds, $ds2, "loaded data");
 throws_ok { $db->save_gs( foo => 1 ) } qr/ds/, "save_gs - ds";  
 throws_ok { $db->save_gs( ds => \@ds ) } qr/current_filename/, "save_gs - current_filename";  
 throws_ok { $db->save_gs( ds => \@ds, 'current_filename' => 'foo' ) } qr/headline/, "save_gs - headline";  
83    
84  ok($db->save_gs( ds => \@ds, 'current_filename' => 'foo', 'headline' => 'bar' ), "save_gs");  ok(! $db->load_ds( id => 42 ), "load_ds non-existing");
85    
86  undef $db;  undef $db;
87    
Legend:
Removed from v.18  
changed lines
  Added in v.124
  ViewVC Help
Powered by ViewVC 1.1.26