#!/usr/bin/env perl
use Test::Most;
use DBIx::Class::Migration::Population;
use Test::DBIx::Class
-schema_class=>'MusicBase::Schema',
qw(Artist Country);
plan skip_all => 'not correct schema version'
if Schema->schema_version != 3;
(my $population = DBIx::Class::Migration::Population->new(
schema=>Schema()))->populate('all_tables');
is Country->count, 6,
'Correct Number of Tests';
ok my $artist = Artist->first,
'Got one artist';
is $artist->has_country->code, 'can',
'Oh Canada!';
is scalar($artist->artist_cds), 2,
'has two cd';
done_testing;