8 my $schema = DBICTest->init_schema();
10 my $cd = $schema->resultset("CD")->find(2);
12 ok keys %{$cd->{_relationship_data}}, "_relationship_data populated";
15 ok $cd->liner_notes, 'relationships still valid after discarding changes';
17 ok $cd->liner_notes->delete;
19 ok !$cd->liner_notes, 'discard_changes resets relationship';