fix whitespace to make "dzil authordeps --missing" happy (see dist-zilla issue#196)

[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 de33dff..03ef4af 100644 (file)
--- a/t/003_basic_w_embedded_objects.t
+++ b/t/003_basic_w_embedded_objects.t
@@ -1,53 +1,71 @@
-#!/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');
 }
 
+=pod
+
+This test checks the single level
+expansion and collpasing of the
+ArrayRef and HashRef type handlers.
+
+=cut
+
 {
     package Bar;
     use Moose;
     use MooseX::Storage;
 
     with Storage;
-    
-    has 'baz' => (is => 'ro', isa => 'Int');
-    
+
+    has 'number' => (is => 'ro', isa => 'Int');
+
     package Foo;
     use Moose;
     use MooseX::Storage;
 
-    with Storage;    
+    with Storage;
+
+    has 'bars' => (
+        is  => 'ro',
+        isa => 'ArrayRef'
+    );
+
+    package Baz;
+    use Moose;
+    use MooseX::Storage;
+
+    with Storage;
 
-    has 'bars' => ( 
-        is  => 'ro', 
-        isa => 'ArrayRef' 
+    has 'bars' => (
+        is  => 'ro',
+        isa => 'HashRef'
     );
 }
 
 {
     my $foo = Foo->new(
-        bars => [ map { Bar->new(baz => $_) } (1 .. 10) ]
+        bars => [ map { Bar->new(number => $_) } (1 .. 10) ]
     );
     isa_ok( $foo, 'Foo' );
-    
-    is_deeply(
+
+    cmp_deeply(
         $foo->pack,
         {
-            __class__ => 'Foo',
-            bars      => [ 
+            __CLASS__ => 'Foo',
+            bars      => [
                 map {
                   {
-                      __class__ => 'Bar',
-                      baz       => $_,
-                  }  
+                      __CLASS__ => 'Bar',
+                      number    => $_,
+                  }
                 } (1 .. 10)
-            ],           
+            ],
         },
         '... got the right frozen class'
     );
@@ -56,21 +74,67 @@ BEGIN {
 {
     my $foo = Foo->unpack(
         {
-            __class__ => 'Foo',
-            bars      => [ 
+            __CLASS__ => 'Foo',
+            bars      => [
                 map {
                   {
-                      __class__ => 'Bar',
-                      baz       => $_,
-                  }  
+                      __CLASS__ => 'Bar',
+                      number    => $_,
+                  }
                 } (1 .. 10)
-            ],           
-        }      
+            ],
+        }
     );
     isa_ok( $foo, 'Foo' );
 
     foreach my $i (1 .. scalar @{$foo->bars}) {
         isa_ok($foo->bars->[$i - 1], 'Bar');
-        is($foo->bars->[$i - 1]->baz, $i, "... got the right baz ($i) in the Bar in Foo");
+        is($foo->bars->[$i - 1]->number, $i, "... got the right number ($i) in the Bar in Foo");
+    }
+}
+
+
+{
+    my $baz = Baz->new(
+        bars => { map { ($_ => Bar->new(number => $_)) } (1 .. 10) }
+    );
+    isa_ok( $baz, 'Baz' );
+
+    cmp_deeply(
+        $baz->pack,
+        {
+            __CLASS__ => 'Baz',
+            bars      => {
+                map {
+                  ($_ => {
+                      __CLASS__ => 'Bar',
+                      number    => $_,
+                  })
+                } (1 .. 10)
+            },
+        },
+        '... got the right frozen class'
+    );
+}
+
+{
+    my $baz = Baz->unpack(
+        {
+            __CLASS__ => 'Baz',
+            bars      => {
+                map {
+                  ($_ => {
+                      __CLASS__ => 'Bar',
+                      number    => $_,
+                  })
+                } (1 .. 10)
+            },
+        }
+    );
+    isa_ok( $baz, 'Baz' );
+
+    foreach my $k (keys %{$baz->bars}) {
+        isa_ok($baz->bars->{$k}, 'Bar');
+        is($baz->bars->{$k}->number, $k, "... got the right number ($k) in the Bar in Baz");
     }
 }