remove last use of Best (that should have come out in 2010!)

[gitmo/MooseX-Storage.git] / t / 007_false.t

diff --git a/t/007_false.t b/t/007_false.t
index ee53900..3035651 100644 (file)
--- a/t/007_false.t
+++ b/t/007_false.t
@@ -1,9 +1,8 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
-use Test::More tests => 7;
+use Test::More tests => 8;
+use Test::Deep;
 
 BEGIN {
     use_ok('MooseX::Storage');
@@ -29,8 +28,10 @@ BEGIN {
         boolean => 0,
     );
     isa_ok( $foo, 'Foo' );
-    
-    is_deeply(
+
+    is($foo->boolean, 0, '... got the right boolean value');
+
+    cmp_deeply(
         $foo->pack,
         {
             __CLASS__ => 'Foo',
@@ -49,7 +50,7 @@ BEGIN {
             number    => 0,
             string    => '',
             boolean   => 0,
-        }        
+        }
     );
     isa_ok( $foo, 'Foo' );