X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F008_do_not_serialize.t;h=200e90b6f7e326ef02c148d70b85db79e864bde0;hb=9d3c60f5f35a8d28951049e8daccd9f67c22f9aa;hp=4e2e896bc14ae535339fa7c7297b7571c5aa199e;hpb=766ab81f59db9f3087e0011112ff2e69133a85c5;p=gitmo%2FMooseX-Storage.git

diff --git a/t/008_do_not_serialize.t b/t/008_do_not_serialize.t
index 4e2e896..200e90b 100644
--- a/t/008_do_not_serialize.t
+++ b/t/008_do_not_serialize.t
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use Test::More tests => 13;
-use Test::Exception;
+use Test::Fatal;
 
 BEGIN {
     use_ok('MooseX::Storage');
@@ -20,30 +20,30 @@ BEGIN {
     has 'bar' => (
         metaclass => 'DoNotSerialize',
         is        => 'rw',
-        default   => sub { 'BAR' }
+        default   => sub { 'BAR' }        
     );
-
+    
     has 'baz' => (
         traits  => [ 'DoNotSerialize' ],
         is      => 'rw',
-        default => sub { 'BAZ' }
-    );
-
+        default => sub { 'BAZ' }        
+    );    
+    
     has 'gorch' => (
-        is      => 'rw',
+        is      => 'rw', 
         default => sub { 'GORCH' }
-    );
+    );    
 
     1;
 }
 
 {   my $foo = Foo->new;
     isa_ok($foo, 'Foo');
-
+    
     is($foo->bar, 'BAR', '... got the value we expected');
     is($foo->baz, 'BAZ', '... got the value we expected');
     is($foo->gorch, 'GORCH', '... got the value we expected');
-
+    
     is_deeply(
         $foo->pack,
         {
@@ -67,36 +67,36 @@ BEGIN {
         is          => 'rw',
         isa         => 'Object',        # type constraint is important
     );
-
+    
     has zot => (
         default     => sub { $$ },
         is          => 'rw',
-    );
+    );        
 }
 
 {   my $obj = bless {};
     my $bar = Bar->new( foo => $obj );
-
+    
     ok( $bar,                   "New object created" );
     is( $bar->foo, $obj,        "   ->foo => $obj" );
     is( $bar->zot, $$,          "   ->zot => $$" );
-
+    
     my $bpack = $bar->pack;
     is_deeply(
         $bpack,
         {   __CLASS__   => 'Bar',
             zot         => $$,
         },                      "   Packed correctly" );
-
+        
     eval { Bar->unpack( $bpack ) };
     ok( $@,                     "   Unpack without required attribute fails" );
     like( $@, qr/foo/,          "       Proper error recorded" );
-
+        
     my $bar2 = Bar->unpack( $bpack, inject => { foo => bless {} } );
-    ok( $bar2,                  "   Unpacked correctly with foo => Object");
-}
-
-
-
-
+    ok( $bar2,                  "   Unpacked correctly with foo => Object"); 
+}        
+            
+        
+        
+