importing MooseX-Storage alpha cut (take 2)

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

diff --git a/t/001_basic.t b/t/001_basic.t
new file mode 100644 (file)
index 0000000..548dacc
--- /dev/null
+++ b/t/001_basic.t
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More no_plan => 1;
+
+{
+    package Foo;
+    use Moose;
+    use MooseX::Storage;
+    
+    with Storage('JSON');
+    
+    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 'object' => (is => 'ro', isa => 'Object');    
+}
+
+my $foo = Foo->new(
+    number => 10,
+    string => 'foo',
+    float  => 10.5,
+    array => [ 1 .. 10 ],
+       object => Foo->new( number => 2 ),
+);
+
+diag $foo->freeze;
+