t/run/21serialize.tl

   1 use Storable;
   2
   3 sub run_tests {
   4 my $schema = shift;
   5
   6 plan tests => 1;
   7
   8 my $artist = $schema->resultset('Artist')->find(1);
   9 my $copy = eval { Storable::dclone($artist) };
  10 is_deeply($copy, $artist, 'serialize row object works');
  11
  12 }
  13
  14 1;