t/990_deprecated/990-undefined-class-type.t

   1 #!perl\r
   2 \r
   3 use strict;
   4 use warnings;
   5 use Test::More tests => 5;\r
   6 \r
   7 use Mouse::Util::TypeConstraints;\r
   8
   9 my $z = Mouse::Util::TypeConstraints::find_or_create_isa_type_constraint('My::New::Class | Str');
  10 \r
  11 #diag $z->dump;\r
  12
  13 eval q{
  14     package My::New::Class;
  15     use Mouse;
  16     package My::New::DerivedClass;
  17     use Mouse;
  18     extends 'My::New::Class';
  19 };
  20
  21 ok $z->check(My::New::Class->new);
  22 ok $z->check(My::New::DerivedClass->new);
  23 ok $z->check('Foo');
  24 ok!$z->check(undef);
  25 ok!$z->check(bless {}, 'Foo');
  26