42 lines
627 B
Perl
42 lines
627 B
Perl
|
package Test::Pear::LocalLoop;
|
||
|
|
use Mojo::Base -base;
|
||
|
|
|
||
|
|
use File::Temp;
|
||
|
|
use Test::Mojo;
|
||
|
|
|
||
|
|
has config => sub {
|
||
|
|
my $file = File::Temp->new;
|
||
|
|
|
||
|
|
print $file <<'END';
|
||
|
|
{
|
||
|
|
dsn => "dbi:SQLite::memory:",
|
||
|
|
user => undef,
|
||
|
|
pass => undef,
|
||
|
|
}
|
||
|
|
END
|
||
|
|
|
||
|
|
$file->seek( 0, SEEK_END );
|
||
|
|
return $file;
|
||
|
|
};
|
||
|
|
|
||
|
|
has framework => sub {
|
||
|
|
my $self = shift;
|
||
|
|
|
||
|
|
$ENV{MOJO_CONFIG} = $self->config->filename;
|
||
|
|
|
||
|
|
my $t = Test::Mojo->new('Pear::LocalLoop');
|
||
|
|
my $schema = $t->app->schema;
|
||
|
|
$schema->deploy;
|
||
|
|
|
||
|
|
$schema->resultset('AgeRange')->populate([
|
||
|
|
[ qw/ agerangestring / ],
|
||
|
|
[ '20-35' ],
|
||
|
|
[ '35-50' ],
|
||
|
|
[ '50+' ],
|
||
|
|
]);
|
||
|
|
|
||
|
|
return $t;
|
||
|
|
};
|
||
|
|
|
||
|
|
1;
|