rt/t/api/squish.t

   1 use strict;
   2 use warnings;
   3 use RT;
   4 use RT::Test nodb => 1, tests => undef;
   5 use Test::Warn;
   6
   7 use RT::Squish;
   8
   9 my $squish;
  10 warning_like {
  11     $squish = RT::Squish->new();
  12 } [qr/implement/], "warns this is only an abstract base class";
  13
  14 for my $method ( qw/Content ModifiedTime ModifiedTimeString Key/ ) {
  15     can_ok($squish, $method);
  16 }
  17 like( $squish->Key, qr/[a-f0-9]{32}/, 'Key is like md5' );
  18 ok( (time()-$squish->ModifiedTime) <= 2, 'ModifiedTime' );
  19
  20 use RT::Squish::CSS;
  21 can_ok('RT::Squish::CSS', 'Style');
  22
  23 done_testing;