summaryrefslogtreecommitdiff
path: root/rt/t/api/squish.t
diff options
context:
space:
mode:
Diffstat (limited to 'rt/t/api/squish.t')
-rw-r--r--rt/t/api/squish.t11
1 files changed, 9 insertions, 2 deletions
diff --git a/rt/t/api/squish.t b/rt/t/api/squish.t
index 59615368f..4b0fc5f37 100644
--- a/rt/t/api/squish.t
+++ b/rt/t/api/squish.t
@@ -1,11 +1,16 @@
use strict;
use warnings;
use RT;
-use RT::Test nodb => 1, tests => 7;
+use RT::Test nodb => 1, tests => undef;
+use Test::Warn;
use RT::Squish;
-my $squish = RT::Squish->new();
+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);
}
@@ -14,3 +19,5 @@ ok( (time()-$squish->ModifiedTime) <= 2, 'ModifiedTime' );
use RT::Squish::CSS;
can_ok('RT::Squish::CSS', 'Style');
+
+done_testing;