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
|
use strict;
use warnings;
use Test::More;
use FindBin;
use lib "$FindBin::Bin/lib";
use lib "$FindBin::Bin/../lib";
use Test::Requires qw{
KiokuDB
DBD::SQLite
};
use Plack::Test;
use Plack::Builder;
use Plack::Middleware::Magpie;
use Bread::Board;
use HTTP::Request::Common;
my %user = (
name => 'ubu',
status => 'dubious at best',
);
my $assets = container '' => as {
service 'somevar' => 'some value';
service 'kioku_dir' => (
lifecycle => 'Singleton',
block => sub {
my $s = shift;
KiokuDB->connect( "dbi:SQLite::memory:", create => 1, );
},
);
};
my $handler = builder {
enable "Magpie",
assets => $assets,
pipeline => [
machine {
match qr|/users| => [
'Magpie::Resource::Kioku' => {
wrapper_class => 'Magpie::Pipeline::Resource::Kioku::User'
},
'Magpie::Transformer::JSON',
];
}
];
};
test_psgi
app => $handler,
client => sub {
my $cb = shift;
my $url = "http://localhost/users";
my $created_url = undef;
{
my $res = $cb->( POST $url => \%user );
is $res->code, 201, "correct response code";
$created_url = $res->header('Location');
ok defined $created_url;
}
{
if ($created_url) {
my $res = $cb->( GET $created_url);
is $res->code, 200, "correct GET response.";
like $res->content, qr|ubu|, 'JSON serialized';
}
else {
fail "GET to follow-on URL failed."
}
}
};
ok(1);
done_testing;
|
