rt/t/api/squish.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

use strict;
use warnings;
use RT;
use RT::Test nodb => 1, tests => undef;
use Test::Warn;

use RT::Squish;

my $squish;
warning_like {
    $squish = RT::Squish->new();
} [qr/implement/], "warns this is only an abstract base class";

for my $method ( qw/Content ModifiedTime ModifiedTimeString Key/ ) {
    can_ok($squish, $method);
}
like( $squish->Key, qr/[a-f0-9]{32}/, 'Key is like md5' );
ok( (time()-$squish->ModifiedTime) <= 2, 'ModifiedTime' );

use RT::Squish::CSS;
can_ok('RT::Squish::CSS', 'Style');

done_testing;