X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Ft%2Fapi%2Fsquish.t;h=4b0fc5f37b47f86fa9bab4b6049af1a3439fb600;hb=679854b8bbc65d112071111bbd7f34a6a481fb30;hp=59615368f9ef8a6449dd7773e58f3037a7f04f88;hpb=a6fe07e49e3fc12169e801b1ed6874c3a5bd8500;p=freeside.git

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;