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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
#!/usr/bin/perl
# Tests the basic functionality of SQLite.
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use Test::More tests => 9;
use File::Spec::Functions ':ALL';
use File::Remove 'clear';
use IO::Compress::Gzip ();
use URI::file ();
use t::lib::Test;
# Flush any existing mirror database file
clear(mirror_db('ORLite::Mirror::Test'));
# Locate the broken compressed database
my $broken = catfile(qw{ t data broken.db });
my $broken_gz = catfile(qw{ t data broken.db.gz });
my $broken_url = URI::file->new_abs($broken_gz)->as_string;
ok( -f $broken, 'Found test broken database' );
# Locate the stub file
my $stub = catfile(qw{ share stub.db });
my $stub_url = URI::file->new_abs($stub)->as_string;
ok( -f $stub, 'Found test stub database' );
######################################################################
# Compile-time mirror and loading failure
SCOPE: {
# Create the test package
eval <<"END_PERL";
package ORLite::Mirror::Test1;
use strict;
use vars qw{\$VERSION};
BEGIN {
\$VERSION = '1.00';
}
use ORLite::Mirror {
url => '$broken_url',
prune => 1,
array => 0,
};
1;
END_PERL
# Did the class fail at compile time as expected
ok( $@, 'Loading broke as expected' );
like( $@, qr/not a database/, 'Error message matches expected' );
}
######################################################################
# Compile-time stub failure
SCOPE: {
# Create the test package
eval <<"END_PERL";
package ORLite::Mirror::Test1;
use strict;
use vars qw{\$VERSION};
BEGIN {
\$VERSION = '1.00';
}
use ORLite::Mirror {
url => '$stub_url',
stub => '$broken',
prune => 1,
};
1;
END_PERL
# Did the class fail at compile time as expected
ok( $@, 'Loading broke as expected' );
like( $@, qr/not a database/, 'Error message matches expected' );
}
######################################################################
# Run-time mirror and loading failure
SCOPE: {
# Create the test package
eval <<"END_PERL";
package ORLite::Mirror::Test2;
use strict;
use vars qw{\$VERSION};
BEGIN {
\$VERSION = '1.00';
}
use ORLite::Mirror {
url => '$broken_url',
stub => '$stub',
prune => 1,
};
1;
END_PERL
# Did the class fail at compile time as expected
is( $@, '', 'Compiling worked as expected' );
# It should now fail to connect-time
eval {
ORLite::Mirror::Test2->connect;
};
ok( $@, 'Loading broke as expected' );
like( $@, qr/not a database/, 'Error message matches expected' );
}
|
