remove last use of Best (that should have come out in 2010!)
[gitmo/MooseX-Storage.git] / t / 008_do_not_serialize.t
index 4e2e896..0748c5d 100644 (file)
@@ -1,10 +1,9 @@
-#!/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');
@@ -44,7 +43,7 @@ BEGIN {
     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',
@@ -82,7 +81,7 @@ BEGIN {
     is( $bar->zot, $$,          "   ->zot => $$" );
 
     my $bpack = $bar->pack;
-    is_deeply(
+    cmp_deeply(
         $bpack,
         {   __CLASS__   => 'Bar',
             zot         => $$,