X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F68inflate_serialize.t;fp=t%2F68inflate_serialize.t;h=b51f9613a595e59fde3ba7698458890695a0fd40;hb=d6915f449e2d68ac184d6bc616043fd605913757;hp=0000000000000000000000000000000000000000;hpb=70350518bbb31e5ac22fb3cb73d3e17409fcd332;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/68inflate_serialize.t b/t/68inflate_serialize.t
new file mode 100644
index 0000000..b51f961
--- /dev/null
+++ b/t/68inflate_serialize.t
@@ -0,0 +1,75 @@
+use strict;
+use warnings;  
+
+use Test::More;
+use lib qw(t/lib);
+use DBICTest;
+
+my $schema = DBICTest::init_schema();
+
+use Data::Dumper;
+
+my @serializers = (
+    {	module => 'YAML.pm',
+	inflater => sub { YAML::Load (shift) },
+	deflater => sub { die "Expecting a reference" unless (ref $_[0]); YAML::Dump (shift) },
+    },
+    {	module => 'Storable.pm',
+	inflater => sub { Storable::thaw (shift) },
+	deflater => sub { die "Expecting a reference" unless (ref $_[0]); Storable::nfreeze (shift) },
+    },
+);
+
+
+my $selected;
+foreach my $serializer (@serializers) {
+    eval { require $serializer->{module} };
+    unless ($@) {
+	$selected = $serializer;
+	last;
+    }
+}
+
+plan (skip_all => "No suitable serializer found") unless $selected;
+
+plan (tests => 6);
+DBICTest::Schema::Serialized->inflate_column( 'serialized',
+    { inflate => $selected->{inflater},
+      deflate => $selected->{deflater},
+    },
+);
+Class::C3->reinitialize;
+
+my $complex1 = {
+    id => 1,
+    serialized => {
+        a => 1,
+	b => [ 
+	    { c => 2 },
+	],
+        d => 3,
+    },
+};
+
+my $complex2 = {
+    id => 1,
+    serialized => [
+		'a', 
+		{ b => 1, c => 2},
+		'd',
+	    ],
+};
+
+my $rs = $schema->resultset('Serialized');
+my $entry = $rs->create({ id => 1, serialized => ''});
+
+my $inflated;
+
+ok($entry->update ({ %{$complex1} }), 'hashref deflation ok');
+ok($inflated = $entry->serialized, 'hashref inflation ok');
+is_deeply($inflated, $complex1->{serialized}, 'inflated hash matches original');
+
+ok($entry->update ({ %{$complex2} }), 'arrayref deflation ok');
+ok($inflated = $entry->serialized, 'arrayref inflation ok');
+is_deeply($inflated, $complex2->{serialized}, 'inflated array matches original');
+