X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fstorage%2Fcursor.t;h=96f917e1ad136cc8d176123ea9d52b82e157e721;hb=18a2903b824e3d3159836c99c1ab88058537169f;hp=e6c0ba7f06bc6ca80ca9ec1efd5cd0c23204f2f2;hpb=0d37421493c1fa1b599e0a1c6d71dd9478d839f6;p=dbsrgits%2FDBIx-Class.git diff --git a/t/storage/cursor.t b/t/storage/cursor.t index e6c0ba7..96f917e 100644 --- a/t/storage/cursor.t +++ b/t/storage/cursor.t @@ -1,10 +1,12 @@ +BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } + use strict; use warnings; use Test::More; use Test::Exception; -use lib qw(t/lib); +use DBIx::Class::Optional::Dependencies; use DBICTest; my $schema = DBICTest->init_schema(cursor_class => 'DBICTest::Cursor'); @@ -13,9 +15,9 @@ lives_ok { is($schema->resultset("Artist")->search(), 3, "Three artists returned"); } 'Custom cursor autoloaded'; +# test component_class reentrancy SKIP: { - eval { require Class::Unload } - or skip 'component_class reentrancy test requires Class::Unload', 1; + DBIx::Class::Optional::Dependencies->skip_without( 'Class::Unload>=0.07' ); Class::Unload->unload('DBICTest::Cursor');