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

BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }

use strict;
use warnings;

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

use DBIx::Class::Optional::Dependencies;
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';

# test component_class reentrancy
SKIP: {
  DBIx::Class::Optional::Dependencies->skip_without( 'Class::Unload>=0.07' );

  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
c0329273	1	BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ \|\| $! ) }
c0329273	2
db29433c	3	use strict;
	4	use warnings;
	5
	6	use Test::More;
	7	use Test::Exception;
	8
18a2903b	9	use DBIx::Class::Optional::Dependencies;
db29433c	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
461e818a	18	# test component_class reentrancy
0d374214	19	SKIP: {
461e818a	20	DBIx::Class::Optional::Dependencies->skip_without( 'Class::Unload>=0.07' );
0d374214	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
db29433c	29	done_testing;