t/68inflate_serialize.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use lib qw(t/lib);
   6 use DBICTest;
   7
   8 my $schema = DBICTest->init_schema();
   9
  10 use Data::Dumper;
  11
  12 my @serializers = (
  13     {   module => 'YAML.pm',
  14         inflater => sub { YAML::Load (shift) },
  15         deflater => sub { die "Expecting a reference" unless (ref $_[0]); YAML::Dump (shift) },
  16     },
  17     {   module => 'Storable.pm',
  18         inflater => sub { Storable::thaw (shift) },
  19         deflater => sub { die "Expecting a reference" unless (ref $_[0]); Storable::nfreeze (shift) },
  20     },
  21 );
  22
  23
  24 my $selected;
  25 foreach my $serializer (@serializers) {
  26     eval { require $serializer->{module} };
  27     unless ($@) {
  28         $selected = $serializer;
  29         last;
  30     }
  31 }
  32
  33 plan (skip_all => "No suitable serializer found") unless $selected;
  34
  35 plan (tests => 8);
  36 DBICTest::Schema::Serialized->inflate_column( 'serialized',
  37     { inflate => $selected->{inflater},
  38       deflate => $selected->{deflater},
  39     },
  40 );
  41 Class::C3->reinitialize;
  42
  43 my $complex1 = {
  44     id => 1,
  45     serialized => {
  46         a => 1,
  47         b => [
  48             { c => 2 },
  49         ],
  50         d => 3,
  51     },
  52 };
  53
  54 my $complex2 = {
  55     id => 1,
  56     serialized => [
  57                 'a',
  58                 { b => 1, c => 2},
  59                 'd',
  60             ],
  61 };
  62
  63 my $rs = $schema->resultset('Serialized');
  64 my $entry = $rs->create({ id => 1, serialized => ''});
  65
  66 my $inflated;
  67
  68 ok($entry->update ({ %{$complex1} }), 'hashref deflation ok');
  69 ok($inflated = $entry->serialized, 'hashref inflation ok');
  70 is_deeply($inflated, $complex1->{serialized}, 'inflated hash matches original');
  71
  72 my $entry2 = $rs->create({ id => 2, serialized => ''});
  73
  74 eval { $entry2->set_inflated_column('serialized', $complex1->{serialized}) };
  75 ok(!$@, 'set_inflated_column to a hashref');
  76 $entry2->update;
  77 is_deeply($entry2->serialized, $complex1->{serialized}, 'inflated hash matches original');
  78
  79 ok($entry->update ({ %{$complex2} }), 'arrayref deflation ok');
  80 ok($inflated = $entry->serialized, 'arrayref inflation ok');
  81 is_deeply($inflated, $complex2->{serialized}, 'inflated array matches original');
  82