Pear-Trading/Foodloop-Server
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Added fixture installer to main fixtures set

Browse source
This commit is contained in:
Tom Bloor 2017-08-25 17:12:12 +01:00
parent cc046f517b
commit 7ed2636978
1 changed files with 48 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

63
lib/Test/Pear/LocalLoop.pm
View file

@ -5,6 +5,7 @@ use Test::More;
use File::Temp; use File::Temp;
use Test::Mojo; use Test::Mojo;
use DateTime::Format::Strptime; use DateTime::Format::Strptime;
use DBIx::Class::Fixtures;
has config => sub { has config => sub {
my $file = File::Temp->new; my $file = File::Temp->new;
@ -21,30 +22,47 @@ END
return $file; return $file;
}; };
has framework => sub { has mojo => sub {
my $self = shift; my $self = shift;
$ENV{MOJO_CONFIG} = $self->config->filename; $ENV{MOJO_CONFIG} = $self->config->filename;
my $t = Test::Mojo->new('Pear::LocalLoop'); my $t = Test::Mojo->new('Pear::LocalLoop');
my $schema = $t->app->schema; $t->app->schema->deploy;
$schema->deploy;
$schema->resultset('Leaderboard')->populate([
[ qw/ name type / ],
[ 'Daily Total', 'daily_total' ],
[ 'Daily Count', 'daily_count' ],
[ 'Weekly Total', 'weekly_total' ],
[ 'Weekly Count', 'weekly_count' ],
[ 'Monthly Total', 'monthly_total' ],
[ 'Monthly Count', 'monthly_count' ],
[ 'All Time Total', 'all_time_total' ],
[ 'All Time Count', 'all_time_count' ],
]);
return $t; return $t;
}; };
has _deployed => sub { 0 };
sub framework {
my $self = shift;
my $no_populate = shift;
my $t = $self->mojo;
my $schema = $t->app->schema;
unless ( $no_populate || $self->_deployed ) {
$schema->resultset('Leaderboard')->populate([
[ qw/ name type / ],
[ 'Daily Total', 'daily_total' ],
[ 'Daily Count', 'daily_count' ],
[ 'Weekly Total', 'weekly_total' ],
[ 'Weekly Count', 'weekly_count' ],
[ 'Monthly Total', 'monthly_total' ],
[ 'Monthly Count', 'monthly_count' ],
[ 'All Time Total', 'all_time_total' ],
[ 'All Time Count', 'all_time_count' ],
]);
}
$self->_deployed(1);
return $t;
};
has etc_dir => sub { die "etc dir not set" };
sub dump_error { sub dump_error {
return sub { return sub {
my $self = shift; my $self = shift;
@ -106,4 +124,19 @@ sub gen_upload {
}; };
} }
sub install_fixtures {
my ( $self, $fixture_name ) = @_;
my $fixtures = DBIx::Class::Fixtures->new({
config_dir => File::Spec->catdir( $self->etc_dir, 'fixtures', 'config'),
});
my $t = $self->framework(1);
$fixtures->populate({
directory => File::Spec->catdir( $self->etc_dir, 'fixtures', 'data', $fixture_name ),
no_deploy => 1,
schema => $t->app->schema,
});
}
1; 1;