adding new tests

[gitmo/MooseX-Storage.git] / t / 006_w_custom_type_handlers.t

diff --git a/t/006_w_custom_type_handlers.t b/t/006_w_custom_type_handlers.t
new file mode 100644 (file)
index 0000000..d4f19b8
--- /dev/null
+++ b/t/006_w_custom_type_handlers.t
@@ -0,0 +1,94 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 9;
+use Test::Exception;
+
+BEGIN {
+    use_ok('MooseX::Storage');
+    use_ok('MooseX::Storage::Engine');    
+}
+
+=pod
+
+This is just a simple example of defining 
+a custom type handler to take care of custom
+inflate and deflate needs. 
+
+=cut
+
+{
+    package Bar;
+    use Moose;
+    
+    has 'baz' => (is => 'rw', isa => 'Str');
+    has 'boo' => (is => 'rw', isa => 'Str');    
+    
+    sub encode {
+        my $self = shift;
+        $self->baz . '|' . $self->boo;
+    }
+    
+    sub decode {
+        my ($class, $packed) = @_;
+        my ($baz, $boo) = split /\|/ => $packed;
+        $class->new(
+            baz => $baz,
+            boo => $boo,
+        );
+    }
+    
+    MooseX::Storage::Engine->add_custom_type_handler(
+        'Bar' => (
+            expand   => sub { Bar->decode(shift) },
+            collapse => sub { (shift)->encode    },
+        )
+    );
+    
+    package Foo;
+    use Moose;
+    use MooseX::Storage;
+    
+    with Storage;
+    
+    has 'bar' => (
+        is      => 'ro',
+        isa     => 'Bar',
+        default => sub {
+            Bar->new(baz => 'BAZ', boo => 'BOO')
+        }
+    );
+}
+
+my $foo = Foo->new;
+isa_ok($foo, 'Foo');
+
+isa_ok($foo->bar, 'Bar');
+
+is_deeply(
+$foo->pack,
+{
+    __CLASS__ => "Foo",
+    bar       => "BAZ|BOO",
+},
+'... got correct packed structure');
+
+{
+    my $foo = Foo->unpack({
+        __CLASS__ => "Foo",
+        bar       => "BAZ|BOO",
+    });
+    isa_ok($foo, 'Foo');
+    
+    isa_ok($foo->bar, 'Bar'); 
+    
+    is($foo->bar->baz, 'BAZ', '... got the right stuff');
+    is($foo->bar->boo, 'BOO', '... got the right stuff');
+}
+
+
+
+
+