t/001_mouse/004-auto-subclass.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 3;
   5
   6 do {
   7     package Class;
   8     use Mouse;
   9 };
  10
  11 can_ok(Class => 'new');
  12
  13 my $object = Class->new;
  14
  15 isa_ok($object => 'Class');
  16 isa_ok($object => 'Mouse::Object');
  17