t/001_cmop/085_load_class_gvstash_detect_bug.t

   1 use strict;
   2 use warnings;
   3
   4 use FindBin;
   5 use File::Spec::Functions;
   6
   7 use Test::More;
   8 use Test::Fatal;
   9
  10 use Class::MOP;
  11
  12 use lib catdir($FindBin::Bin, 'lib');
  13
  14 is( exception {
  15     Class::MOP::load_class('TestClassLoaded::Sub');
  16 }, undef );
  17
  18 TestClassLoaded->can('a_method');
  19
  20 is( exception {
  21     Class::MOP::load_class('TestClassLoaded');
  22 }, undef );
  23
  24 is( exception {
  25     TestClassLoaded->a_method;
  26 }, undef );
  27
  28 done_testing;