9 my $schema = DBICTest->init_schema();
13 my $artist = $schema->resultset('Artist')->find(1);
16 my $copy = $schema->dclone($artist);
17 is_deeply($copy, $artist, "dclone row object works");
18 eval { $copy->discard_changes };
19 ok( !$@, "discard_changes okay" );
20 is($copy->id, $artist->id, "IDs still match ");
24 my $ice = $schema->freeze($artist);
25 my $copy = $schema->thaw($ice);
26 is_deeply($copy, $artist, 'dclone row object works');
28 eval { $copy->discard_changes };
29 ok( !$@, "discard_changes okay" );
30 is($copy->id, $artist->id, "IDs still okay");