[dbsrgits/DBIx-Class-Historic.git] / t / 84serialize.t

use strict;
use warnings;  

use Test::More;
use lib qw(t/lib);
use DBICTest;
use Storable;

my $schema = DBICTest->init_schema();

plan tests => 1;

my $artist = $schema->resultset('Artist')->find(1);
my $copy = eval { Storable::dclone($artist) };
is_deeply($copy, $artist, 'serialize row object works');
Commit	Line	Data
70350518	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5	use lib qw(t/lib);
	6	use DBICTest;
69ac22ee	7	use Storable;
69ac22ee	8
a47e1233	9	my $schema = DBICTest->init_schema();
69ac22ee	10
	11	plan tests => 1;
	12
	13	my $artist = $schema->resultset('Artist')->find(1);
	14	my $copy = eval { Storable::dclone($artist) };
	15	is_deeply($copy, $artist, 'serialize row object works');
	16