[dbsrgits/DBIx-Class.git] / t / storage / cursor.t

use strict;
use warnings;

use Test::More;
use Test::Exception;

use lib qw(t/lib);
use DBICTest;

my $schema = DBICTest->init_schema(cursor_class => 'DBICTest::Cursor');

lives_ok {
  is($schema->resultset("Artist")->search(), 3, "Three artists returned");
} 'Custom cursor autoloaded';

SKIP: {
  eval { require Class::Unload }
    or skip 'component_class reentrancy test requires Class::Unload', 1;

  Class::Unload->unload('DBICTest::Cursor');

  lives_ok {
    is($schema->resultset("Artist")->search(), 3, "Three artists still returned");
  } 'Custom cursor auto re-loaded';
}

done_testing;
Commit	Line	Data
db29433c	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5	use Test::Exception;
	6
	7	use lib qw(t/lib);
	8	use DBICTest;
	9
	10	my $schema = DBICTest->init_schema(cursor_class => 'DBICTest::Cursor');
	11
	12	lives_ok {
	13	is($schema->resultset("Artist")->search(), 3, "Three artists returned");
	14	} 'Custom cursor autoloaded';
	15
0d374214	16	SKIP: {
	17	eval { require Class::Unload }
	18	or skip 'component_class reentrancy test requires Class::Unload', 1;
	19
	20	Class::Unload->unload('DBICTest::Cursor');
	21
	22	lives_ok {
	23	is($schema->resultset("Artist")->search(), 3, "Three artists still returned");
	24	} 'Custom cursor auto re-loaded';
	25	}
	26
db29433c	27	done_testing;