trunk/t/4-db.tt

#!/usr/bin/perl -w

use Test::More tests => 22;
use Test::Exception;
use Cwd qw/abs_path/;
use blib;
use File::Temp qw/tempdir/;
use strict;

BEGIN {
use_ok( 'WebPAC::DB' );
}

ok(my $abs_path = abs_path($0), "abs_path");
$abs_path =~ s#/[^/]*$#/#;
diag "abs_path: $abs_path";

my $db;

diag "NULL DB";

ok($db = new WebPAC::DB( debug => 1), "new");

ok(! $db->path, "path");

ok(! $db->load_gs(), 'load_gs');
ok(! $db->load_gs({ '000' => '000' }), 'load_gs');

ok(! $db->save_gs(), "save_gs");
ok(! $db->save_gs({ '000' => '000' }), 'save_gs');

undef $db;

ok(my $path = tempdir(), "path");

diag "DB path: $path";

ok($db = new WebPAC::DB( path => $path, debug => 1), "new");

cmp_ok($db->{'path'}, 'eq', $path, "path");

ok(! $db->path, "path - disable caching");

cmp_ok($db->{'path'}, '==', undef, "no path");

ok($db->path( $path ), "path($path)");

ok(! $db->load_gs(), 'load_gs');
ok(! $db->load_gs({ '000' => '000' }), 'load_gs');

ok(! $db->save_gs(), "save_gs");

my @ds = [ {
        'name' => 'Izvor: ',
        'tag' => 'Source',
        'display' => [ 'foo' ]
        }, {
        'name' => 'ID',
        'tag' => 'IDths',
        'swish' => [ 'bar' ],
        'lookup_key' => [ 'bar' ]
        }, {
        'filename' => [ 'out/thes/001.html' ],
        'name' => 'filename',
        'tag' => 'filename'
        },
];

ok(! $db->save_gs(), "empty save_gs");
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";

ok($db->save_gs( ds => \@ds, 'current_filename' => 'foo', 'headline' => 'bar' ), "save_gs");

undef $db;

1	dpavlin	18	#!/usr/bin/perl -w
2
3			use Test::More tests => 22;
4			use Test::Exception;
5			use Cwd qw/abs_path/;
6			use blib;
7			use File::Temp qw/tempdir/;
8			use strict;
9
10			BEGIN {
11			use_ok( 'WebPAC::DB' );
12			}
13
14			ok(my $abs_path = abs_path($0), "abs_path");
15			$abs_path =~ s#/[^/]*$#/#;
16			diag "abs_path: $abs_path";
17
18			my $db;
19
20			diag "NULL DB";
21
22			ok($db = new WebPAC::DB( debug => 1), "new");
23
24			ok(! $db->path, "path");
25
26			ok(! $db->load_gs(), 'load_gs');
27			ok(! $db->load_gs({ '000' => '000' }), 'load_gs');
28
29			ok(! $db->save_gs(), "save_gs");
30			ok(! $db->save_gs({ '000' => '000' }), 'save_gs');
31
32			undef $db;
33
34			ok(my $path = tempdir(), "path");
35
36			diag "DB path: $path";
37
38			ok($db = new WebPAC::DB( path => $path, debug => 1), "new");
39
40			cmp_ok($db->{'path'}, 'eq', $path, "path");
41
42			ok(! $db->path, "path - disable caching");
43
44			cmp_ok($db->{'path'}, '==', undef, "no path");
45
46			ok($db->path( $path ), "path($path)");
47
48			ok(! $db->load_gs(), 'load_gs');
49			ok(! $db->load_gs({ '000' => '000' }), 'load_gs');
50
51			ok(! $db->save_gs(), "save_gs");
52
53			my @ds = [ {
54			'name' => 'Izvor: ',
55			'tag' => 'Source',
56			'display' => [ 'foo' ]
57			}, {
58			'name' => 'ID',
59			'tag' => 'IDths',
60			'swish' => [ 'bar' ],
61			'lookup_key' => [ 'bar' ]
62			}, {
63			'filename' => [ 'out/thes/001.html' ],
64			'name' => 'filename',
65			'tag' => 'filename'
66			},
67			];
68
69			ok(! $db->save_gs(), "empty save_gs");
70			throws_ok { $db->save_gs( foo => 1 ) } qr/ds/, "save_gs - ds";
71			throws_ok { $db->save_gs( ds => \@ds ) } qr/current_filename/, "save_gs - current_filename";
72			throws_ok { $db->save_gs( ds => \@ds, 'current_filename' => 'foo' ) } qr/headline/, "save_gs - headline";
73
74			ok($db->save_gs( ds => \@ds, 'current_filename' => 'foo', 'headline' => 'bar' ), "save_gs");
75
76			undef $db;
77