projects
/
dbsrgits/DBIx-Class.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
7c746f284e49a2d47335039ca4710a79d04d1d58
[dbsrgits/DBIx-Class.git]
/
t
/
run
/
24serialize.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;