t/400_mouse_util/002_moose_util_does_role.t

   1 #!/usr/bin/perl
   2 # This is automatically generated by author/import-moose-test.pl.
   3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
   4 use t::lib::MooseCompat;
   5
   6 use strict;
   7 use warnings;
   8
   9 use Test::More;
  10
  11 BEGIN {
  12     use_ok('Mouse::Util', ':all');
  13 }
  14
  15 {
  16   package Foo;
  17
  18   use Mouse::Role;
  19 }
  20
  21 {
  22   package Bar;
  23
  24   use Mouse;
  25
  26   with qw/Foo/;
  27 }
  28
  29 {
  30   package Baz;
  31
  32   use Mouse;
  33 }
  34
  35 {
  36   package Quux;
  37
  38   #use metaclass;
  39 }
  40
  41 {
  42   package Foo::Foo;
  43
  44   use Mouse::Role;
  45
  46   with 'Foo';
  47 }
  48
  49 # Classes
  50
  51 ok(does_role('Bar', 'Foo'), '... Bar does Foo');
  52
  53 ok(!does_role('Baz', 'Foo'), '... Baz doesnt do Foo');
  54
  55 # Objects
  56
  57 my $bar = Bar->new;
  58
  59 ok(does_role($bar, 'Foo'), '... $bar does Foo');
  60
  61 my $baz = Baz->new;
  62
  63 ok(!does_role($baz, 'Foo'), '... $baz doesnt do Foo');
  64
  65 # Invalid values
  66
  67 ok(!does_role(undef,'Foo'), '... undef doesnt do Foo');
  68
  69 ok(!does_role(1,'Foo'), '... 1 doesnt do Foo');
  70
  71 # non Mouse metaclass
  72
  73 ok(!does_role('Quux', 'Foo'), '... Quux doesnt do Foo (does not die tho)');
  74
  75 # TODO: make the below work, maybe?
  76
  77 # Self
  78
  79 #ok(does_role('Foo', 'Foo'), '... Foo does do Foo');
  80
  81 # sub-Roles
  82
  83 #ok(does_role('Foo::Foo', 'Foo'), '... Foo::Foo does do Foo');
  84
  85 done_testing;