t/002_example.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 18;
   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::Value'),     '... SCALAR does Moose::Autobox::Value');
  14     ok(SCALAR->does('Moose::Autobox::Defined'), '... SCALAR does Moose::Autobox::Defined');
  15       ok(SCALAR->does('Moose::Autobox::Item'),  '... SCALAR does Moose::Autobox::Item');
  16
  17 ok(ARRAY->does('Moose::Autobox::Array'),        '... ARRAY does Moose::Autobox::Array');
  18   ok(ARRAY->does('Moose::Autobox::List'),       '... ARRAY does Moose::Autobox::List');
  19   ok(ARRAY->does('Moose::Autobox::Ref'),        '... ARRAY does Moose::Autobox::Ref');
  20     ok(ARRAY->does('Moose::Autobox::Defined'),  '... ARRAY does Moose::Autobox::Defined');
  21       ok(ARRAY->does('Moose::Autobox::Item'),   '... ARRAY does Moose::Autobox::Item');
  22
  23 ok(HASH->does('Moose::Autobox::Hash'),          '... HASH does Moose::Autobox::Hash');
  24   ok(HASH->does('Moose::Autobox::Ref'),         '... HASH does Moose::Autobox::Ref');
  25     ok(HASH->does('Moose::Autobox::Defined'),   '... HASH does Moose::Autobox::Defined');
  26       ok(HASH->does('Moose::Autobox::Item'),    '... HASH does Moose::Autobox::Item');
  27
  28 ok(CODE->does('Moose::Autobox::Code'),          '... CODE does Moose::Autobox::Code');
  29   ok(CODE->does('Moose::Autobox::Ref'),         '... CODE does Moose::Autobox::Ref');
  30     ok(CODE->does('Moose::Autobox::Defined'),   '... CODE does Moose::Autobox::Defined');
  31       ok(CODE->does('Moose::Autobox::Item'),    '... CODE does Moose::Autobox::Item');