t/002_role_hierarchy.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 22;
   7
   8 BEGIN {
   9     use_ok('Moose::Autobox');
  10 }
  11
  12 ok(Moose::Autobox::SCALAR->does('Moose::Autobox::Scalar'),           '... SCALAR does Moose::Autobox::Scalar');
  13   ok(Moose::Autobox::SCALAR->does('Moose::Autobox::String'),         '... SCALAR does Moose::Autobox::String');
  14   ok(Moose::Autobox::SCALAR->does('Moose::Autobox::Number'),         '... SCALAR does Moose::Autobox::Number');
  15     ok(Moose::Autobox::SCALAR->does('Moose::Autobox::Value'),        '... SCALAR does Moose::Autobox::Value');
  16         ok(Moose::Autobox::SCALAR->does('Moose::Autobox::Defined'),  '... SCALAR does Moose::Autobox::Defined');
  17             ok(Moose::Autobox::SCALAR->does('Moose::Autobox::Item'), '... SCALAR does Moose::Autobox::Item');
  18
  19 ok(Moose::Autobox::ARRAY->does('Moose::Autobox::Array'),       '... ARRAY does Moose::Autobox::Array');
  20   ok(Moose::Autobox::ARRAY->does('Moose::Autobox::List'),      '... ARRAY does Moose::Autobox::List');
  21   ok(Moose::Autobox::ARRAY->does('Moose::Autobox::Indexed'),   '... ARRAY does Moose::Autobox::Indexed');
  22   ok(Moose::Autobox::ARRAY->does('Moose::Autobox::Ref'),       '... ARRAY does Moose::Autobox::Ref');
  23     ok(Moose::Autobox::ARRAY->does('Moose::Autobox::Defined'), '... ARRAY does Moose::Autobox::Defined');
  24       ok(Moose::Autobox::ARRAY->does('Moose::Autobox::Item'),  '... ARRAY does Moose::Autobox::Item');
  25
  26 ok(Moose::Autobox::HASH->does('Moose::Autobox::Hash'),         '... HASH does Moose::Autobox::Hash');
  27   ok(Moose::Autobox::HASH->does('Moose::Autobox::Indexed'),    '... HASH does Moose::Autobox::Indexed');
  28   ok(Moose::Autobox::HASH->does('Moose::Autobox::Ref'),        '... HASH does Moose::Autobox::Ref');
  29     ok(Moose::Autobox::HASH->does('Moose::Autobox::Defined'),  '... HASH does Moose::Autobox::Defined');
  30       ok(Moose::Autobox::HASH->does('Moose::Autobox::Item'),   '... HASH does Moose::Autobox::Item');
  31
  32 ok(Moose::Autobox::CODE->does('Moose::Autobox::Code'),         '... CODE does Moose::Autobox::Code');
  33   ok(Moose::Autobox::CODE->does('Moose::Autobox::Ref'),        '... CODE does Moose::Autobox::Ref');
  34     ok(Moose::Autobox::CODE->does('Moose::Autobox::Defined'),  '... CODE does Moose::Autobox::Defined');
  35       ok(Moose::Autobox::CODE->does('Moose::Autobox::Item'),   '... CODE does Moose::Autobox::Item');
  36
  37
  38
  39