1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
use warnings;
use strict;
use Test::More;
use File::Temp;
use PGObject::Util::DBAdmin;
use Test::Exception;
plan skip_all => 'DB_TESTING not set' unless $ENV{DB_TESTING};
plan tests => 24;
my $db = PGObject::Util::DBAdmin->new(
username => 'postgres' ,
host => 'localhost' ,
port => '5432' ,
dbname => 'pgobject_test_db',
);
eval { $db->drop };
lives_ok { $db->create } 'Create db, none exists';
dies_ok { $db->create } 'create db, already exists';
dies_ok { $db->run_file(file => 't/data/does_not_exist.sql') }
'bad file input for run_file';
# try to load with invalid sql
my $stdout_log = File::Temp->new->filename;
my $stderr_log = File::Temp->new->filename;
dies_ok{
$db->run_file(
file => 't/data/bad.sql',
stdout_log => $stdout_log,
errlog => $stderr_log,
)
} 'run_file dies with bad sql';
ok(-f $stdout_log, 'run_file stdout_log file written');
ok(-f $stderr_log, 'run_file errlog file written');
ok(defined $db->stdout, 'after run_file stdout property is defined');
ok(defined $db->stderr, 'after run_file stderr property is defined');
cmp_ok(-s $stdout_log, '==', 0, 'run_file stdout_log file has size == 0 for invalid sql');
cmp_ok(-s $stderr_log, '>', 0, 'run_file errlog file has size > 0 for invalid sql');
cmp_ok(length $db->stdout, '==', 0, 'after run_file, stdout property has length == 0 for invalid sql');
cmp_ok(length $db->stderr, '>', 0, 'after run_file, stderr property has length > 0 for invalid sql');
unlink $stdout_log;
unlink $stderr_log;
# Test that restore fails with bad input
# Note cannot use format=undef of format='c' as these options
# actually call run_file underneath
dies_ok{
$db->restore(
file => 't/data/bad.sql',
format => 't',
)
} 'restore dies with bad input';
lives_ok { $db->drop } 'drop db first time, successful';
dies_ok { $db->drop } 'dropdb second time, dies';
my $backup_file = File::Temp->new->filename;
dies_ok { $db->backup(format => 'c', file => $backup_file) } 'cannot back up non-existent db';
ok(! -e $backup_file, 'output file deleted after backup error');
# Test what happens if specified backup file is unwriteable
my $temp = File::Temp->new;
$backup_file = $temp->filename;
chmod 0400, $backup_file;
dies_ok { $db->backup(format => 'c', file => $backup_file) } 'backup dies if output file is not writeable';
chmod 0600, $backup_file;
unlink $backup_file;
dies_ok { $db->restore(format => 'c', file => 't/data/backup.sqlc') } 'cannot restore to non-existent db';
$db = PGObject::Util::DBAdmin->new(
username => 'invalid',
host => 'localhost',
port => '5432',
dbname => 'pgobject_test_db',
);
$backup_file = File::Temp->new->filename;
dies_ok { $db->backup_globals(file => $backup_file) } 'backup_globals dies with bad username';
ok(! -e $backup_file, 'output file deleted after backup_globals error');
dies_ok { $db->backup(format => 'c', file => $backup_file) } 'backup dies with bad username';
ok(! -e $backup_file, 'output file deleted after backup error');
$db = PGObject::Util::DBAdmin->new(
username => 'postgres' ,
host => 'localhost' ,
port => '2' ,
dbname => 'pgobject_test_db',
);
dies_ok { $db->connect } 'Could not connect';
|
