The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl

use Test::Most;
use Test::DBIx::Class
  -schema_class=>'MusicBase::Schema',
  -fixture_class => '::Population',
  qw(Artist);

fixtures_ok ['all_tables'];

ok my $more_than_one_rs =  Artist->has_more_than_one_cds,
 'Got some artists';

is $more_than_one_rs->count, 1,
  'Got expected number of artists with more than one CD';

done_testing;