t/storage/cursor.t

   1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7 use Test::Exception;
   8
   9 use DBIx::Class::Optional::Dependencies;
  10 use DBICTest;
  11
  12 my $schema = DBICTest->init_schema(cursor_class => 'DBICTest::Cursor');
  13
  14 lives_ok {
  15   is($schema->resultset("Artist")->search(), 3, "Three artists returned");
  16 } 'Custom cursor autoloaded';
  17
  18 # test component_class reentrancy
  19 SKIP: {
  20   DBIx::Class::Optional::Dependencies->skip_without( 'Class::Unload>=0.07' );
  21
  22   Class::Unload->unload('DBICTest::Cursor');
  23
  24   lives_ok {
  25     is($schema->resultset("Artist")->search(), 3, "Three artists still returned");
  26   } 'Custom cursor auto re-loaded';
  27 }
  28
  29 done_testing;