MooseX::Storage - added peek()

[gitmo/MooseX-Storage.git] / t / 040_basic_utils.t

diff --git a/t/040_basic_utils.t b/t/040_basic_utils.t
new file mode 100644 (file)
index 0000000..802e841
--- /dev/null
+++ b/t/040_basic_utils.t
@@ -0,0 +1,74 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 5;
+
+BEGIN {
+    use_ok('MooseX::Storage');
+    use_ok('MooseX::Storage::Util');    
+}
+
+my $packed = {
+    __CLASS__ => 'Foo',
+    number    => 10,
+    string    => 'foo',
+    float     => 10.5,
+    array     => [ 1 .. 10 ],
+    hash      => { map { $_ => undef } ( 1 .. 10 ) },
+    object    => { 
+       __CLASS__ => 'Foo',                
+       number    => 2 
+    },            
+};
+
+my $json = '{"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"}';
+my $yaml = q{--- 
+__CLASS__: Foo
+array: 
+  - 1
+  - 2
+  - 3
+  - 4
+  - 5
+  - 6
+  - 7
+  - 8
+  - 9
+  - 10
+float: 10.5
+hash: 
+  1: ~
+  10: ~
+  2: ~
+  3: ~
+  4: ~
+  5: ~
+  6: ~
+  7: ~
+  8: ~
+  9: ~
+number: 10
+object: 
+  __CLASS__: Foo
+  number: 2
+string: foo
+};
+
+is(
+'Foo', 
+MooseX::Storage::Util->peek($packed), 
+'... got the right class name from the packed item');
+
+is(
+'Foo', 
+MooseX::Storage::Util->peek($json => ('format' => 'JSON')), 
+'... got the right class name from the json item');
+
+is(
+'Foo', 
+MooseX::Storage::Util->peek($yaml => ('format' => 'YAML')), 
+'... got the right class name from the yaml item');
+
+