-#!/usr/bin/perl
-
use strict;
use warnings;
use Test::More tests => 13;
-use Test::Exception;
+use Test::Deep;
+use Test::Fatal;
BEGIN {
use_ok('MooseX::Storage');
is($foo->baz, 'BAZ', '... got the value we expected');
is($foo->gorch, 'GORCH', '... got the value we expected');
- is_deeply(
+ cmp_deeply(
$foo->pack,
{
__CLASS__ => 'Foo',
is( $bar->zot, $$, " ->zot => $$" );
my $bpack = $bar->pack;
- is_deeply(
+ cmp_deeply(
$bpack,
{ __CLASS__ => 'Bar',
zot => $$,