4 package TestPackage::A;
13 ok(Class::Inspector->loaded('TestPackage::A'),
14 'anon. package exists');
16 $schema->ensure_class_loaded('TestPackage::A');
19 ok(!$@, 'ensure_class_loaded detected an anon. class');
22 $schema->ensure_class_loaded('FakePackage::B');
25 like($@, qr/Can't locate/,
26 'ensure_class_loaded threw exception for nonexistent class');
28 ok(!Class::Inspector->loaded('DBICTest::FakeComponent'),
29 'DBICTest::FakeComponent not loaded yet');
32 $schema->ensure_class_loaded('DBICTest::FakeComponent');
35 ok(!$@, 'ensure_class_loaded detected an existing but non-loaded class');
36 ok(Class::Inspector->loaded('DBICTest::FakeComponent'),
37 'DBICTest::FakeComponent now loaded');