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
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
|
use strict;
use warnings;
use Test::More import => ['!pass'];
use t::lib::TestApp;
use Dancer ':syntax';
use Dancer::Test;
eval { require DBD::SQLite };
if ($@) {
plan skip_all => 'DBD::SQLite required to run these tests';
}
plan tests => 43;
my $dsn = "dbi:SQLite:dbname=:memory:";
my $conf = {
Database => {
dsn => $dsn,
connection_check_threshold => 0.1,
dbi_params => {
RaiseError => 0,
PrintError => 0,
PrintWarn => 0,
},
handle_class => 'TestHandleClass',
}
};
set plugins => $conf;
set logger => 'capture';
set log => 'debug';
response_content_is [ GET => '/connecthookfired' ], 1,
'database_connected hook fires';
response_content_is [ GET => '/errorhookfired' ], 1,
'database_error hook fires';
response_content_is [ GET => '/isa/DBI::db' ], 1,
"handle isa('DBI::db')";
response_content_is [ GET => '/isa/Dancer::Plugin::Database::Core::Handle' ], 1,
"handle isa('Dancer::Plugin::Database::Core::Handle')";
response_content_is [ GET => '/isa/TestHandleClass' ], 1,
"handle isa('TestHandleClass')";
response_content_is [ GET => '/isa/duck' ], 0, # reverse duck-typing ;)
"handle is not a duck";
response_status_is [ GET => '/prepare_db' ], 200, 'db is created';
response_status_is [ GET => '/' ], 200, "GET / is found";
response_content_like [ GET => '/' ], qr/7/,
"content looks good for / (7 users afiter DB initialisation)";
response_status_is [ GET => '/user/1' ], 200, 'GET /user/1 is found';
response_content_like [ GET => '/user/1' ], qr/sukria/,
'content looks good for /user/1';
response_content_like [ GET => '/user/2' ], qr/bigpresh/,
"content looks good for /user/2";
response_status_is [ DELETE => '/user/3' ], 200, 'DELETE /user/3 is ok';
response_content_like [ GET => '/' ], qr/6/,
'content looks good for / (6 users after deleting one)';
# Exercise the extended features (quick_update et al)
response_status_is [ GET => '/quick_insert/42/Bob' ], 200,
"quick_insert returned OK status";
response_content_like [ GET => '/user/42' ], qr/Bob/,
"quick_insert created a record successfully";
response_content_like [ GET => '/quick_select/42' ], qr/Bob/,
"quick_select returned the record created by quick_insert";
response_content_unlike [ GET => '/quick_select/69' ], qr/Bob/,
"quick_select doesn't return non-matching record";
response_content_like [ GET => '/quick_select/1/category' ], qr/admin/,
'content looks good for /quick_select/1/category';
response_content_like [ GET => '/quick_select/2/name' ], qr/bigpresh/,
'content looks good for /quick_select/2/name';
response_content_like [ GET => '/quick_lookup/bigpresh' ], qr/2/,
'content looks good for /quick_lookup/bigpresh';
# Test quick_count functions
response_content_is [ GET => '/quick_count/admin'], 2, 'quick_count shows 2 admins';
response_content_like [ GET => '/complex_where/4' ], qr/mousey/,
"Complex where clause succeeded";
response_content_like [ GET => '/complex_not/42' ], qr/sukria/,
"Complex not where clause succeeded";
response_content_like [ GET => '/set_op/2' ], qr/bigpresh/,
"set operation where clause succeeded";
response_content_like [ GET => '/quick_select_many' ],
qr/\b bigpresh,sukria \b/x,
"quick_select returns multiple records in list context";
response_status_is [ GET => '/quick_update/42/Billy' ], 200,
"quick_update returned OK status";
response_content_like [ GET => '/user/42' ], qr/Billy/,
"quick_update updated a record successfully";
response_status_is [ GET => '/quick_delete/42' ], 200,
"quick_delete returned OK status";
response_content_like [ GET => '/user/42' ], qr/No such user/,
"quick_delete deleted a record successfully";
# Test that we can fetch only the columns we want
response_content_like [ GET => '/quick_select_specific_cols/name' ],
qr/^bigpresh$/m,
'Fetched a single specified column OK';
response_content_like [ GET => '/quick_select_specific_cols/name/category' ],
qr/^bigpresh:admin$/m,
'Fetched multiple specified columns OK';
# Test that we can limit the number of rows we get back:
response_content_is [ GET => '/quick_select_with_limit/1'],
"1",
"User-specified LIMIT works (1 row)";
response_content_is [ GET => '/quick_select_with_limit/2'],
"2",
"User-specified LIMIT works (2 row)";
# Test that order_by gives us rows in desired order
response_content_is [ GET => '/quick_select_sorted' ],
"bigpresh:bodger:mousey:mystery1:mystery2:sukria",
"Records sorted properly";
response_content_is [ GET => '/quick_select_sorted_rev' ],
"sukria:mystery2:mystery1:mousey:bodger:bigpresh",
"Records sorted properly in descending order";
# Use where and order_by together
# This didn't work as the WHERE and ORDER BY clauses were concatenated without
# a space, as per https://github.com/bigpresh/Dancer-Plugin-Database/pull/27
response_content_is [ GET => '/quick_select_sorted_where' ],
"mystery1:mystery2";
# Test that runtime configuration gives us a handle, too:
response_status_is [ GET => '/runtime_config' ], 200,
"runtime_config returned OK status";
response_content_like [ GET => '/runtime_config' ], qr/ok/,
"runtime_config got a usable database handle";
# Test that we get the same handle each time we call the database() keyword
# (i.e., that handles are cached appropriately)
response_content_like [ GET => '/handles_cached' ], qr/Same handle returned/;
# ... and that we get the same handle each time we call the database() keyword
# after a reconnection (see PR-44)
response_content_like [ GET => '/handles_cached_after_reconnect' ],
qr/New handle cached after reconnect/;
# Test that the database_connection_lost hook fires when the connection goes
# away
response_content_is [ GET => '/database_connection_lost_fires' ], 1,
'database_connection_lost hook fires';
# Test that the database_connection_failed hook fires when we can't connect
response_content_is [ GET => '/database_connection_failed_fires' ], 1,
'database_connection_failed hook fires';
|
