-#!/usr/bin/perl
-
use strict;
use warnings;
use Test::More tests => 8;
+use Test::Deep;
BEGIN {
use_ok('MooseX::Storage');
boolean => 0,
);
isa_ok( $foo, 'Foo' );
-
+
is($foo->boolean, 0, '... got the right boolean value');
-
- is_deeply(
+
+ cmp_deeply(
$foo->pack,
{
__CLASS__ => 'Foo',
number => 0,
string => '',
boolean => 0,
- }
+ }
);
isa_ok( $foo, 'Foo' );