my $cd = $schema->resultset("CD")->find(2);
ok $cd->liner_notes;
-ok keys %{$cd->{_relationship_data}}, "_relationship_data populated";
+
+ok scalar(keys %{$cd->{_relationship_data}}), "_relationship_data populated";
$cd->discard_changes;
ok $cd->liner_notes, 'relationships still valid after discarding changes';