t/306_is_class_loaded.t

   1 use strict;
   2 use warnings;
   3
   4 use FindBin qw/$Bin/;
   5 use lib "$Bin/lib";
   6
   7 use Test::More;
   8 use Class::MOP ();
   9
  10 plan tests => 1;
  11
  12 # There was a bug that manifest on Perl < 5.10 when running under
  13 # XS. The mere mention of TestClassLoaded below broke the
  14 # is_class_loaded check.
  15
  16 sub whatever {
  17     TestClassLoaded::this_method_does_not_even_exist();
  18 }
  19
  20 Class::MOP::load_class('TestClassLoaded');
  21
  22 ok( TestClassLoaded->can('a_method'),
  23     'TestClassLoader::a_method is defined' );
  24
  25