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
|
use strict;
use warnings;
use Test::More;
use Test::Requires qw{
XML::XSP
};
use FindBin;
use lib "$FindBin::Bin/lib";
use Plack::Test;
use Plack::Builder;
use Plack::Middleware::Magpie;
use HTTP::Request::Common;
my $handler = builder {
enable "Magpie", pipeline => [ 'Magpie::Transformer::XSP' ];
enable "Static", path => qr!\.xsp$!, root => './t/htdocs';
};
test_psgi
app => $handler,
client => sub {
my $cb = shift;
my $res = $cb->( GET "http://localhost/avt.xsp" );
my $body = $res->content;
like $body, qr/test="655321"/;
like $body, qr/test="droogie_655321"/;
like $body, qr/test="6553210"/;
like $body, qr/test="123556-655321"/;
like $body, qr/test="bar"/;
};
done_testing;
|
