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
|
use strict;
use warnings;
use Test::More tests => 7, import => ['!pass'];
use Dancer qw(:syntax);
use Dancer::Plugin::DBIC;
use Dancer::Test;
use DBI;
use File::Temp qw(tempfile);
use t::lib::TestApp;
eval { require DBD::SQLite };
if ($@) {
plan skip_all => 'DBD::SQLite required to run these tests';
}
my (undef, $dbfile) = tempfile(SUFFIX => '.db');
set plugins => { DBIC => { foo => { dsn => "dbi:SQLite:dbname=$dbfile", }, } };
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile");
my @sql = (
q/create table users (id INTEGER primary key, name VARCHAR(64))/,
q/insert into users values (1, 'sukria')/,
q/insert into users values (2, 'bigpresh')/,
);
$dbh->do($_) for @sql;
response_status_is [ GET => '/' ], 200, "GET / is found";
response_content_like [ GET => '/' ], qr/2/, "content looks good for /";
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/2' ], 200, 'DELETE /user/2 is ok';
response_content_like [ GET => '/' ], qr/1/, 'content looks good for /';
unlink $dbfile;
|
