remove useless shebangs in tests

[gitmo/MooseX-Storage.git] / t / 003_basic_w_embedded_objects.t

diff --git a/t/003_basic_w_embedded_objects.t b/t/003_basic_w_embedded_objects.t
index ecb0b76..65a5001 100644 (file)
--- a/t/003_basic_w_embedded_objects.t
+++ b/t/003_basic_w_embedded_objects.t
@@ -1,9 +1,8 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
-use Test::More no_plan => 1;
+use Test::More tests => 47;
+use Test::Deep;
 
 BEGIN {
     use_ok('MooseX::Storage');
@@ -55,14 +54,14 @@ ArrayRef and HashRef type handlers.
     );
     isa_ok( $foo, 'Foo' );
     
-    is_deeply(
+    cmp_deeply(
         $foo->pack,
         {
-            __class__ => 'Foo',
+            __CLASS__ => 'Foo',
             bars      => [ 
                 map {
                   {
-                      __class__ => 'Bar',
+                      __CLASS__ => 'Bar',
                       number    => $_,
                   }  
                 } (1 .. 10)
@@ -75,11 +74,11 @@ ArrayRef and HashRef type handlers.
 {
     my $foo = Foo->unpack(
         {
-            __class__ => 'Foo',
+            __CLASS__ => 'Foo',
             bars      => [ 
                 map {
                   {
-                      __class__ => 'Bar',
+                      __CLASS__ => 'Bar',
                       number    => $_,
                   }  
                 } (1 .. 10)
@@ -101,14 +100,14 @@ ArrayRef and HashRef type handlers.
     );
     isa_ok( $baz, 'Baz' );
     
-    is_deeply(
+    cmp_deeply(
         $baz->pack,
         {
-            __class__ => 'Baz',
+            __CLASS__ => 'Baz',
             bars      => {
                 map {
                   ($_ => {
-                      __class__ => 'Bar',
+                      __CLASS__ => 'Bar',
                       number    => $_,
                   })  
                 } (1 .. 10)
@@ -121,11 +120,11 @@ ArrayRef and HashRef type handlers.
 {
     my $baz = Baz->unpack(
         {
-            __class__ => 'Baz',
+            __CLASS__ => 'Baz',
             bars      => {
                 map {
                   ($_ => {
-                      __class__ => 'Bar',
+                      __CLASS__ => 'Bar',
                       number    => $_,
                   })  
                 } (1 .. 10)