—use
Moose;
sub
install_fixtures {
my
(
$self
,
$sets
,
@rest
) =
@_
;
my
@sets
=
ref
(
$sets
) ?
@$sets
: (
$sets
,
@rest
);
my
$schema
=
$self
->schema_manager
->schema;
DBIx::Class::Migration::Population
->new(
schema
=>
$schema
)
->populate(
@sets
);
}
__PACKAGE__->meta->make_immutable;
=head1 NAME
Test::DBIx::Class::FixtureCommand::Population - Use your fixtures in a test case.
=head1 SYNOPSIS
use Test::Most;
use Test::DBIx::Class
-schema_class=>'MusicBase::Schema',
-fixture_class => '::Population,
qw(Artist);
fixtures_ok ['all_tables'];
fixtures_ok ['more_sets', 'and_even_more_sets'];
## You test cases ##
done_testing;
=head1 DESCRIPTION
Integration between L<DBIx::Class::Migration::Population> and
L<Test::DBIx::Class>. Does the L<Test::DBIx::Class::Role::FixtureCommand>
Role.
Allows you to pass an arrayref of fixture set names to C<fixtures_ok>.
=head1 SEE ALSO
L<DBIx::Class::Migration::Population>, L<Test::DBIx::Class>
=head1 AUTHOR
See L<DBIx::Class::Migration> for author information
=head1 COPYRIGHT & LICENSE
See L<DBIx::Class::Migration> for copyright and license information
=cut