t/002_example.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 20;
   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::Indexed'),  '... ARRAY does Moose::Autobox::Indexed');
  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::Indexed'),     '... HASH does Moose::Autobox::Indexed');
  26   ok(HASH->does('Moose::Autobox::Ref'),         '... HASH does Moose::Autobox::Ref');
  27     ok(HASH->does('Moose::Autobox::Defined'),   '... HASH does Moose::Autobox::Defined');
  28       ok(HASH->does('Moose::Autobox::Item'),    '... HASH does Moose::Autobox::Item');
  29
  30 ok(CODE->does('Moose::Autobox::Code'),          '... CODE does Moose::Autobox::Code');
  31   ok(CODE->does('Moose::Autobox::Ref'),         '... CODE does Moose::Autobox::Ref');
  32     ok(CODE->does('Moose::Autobox::Defined'),   '... CODE does Moose::Autobox::Defined');
  33       ok(CODE->does('Moose::Autobox::Item'),    '... CODE does Moose::Autobox::Item');
  34
  35
  36
  37