t/90ensure_class_loaded.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use lib qw(t/lib);
   6 use DBICTest;
   7 use Class::Inspector;
   8
   9 BEGIN {
  10   package TestPackage::A;
  11   sub some_method {}
  12 }
  13
  14 my $schema = DBICTest->init_schema();
  15
  16 plan tests => 17;
  17
  18 # Test ensure_class_found
  19 ok( $schema->ensure_class_found('DBIx::Class::Schema'),
  20     'loaded package DBIx::Class::Schema was found' );
  21 ok( !Class::Inspector->loaded('DBICTest::FakeComponent'),
  22     'DBICTest::FakeComponent not loaded yet' );
  23 ok( $schema->ensure_class_found('DBICTest::FakeComponent'),
  24     'package DBICTest::FakeComponent was found' );
  25 ok( !Class::Inspector->loaded('DBICTest::FakeComponent'),
  26     'DBICTest::FakeComponent not loaded by ensure_class_found()' );
  27 ok( $schema->ensure_class_found('TestPackage::A'),
  28     'anonymous package TestPackage::A found' );
  29 ok( !$schema->ensure_class_found('FAKE::WONT::BE::FOUND'),
  30         'fake package not found' );
  31
  32 # Test load_optional_class
  33 my $retval = eval { $schema->load_optional_class('ANOTHER::FAKE::PACKAGE') };
  34 ok( !$@, 'load_optional_class on a nonexistent class did not throw' );
  35 ok( !$retval, 'nonexistent package not loaded' );
  36 $retval = eval { $schema->load_optional_class('DBICTest::OptionalComponent') };
  37 ok( !$@, 'load_optional_class on an existing class did not throw' );
  38 ok( $retval, 'DBICTest::OptionalComponent loaded' );
  39 eval { $schema->load_optional_class('DBICTest::ErrorComponent') };
  40 like( $@, qr/did not return a true value/, 'DBICTest::ErrorComponent threw ok' );
  41
  42 # Test ensure_class_loaded
  43 ok( Class::Inspector->loaded('TestPackage::A'), 'anonymous package exists' );
  44 eval { $schema->ensure_class_loaded('TestPackage::A'); };
  45 ok( !$@, 'ensure_class_loaded detected an anon. class' );
  46 eval { $schema->ensure_class_loaded('FakePackage::B'); };
  47 like( $@, qr/Can't locate/,
  48      'ensure_class_loaded threw exception for nonexistent class' );
  49 ok( !Class::Inspector->loaded('DBICTest::FakeComponent'),
  50    'DBICTest::FakeComponent not loaded yet' );
  51 eval { $schema->ensure_class_loaded('DBICTest::FakeComponent'); };
  52 ok( !$@, 'ensure_class_loaded detected an existing but non-loaded class' );
  53 ok( Class::Inspector->loaded('DBICTest::FakeComponent'),
  54    'DBICTest::FakeComponent now loaded' );
  55
  56 1;