Commit | Line | Data |
70350518 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | use lib qw(t/lib); |
6 | use DBICTest; |
7 | |
a47e1233 |
8 | my $schema = DBICTest->init_schema(); |
e9100ff7 |
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 => 6); |
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 | ok($entry->update ({ %{$complex2} }), 'arrayref deflation ok'); |
73 | ok($inflated = $entry->serialized, 'arrayref inflation ok'); |
74 | is_deeply($inflated, $complex2->{serialized}, 'inflated array matches original'); |
75 | |