t/002_example.t

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