moving things around

[gitmo/MooseX-Storage.git] / t / 001_basic.t

diff --git a/t/001_basic.t b/t/001_basic.t
index 6ffbeac..3d78e23 100644 (file)
--- a/t/001_basic.t
+++ b/t/001_basic.t
@@ -20,28 +20,64 @@ use Test::More no_plan => 1;
        has 'object' => (is => 'ro', isa => 'Object');    
 }
 
-my $foo = Foo->new(
-    number => 10,
-    string => 'foo',
-    float  => 10.5,
-    array  => [ 1 .. 10 ],
-    hash   => { map { $_ => undef } (1 .. 10) },
-       object => Foo->new( number => 2 ),
-);
-
-is($foo->freeze, 
-'{"array":[1,2,3,4,5,6,7,8,9,10],"hash":{"6":null,"3":null,"7":null,"9":null,"2":null,"8":null,"1":null,"4":null,"10":null,"5":null},"float":10.5,"object":{"number":2,"__class__":"Foo"},"number":10,"__class__":"Foo","string":"foo"}',
-'... got the right JSON');
-
-my $foo2 = Foo->thaw('{"array":[1,2,3,4,5,6,7,8,9,10],"hash":{"6":null,"3":null,"7":null,"9":null,"2":null,"8":null,"1":null,"4":null,"10":null,"5":null},"float":10.5,"object":{"number":2,"__class__":"Foo"},"number":10,"__class__":"Foo","string":"foo"}');
-isa_ok($foo2, 'Foo');
-
-is($foo2->number, 10, '... got the right number');
-is($foo2->string, 'foo', '... got the right string');
-is($foo2->float, 10.5, '... got the right float');
-is_deeply($foo2->array, [ 1 .. 10], '... got the right array');
-is_deeply($foo2->hash, { map { $_ => undef } (1 .. 10) }, '... got the right hash');
-
-isa_ok($foo2->object, 'Foo');
-is($foo2->object->number, 2, '... got the right number (in the embedded object)');
+{
+    my $foo = Foo->new(
+        number => 10,
+        string => 'foo',
+        float  => 10.5,
+        array  => [ 1 .. 10 ],
+        hash   => { map { $_ => undef } (1 .. 10) },
+       object => Foo->new( number => 2 ),
+    );
+    isa_ok($foo, 'Foo');
+
+    is($foo->freeze, 
+    '{"array":[1,2,3,4,5,6,7,8,9,10],"hash":{"6":null,"3":null,"7":null,"9":null,"2":null,"8":null,"1":null,"4":null,"10":null,"5":null},"float":10.5,"object":{"number":2,"__class__":"Foo"},"number":10,"__class__":"Foo","string":"foo"}',
+    '... got the right JSON');
+}
+
+{
+    my $foo = Foo->thaw('{"array":[1,2,3,4,5,6,7,8,9,10],"hash":{"6":null,"3":null,"7":null,"9":null,"2":null,"8":null,"1":null,"4":null,"10":null,"5":null},"float":10.5,"object":{"number":2,"__class__":"Foo"},"number":10,"__class__":"Foo","string":"foo"}');
+    isa_ok($foo, 'Foo');
+
+    is($foo->number, 10, '... got the right number');
+    is($foo->string, 'foo', '... got the right string');
+    is($foo->float, 10.5, '... got the right float');
+    is_deeply($foo->array, [ 1 .. 10], '... got the right array');
+    is_deeply($foo->hash, { map { $_ => undef } (1 .. 10) }, '... got the right hash');
+
+    isa_ok($foo->object, 'Foo');
+    is($foo->object->number, 2, '... got the right number (in the embedded object)');
+}
+
+my $file = 'temp.json';
+
+{
+    my $foo = Foo->new(
+        number => 10,
+        string => 'foo',
+        float  => 10.5,
+        array  => [ 1 .. 10 ],
+        hash   => { map { $_ => undef } (1 .. 10) },
+       object => Foo->new( number => 2 ),
+    );
+    isa_ok($foo, 'Foo');
+
+    $foo->store($file);
+}
+
+{
+    my $foo = Foo->load($file);
+    isa_ok($foo, 'Foo');
+
+    is($foo->number, 10, '... got the right number');
+    is($foo->string, 'foo', '... got the right string');
+    is($foo->float, 10.5, '... got the right float');
+    is_deeply($foo->array, [ 1 .. 10], '... got the right array');
+    is_deeply($foo->hash, { map { $_ => undef } (1 .. 10) }, '... got the right hash');
+
+    isa_ok($foo->object, 'Foo');
+    is($foo->object->number, 2, '... got the right number (in the embedded object)');
+}
 
+unlink $file;