blob: 9be599f829fd8f70fb560dd19c7efdad8e868556 (
plain) (
blame)
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
|
use strict;
use Plack::App::File;
use Plack::Middleware::File::Less;
use Test::More;
use Plack::Test;
use HTTP::Request::Common;
my $app = Plack::App::File->new(root => "t");
$app = Plack::Middleware::File::Less->wrap($app);
test_psgi $app, sub {
my $cb = shift;
my $res = $cb->(GET "/");
is $res->code, 404;
$res = $cb->(GET "/foo.css");
is $res->code, 200;
is $res->content_type, 'text/css';
like $res->content, qr/color: #4D926F;/;
$res = $cb->(GET "/bar.css");
is $res->code, 200;
is $res->content_type, 'text/css';
like $res->content, qr/float: left/;
};
done_testing;
|