24 |
|
|
25 |
ok(! $db->path, "path"); |
ok(! $db->path, "path"); |
26 |
|
|
27 |
ok(! $db->load_gs(), 'load_gs'); |
ok(! $db->load_ds(), 'load_ds'); |
28 |
ok(! $db->load_gs({ '000' => '000' }), 'load_gs'); |
ok(! $db->load_ds({ '000' => '000' }), 'load_ds'); |
29 |
|
|
30 |
ok(! $db->save_gs(), "save_gs"); |
ok(! $db->save_ds(), "save_ds"); |
31 |
ok(! $db->save_gs({ '000' => '000' }), 'save_gs'); |
ok(! $db->save_ds({ '000' => '000' }), 'save_ds'); |
32 |
|
|
33 |
undef $db; |
undef $db; |
34 |
|
|
35 |
ok(my $path = tempdir(), "path"); |
ok(my $path = tempdir( CLEANUP => 1 ), "path"); |
36 |
|
|
37 |
diag "DB path: $path"; |
diag "DB path: $path"; |
38 |
|
|
48 |
|
|
49 |
cmp_ok($db->{'path'}, 'eq', $path, "path"); |
cmp_ok($db->{'path'}, 'eq', $path, "path"); |
50 |
|
|
51 |
ok(! $db->load_gs(), 'load_gs'); |
ok(! $db->load_ds(), 'load_ds'); |
52 |
ok(! $db->load_gs({ '000' => '000' }), 'load_gs'); |
ok(! $db->load_ds({ '000' => '000' }), 'load_ds'); |
53 |
|
|
54 |
ok(! $db->save_gs(), "save_gs"); |
ok(! $db->save_ds(), "save_ds"); |
55 |
|
|
56 |
my @ds = [ { |
my @ds = [ { |
57 |
'name' => 'Izvor: ', |
'name' => 'Izvor: ', |
69 |
}, |
}, |
70 |
]; |
]; |
71 |
|
|
72 |
ok(! $db->save_gs(), "empty save_gs"); |
ok(! $db->save_ds(), "empty save_ds"); |
73 |
throws_ok { $db->save_gs( foo => 1 ) } qr/ds/, "save_gs - ds"; |
throws_ok { $db->save_ds( foo => 1 ) } qr/ds/, "save_ds - ds"; |
74 |
throws_ok { $db->save_gs( ds => \@ds ) } qr/current_filename/, "save_gs - current_filename"; |
throws_ok { $db->save_ds( ds => \@ds ) } qr/current_filename/, "save_ds - current_filename"; |
75 |
throws_ok { $db->save_gs( ds => \@ds, 'current_filename' => 'foo' ) } qr/headline/, "save_gs - headline"; |
throws_ok { $db->save_ds( ds => \@ds, 'current_filename' => 'foo' ) } qr/headline/, "save_ds - headline"; |
76 |
|
|
77 |
ok($db->save_gs( ds => \@ds, 'current_filename' => 'foo', 'headline' => 'bar' ), "save_gs"); |
ok($db->save_ds( ds => \@ds, 'current_filename' => 'foo', 'headline' => 'bar' ), "save_ds"); |
78 |
|
|
79 |
ok(my @ds2 = $db->load_gs({ '000' => '000' }), "load_gs"); |
ok(my @ds2 = $db->load_ds({ '000' => '000' }), "load_ds"); |
80 |
|
|
81 |
is_deeply(\@ds, \@ds2, "loaded data"); |
is_deeply(\@ds, \@ds2, "loaded data"); |
82 |
|
|