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
|
use strict;
use Plack::App::File;
use Plack::Middleware::File::Sass;
use Test::More;
use Plack::Test;
use HTTP::Request::Common;
use Test::Requires qw(Text::Sass);
my $app = Plack::App::File->new(root => "t");
$app = Plack::Middleware::File::Sass->wrap($app, syntax => "scss");
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/border-color: \#3bbfce/;
like $res->content, qr/padding: 8px/;
};
done_testing;
|
