use strict;
use Test::More;
+use Test::Deep;
use lib qw(t/lib);
use DBICTest;
my $cd = $schema->resultset('CD')->search( {}, { prefetch => 'artist' })->next;
-is_deeply
+cmp_deeply
{ $cd->get_columns },
{
artist => 0,
'Expected CD columns present',
;
-is_deeply
+cmp_deeply
{ $cd->artist->get_columns },
{
artistid => 0,