t/001_mouse/005-extends.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 7;
   5 use lib 't/lib';
   6
   7 do {
   8     package Class;
   9     use Mouse;
  10
  11     package Child;
  12     use Mouse;
  13     extends 'Class';
  14
  15     package Mouse::TestClass;
  16     use Mouse;
  17     extends 'Unsweetened';
  18
  19     sub mouse { 1 }
  20 };
  21
  22 can_ok(Child => 'new');
  23
  24 my $child = Child->new;
  25
  26 isa_ok($child => 'Child');
  27 isa_ok($child => 'Class');
  28 isa_ok($child => 'Mouse::Object');
  29
  30 can_ok('Mouse::TestClass' => qw(mouse unsweetened));
  31
  32 eval "
  33     package Child;
  34     use Mouse;
  35 ";
  36
  37 isa_ok($child => 'Class');
  38 isa_ok($child => 'Mouse::Object');
  39