t/306_is_class_loaded.t

   1 use strict;
   2 use warnings;
   3 use FindBin qw/$Bin/;
   4 use lib "$Bin/lib";
   5
   6 use Test::More tests => 1;
   7 use Class::MOP ();
   8
   9 # Just defining this sub appears to shit in TestClassLoaded's symbol
  10 # tables (see the SCALAR package symbol you end up with).
  11 # This confuses the XS is_class_loaded method, which looks for _any_
  12 # symbol, not just code symbols of VERSION/AUTHORITY etc.
  13
  14 sub fnar {
  15     TestClassLoaded::this_method_does_not_even_exist()
  16 }
  17
  18 Class::MOP::load_class('TestClassLoaded');
  19
  20 TODO: {
  21     local $TODO = 'Borked';
  22     ok(TestClassLoaded->can('a_method'),
  23         'TestClassLoader::LoadedByLoader::a_method is defined');
  24 }
  25