10 package TestPackage::A;
14 my $schema = DBICTest->init_schema();
18 ok(Class::Inspector->loaded('TestPackage::A'),
19 'anon. package exists');
21 $schema->ensure_class_loaded('TestPackage::A');
24 ok(!$@, 'ensure_class_loaded detected an anon. class');
27 $schema->ensure_class_loaded('FakePackage::B');
30 like($@, qr/Can't locate/,
31 'ensure_class_loaded threw exception for nonexistent class');
33 ok(!Class::Inspector->loaded('DBICTest::FakeComponent'),
34 'DBICTest::FakeComponent not loaded yet');
37 $schema->ensure_class_loaded('DBICTest::FakeComponent');
40 ok(!$@, 'ensure_class_loaded detected an existing but non-loaded class');
41 ok(Class::Inspector->loaded('DBICTest::FakeComponent'),
42 'DBICTest::FakeComponent now loaded');