X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Finflate%2Fserialize.t;h=5b1a437bce2f37871783334bcbe8a8d79e2cf040;hb=d4702d539ce9d9d19868a0709576264c3b72afdd;hp=e9b51df5af47dc69c45eb020f545cd01bb4e986c;hpb=31c3800e8b5f46df64da3c9671a06a0727897f05;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/t/inflate/serialize.t b/t/inflate/serialize.t index e9b51df..5b1a437 100644 --- a/t/inflate/serialize.t +++ b/t/inflate/serialize.t @@ -1,5 +1,5 @@ use strict; -use warnings; +use warnings; use Test::More; use lib qw(t/lib); @@ -7,8 +7,6 @@ use DBICTest; my $schema = DBICTest->init_schema(); -use Data::Dumper; - my @serializers = ( { module => 'YAML.pm', inflater => sub { YAML::Load (shift) }, @@ -37,7 +35,7 @@ DBICTest::Schema::Serialized->inflate_column( 'serialized', deflate => $selected->{deflater}, }, ); -Class::C3->reinitialize; +Class::C3->reinitialize if DBIx::Class::_ENV_::OLD_MRO; my $struct_hash = { a => 1, @@ -61,14 +59,14 @@ my $inflated; #======= testing hashref serialization -my $object = $rs->create( { +my $object = $rs->create( { serialized => '', } ); ok($object->update( { serialized => $struct_hash } ), 'hashref deflation'); ok($inflated = $object->serialized, 'hashref inflation'); is_deeply($inflated, $struct_hash, 'inflated hash matches original'); -$object = $rs->create( { +$object = $rs->create( { serialized => '', } ); $object->set_inflated_column('serialized', $struct_hash);