153 lines
3.2 KiB
Perl
153 lines
3.2 KiB
Perl
package Test::Pear::LocalLoop;
|
|
use Mojo::Base -base;
|
|
|
|
use Test::More;
|
|
use File::Temp;
|
|
use Test::Mojo;
|
|
use DateTime::Format::Strptime;
|
|
use DBIx::Class::Fixtures;
|
|
|
|
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 mojo => sub {
|
|
my $self = shift;
|
|
|
|
$ENV{MOJO_CONFIG} = $self->config->filename;
|
|
|
|
my $t = Test::Mojo->new('Pear::LocalLoop');
|
|
$t->app->schema->deploy;
|
|
|
|
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 {
|
|
return sub {
|
|
my $self = shift;
|
|
if ( my $error = $self->tx->res->dom->at('pre[id="error"]') ) {
|
|
diag $error->text;
|
|
} else {
|
|
diag $self->tx->res->to_string;
|
|
}
|
|
};
|
|
}
|
|
|
|
sub register_customer {
|
|
my $self = shift;
|
|
my $args = shift;
|
|
|
|
my $json = {
|
|
usertype => 'customer',
|
|
%$args,
|
|
};
|
|
|
|
$self->framework->post_ok('/api/register' => json => $json)
|
|
->status_is(200)->or($self->dump_error)
|
|
->json_is('/success', Mojo::JSON->true)->or($self->dump_error);
|
|
}
|
|
|
|
sub register_organisation {
|
|
my ( $self, $args ) = @_;
|
|
|
|
$args->{usertype} = 'organisation';
|
|
|
|
$self->framework->post_ok('/api/register' => json => $args)
|
|
->status_is(200)->or($self->dump_error)
|
|
->json_is('/success', Mojo::JSON->true)->or($self->dump_error);
|
|
}
|
|
|
|
sub login {
|
|
my $self = shift;
|
|
my $args = shift;
|
|
|
|
$self->framework->post_ok('/api/login' => json => $args)
|
|
->status_is(200)->or($self->dump_error)
|
|
->json_is('/success', Mojo::JSON->true)->or($self->dump_error);
|
|
|
|
return $self->framework->tx->res->json->{session_key};
|
|
}
|
|
|
|
sub logout {
|
|
my $self = shift;
|
|
my $session_key = shift;
|
|
|
|
$self->framework->post_ok('/api/logout' => json => { session_key => $session_key })
|
|
->status_is(200)
|
|
->json_is('/success', Mojo::JSON->true)
|
|
->json_like('/message', qr/Logged Out/);
|
|
}
|
|
|
|
sub gen_upload {
|
|
my ( $self, $args ) = @_;
|
|
|
|
my $file = {
|
|
content => '',
|
|
filename => 'text.jpg',
|
|
'Content-Type' => 'image/jpeg',
|
|
};
|
|
|
|
return {
|
|
json => Mojo::JSON::encode_json($args),
|
|
file => $file,
|
|
};
|
|
}
|
|
|
|
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;
|