X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2F03-subclassing.t;fp=t%2Fcdbi%2F03-subclassing.t;h=9bc77e87eb02d66f3b8cb4cef342b5897db4865c;hb=d9bd51956470404b3960871d3413fa98f16961d2;hp=433999d622836187cd1421e96af23e52adf01aff;hpb=aea59b74d807ee65b319f3c1f84709157e12926b;p=dbsrgits%2FDBIx-Class.git diff --git a/t/cdbi/03-subclassing.t b/t/cdbi/03-subclassing.t index 433999d..9bc77e8 100644 --- a/t/cdbi/03-subclassing.t +++ b/t/cdbi/03-subclassing.t @@ -5,15 +5,6 @@ use Test::More; # Make sure subclasses can be themselves subclassed #---------------------------------------------------------------------- -BEGIN { - eval "use DBIx::Class::CDBICompat;"; - if ($@) { - plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required'); - next; - } - plan tests => 6; -} - use lib 't/cdbi/testlib'; use Film; @@ -28,3 +19,5 @@ ok my $btaste = Film::Threat->retrieve('Bad Taste'), "subclass retrieve"; isa_ok $btaste => "Film::Threat"; isa_ok $btaste => "Film"; is $btaste->Title, 'Bad Taste', 'subclass get()'; + +done_testing;