reworking tests
[gitmo/MooseX-Storage.git] / t / 001_basic.t
index 2a4026c..e75f51e 100644 (file)
@@ -15,14 +15,14 @@ BEGIN {
     use Moose;
     use MooseX::Storage;
 
-    with Storage();
+    with Storage;
 
     has 'number' => ( is => 'ro', isa => 'Int' );
     has 'string' => ( is => 'ro', isa => 'Str' );
     has 'float'  => ( is => 'ro', isa => 'Num' );
     has 'array'  => ( is => 'ro', isa => 'ArrayRef' );
     has 'hash'   => ( is => 'ro', isa => 'HashRef' );
-    has 'object' => ( is => 'ro', isa => 'Object' );
+    has 'object' => ( is => 'ro', isa => 'Foo' );
 }
 
 {
@@ -39,14 +39,14 @@ BEGIN {
     is_deeply(
         $foo->pack,
         {
-            __class__ => 'Foo',
+            __CLASS__ => 'Foo',
             number    => 10,
             string    => 'foo',
             float     => 10.5,
             array     => [ 1 .. 10 ],
             hash      => { map { $_ => undef } ( 1 .. 10 ) },
             object    => { 
-                            __class__ => 'Foo',                
+                            __CLASS__ => 'Foo',                
                             number    => 2 
                          },            
         },
@@ -57,14 +57,14 @@ BEGIN {
 {
     my $foo = Foo->unpack(
         {
-            __class__ => 'Foo',
+            __CLASS__ => 'Foo',
             number    => 10,
             string    => 'foo',
             float     => 10.5,
             array     => [ 1 .. 10 ],
             hash      => { map { $_ => undef } ( 1 .. 10 ) },
             object    => { 
-                            __class__ => 'Foo',                
+                            __CLASS__ => 'Foo',                
                             number    => 2 
                          },            
         }