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 tests => 1;
   8 use Class::MOP ();
   9
  10 # Just defining this sub appears to shit in TestClassLoaded's symbol
  11 # tables (see the SCALAR package symbol you end up with).
  12 # This confuses the XS is_class_loaded method, which looks for _any_
  13 # symbol, not just code symbols of VERSION/AUTHORITY etc.
  14
  15 sub fnar {
  16     TestClassLoaded::this_method_does_not_even_exist();
  17 }
  18
  19 Class::MOP::load_class('TestClassLoaded');
  20
  21 TODO: {
  22     local $TODO = 'Borked';
  23     ok(
  24         TestClassLoaded->can('a_method'),
  25         'TestClassLoader::a_method is defined'
  26     );
  27 }
  28