t/085_load_class_gvstash_detect_bug.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4 use Test::Fatal;
   5
   6 use Class::MOP;
   7 use lib 't/lib';
   8
   9 ok ! exception {
  10     Class::MOP::load_class('TestClassLoaded::Sub');
  11 };
  12
  13 TestClassLoaded->can('a_method');
  14
  15 ok ! exception {
  16     Class::MOP::load_class('TestClassLoaded');
  17 };
  18
  19 ok ! exception {
  20     TestClassLoaded->a_method;
  21 };
  22
  23 done_testing;