POD::Coverage additions

[dbsrgits/DBIx-Class.git] / t / 90ensure_class_loaded.t

use strict;
use warnings;  

use Test::More;
use lib qw(t/lib);
use DBICTest;
use Class::Inspector;

BEGIN {
  package TestPackage::A;
  sub some_method {}
}

my $schema = DBICTest->init_schema();

plan tests => 6;

ok(Class::Inspector->loaded('TestPackage::A'),
   'anon. package exists');
eval {
  $schema->ensure_class_loaded('TestPackage::A');
};

ok(!$@, 'ensure_class_loaded detected an anon. class');

eval {
  $schema->ensure_class_loaded('FakePackage::B');
};

like($@, qr/Can't locate/,
     'ensure_class_loaded threw exception for nonexistent class');

ok(!Class::Inspector->loaded('DBICTest::FakeComponent'),
   'DBICTest::FakeComponent not loaded yet');

eval {
  $schema->ensure_class_loaded('DBICTest::FakeComponent');
};

ok(!$@, 'ensure_class_loaded detected an existing but non-loaded class');
ok(Class::Inspector->loaded('DBICTest::FakeComponent'),
   'DBICTest::FakeComponent now loaded');

1;