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

Fix admin login test and required changes for entity upgrade

Browse source
This commit is contained in:
Tom Bloor 2017-08-31 13:35:49 +01:00
parent 6cd3113912
commit 18992784b2
4 changed files with 32 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/Pear/LocalLoop/Controller/Admin.pm
View file

@ -5,10 +5,10 @@ sub under {
my $c = shift; my $c = shift;
if ( $c->is_user_authenticated ) { if ( $c->is_user_authenticated ) {
return 1 if defined $c->current_user->administrator; return 1 if $c->current_user->is_admin;
} }
$c->redirect_to('/'); $c->redirect_to('/');
return undef; return 0;
} }
sub home { sub home {
@ -16,8 +16,8 @@ sub home {
my $user_rs = $c->schema->resultset('User'); my $user_rs = $c->schema->resultset('User');
my $token_rs = $c->schema->resultset('AccountToken'); my $token_rs = $c->schema->resultset('AccountToken');
my $pending_orgs_rs = $c->schema->resultset('PendingOrganisation'); my $pending_orgs_rs = $c->schema->resultset('Organisation')->search({ pending => 1 });
my $pending_transaction_rs = $c->schema->resultset('PendingTransaction'); my $pending_transaction_rs = $pending_orgs_rs->entity->sales;
$c->stash( $c->stash(
user_count => $user_rs->count, user_count => $user_rs->count,
tokens => { tokens => {

10
lib/Pear/LocalLoop/Schema/ResultSet/Entity.pm Normal file
View file

@ -0,0 +1,10 @@
package Pear::LocalLoop::Schema::ResultSet::Entity;
use strict;
use warnings;
use base 'DBIx::Class::ResultSet';
sub sales { shift->search_related('sales', @_) }
1;

10
lib/Pear/LocalLoop/Schema/ResultSet/Organisation.pm Normal file
View file

@ -0,0 +1,10 @@
package Pear::LocalLoop::Schema::ResultSet::Organisation;
use strict;
use warnings;
use base 'DBIx::Class::ResultSet';
sub entity { shift->search_related('entity', @_) }
1;

25
t/admin/login.t
View file

@ -1,27 +1,18 @@
use Mojo::Base -strict; use Mojo::Base -strict;
use FindBin qw/ $Bin /;
use Test::More; use Test::More;
use Mojo::JSON;
use Test::Pear::LocalLoop; use Test::Pear::LocalLoop;
my $framework = Test::Pear::LocalLoop->new; my $framework = Test::Pear::LocalLoop->new(
etc_dir => "$Bin/../etc",
);
$framework->install_fixtures('users');
my $t = $framework->framework; my $t = $framework->framework;
my $schema = $t->app->schema; my $schema = $t->app->schema;
$schema->resultset('User')->create({
email => 'admin@example.com',
password => 'abc123',
administrator => {},
});
$schema->resultset('User')->create({
email => 'user@example.com',
password => 'abc123',
});
is $schema->resultset('User')->count, 2, 'Users Created';
is $schema->resultset('Administrator')->count, 1, 'Admin Created';
my $location_is = sub { my $location_is = sub {
my ($t, $value, $desc) = @_; my ($t, $value, $desc) = @_;
$desc ||= "Location: $value"; $desc ||= "Location: $value";
@ -34,7 +25,7 @@ $t->get_ok('/admin')
$t->ua->max_redirects(10); $t->ua->max_redirects(10);
$t->post_ok('/admin', form => { $t->post_ok('/admin', form => {
email => 'user@example.com', email => 'test1@example.com',
password => 'abc123', password => 'abc123',
})->status_is(200); })->status_is(200);