271 lines
7 KiB
Perl
271 lines
7 KiB
Perl
use Mojo::Base -strict;
|
|
|
|
use Test::More;
|
|
use Mojo::JSON;
|
|
use Test::Pear::LocalLoop;
|
|
use DateTime;
|
|
|
|
my $framework = Test::Pear::LocalLoop->new;
|
|
my $t = $framework->framework;
|
|
my $schema = $t->app->schema;
|
|
my $dtf = $schema->storage->datetime_parser;
|
|
|
|
my $user1 = {
|
|
token => 'a',
|
|
full_name => 'Test User1',
|
|
display_name => 'Test User1',
|
|
email => 'test1@example.com',
|
|
postcode => 'LA1 1AA',
|
|
password => 'abc123',
|
|
year_of_birth => 2006,
|
|
};
|
|
|
|
my $user2 = {
|
|
token => 'b',
|
|
full_name => 'Test User2',
|
|
display_name => 'Test User2',
|
|
email => 'test2@example.com',
|
|
postcode => 'LA1 1AA',
|
|
password => 'abc123',
|
|
year_of_birth => 2006,
|
|
};
|
|
|
|
my $user3 = {
|
|
token => 'c',
|
|
full_name => 'Test User3',
|
|
display_name => 'Test User3',
|
|
email => 'test3@example.com',
|
|
postcode => 'LA1 1AA',
|
|
password => 'abc123',
|
|
year_of_birth => 2006,
|
|
};
|
|
|
|
my $user4 = {
|
|
token => 'd',
|
|
full_name => 'Test User4',
|
|
display_name => 'Test User4',
|
|
email => 'test4@example.com',
|
|
postcode => 'LA1 1AA',
|
|
password => 'abc123',
|
|
year_of_birth => 2006,
|
|
};
|
|
|
|
my $org = {
|
|
token => 'e',
|
|
email => 'test5@example.com',
|
|
name => 'Test Org',
|
|
street_name => 'Test Street',
|
|
town => 'Lancaster',
|
|
postcode => 'LA1 1AA',
|
|
password => 'abc123',
|
|
sector => 'A',
|
|
};
|
|
|
|
$schema->resultset('AccountToken')->create({ name => $_->{token} })
|
|
for ( $user1, $user2, $user3, $user4, $org );
|
|
|
|
$framework->register_customer($_)
|
|
for ( $user1, $user2, $user3, $user4 );
|
|
|
|
$framework->register_organisation($org);
|
|
|
|
my $org_result = $schema->resultset('Organisation')->find({ name => $org->{name} })->entity;
|
|
|
|
my $tweak = 0;
|
|
|
|
my $now = DateTime->today();
|
|
|
|
for my $user ( $user1, $user2, $user3, $user4 ) {
|
|
$tweak ++;
|
|
my $user_result = $schema->resultset('User')->find({ email => $user->{email} })->entity;
|
|
for ( 1 .. 10 ) {
|
|
$user_result->create_related( 'purchases', {
|
|
seller_id => $org_result->id,
|
|
value => $_ + $tweak,
|
|
proof_image => 'a',
|
|
});
|
|
}
|
|
|
|
for ( 11 .. 20 ) {
|
|
$user_result->create_related( 'purchases', {
|
|
seller_id => $org_result->id,
|
|
value => $_ + $tweak,
|
|
proof_image => 'a',
|
|
purchase_time => $dtf->format_datetime($now->clone->subtract( days => 5 )),
|
|
});
|
|
}
|
|
|
|
for ( 21 .. 30 ) {
|
|
$user_result->create_related( 'purchases', {
|
|
seller_id => $org_result->id,
|
|
value => $_ + $tweak,
|
|
proof_image => 'a',
|
|
purchase_time => $dtf->format_datetime($now->clone->subtract( days => 25 )),
|
|
});
|
|
}
|
|
|
|
for ( 31 .. 40 ) {
|
|
$user_result->create_related( 'purchases', {
|
|
seller_id => $org_result->id,
|
|
value => $_ + $tweak,
|
|
proof_image => 'a',
|
|
purchase_time => $dtf->format_datetime($now->clone->subtract( days => 50 )),
|
|
});
|
|
}
|
|
|
|
is $user_result->purchases->count, 40, 'correct count for user' . $tweak;
|
|
}
|
|
|
|
sub test_leaderboard {
|
|
my ( $title, $name, $date, $expected ) = @_;
|
|
|
|
subtest $title => sub {
|
|
my $leaderboard_rs = $schema->resultset('Leaderboard');
|
|
|
|
$leaderboard_rs->create_new( $name, $date );
|
|
|
|
my $today_board = $leaderboard_rs->get_latest( $name );
|
|
|
|
is $today_board->values->count, 4, 'correct value count';
|
|
|
|
my $today_values = $today_board->values->search(
|
|
{},
|
|
{
|
|
order_by => { -desc => 'value' },
|
|
columns => [ qw/ entity_id value position / ],
|
|
},
|
|
);
|
|
$today_values->result_class( 'DBIx::Class::ResultClass::HashRefInflator' );
|
|
|
|
is_deeply [ $today_values->all ], $expected, 'array as expected';
|
|
};
|
|
}
|
|
|
|
test_leaderboard(
|
|
'Daily Total',
|
|
'daily_total',
|
|
$now,
|
|
[
|
|
{ entity_id => 4, value => 95, position => 1 },
|
|
{ entity_id => 3, value => 85, position => 2 },
|
|
{ entity_id => 2, value => 75, position => 3 },
|
|
{ entity_id => 1, value => 65, position => 4 },
|
|
]
|
|
);
|
|
|
|
test_leaderboard(
|
|
'Daily Count',
|
|
'daily_count',
|
|
$now,
|
|
[
|
|
{ entity_id => 1, value => 10, position => 1 },
|
|
{ entity_id => 2, value => 10, position => 2 },
|
|
{ entity_id => 3, value => 10, position => 3 },
|
|
{ entity_id => 4, value => 10, position => 4 },
|
|
]
|
|
);
|
|
|
|
test_leaderboard(
|
|
'Weekly Total',
|
|
'weekly_total',
|
|
$now->clone->subtract( days => 7 ),
|
|
[
|
|
{ entity_id => 4, value => 195, position => 1 },
|
|
{ entity_id => 3, value => 185, position => 2 },
|
|
{ entity_id => 2, value => 175, position => 3 },
|
|
{ entity_id => 1, value => 165, position => 4 },
|
|
]
|
|
);
|
|
|
|
test_leaderboard(
|
|
'Weekly Count',
|
|
'weekly_count',
|
|
$now->clone->subtract( days => 7 ),
|
|
[
|
|
{ entity_id => 1, value => 10, position => 1 },
|
|
{ entity_id => 2, value => 10, position => 2 },
|
|
{ entity_id => 3, value => 10, position => 3 },
|
|
{ entity_id => 4, value => 10, position => 4 },
|
|
]
|
|
);
|
|
|
|
test_leaderboard(
|
|
'Monthly Total',
|
|
'monthly_total',
|
|
$now->clone->subtract( months => 1 ),
|
|
[
|
|
{ entity_id => 4, value => 490, position => 1 },
|
|
{ entity_id => 3, value => 470, position => 2 },
|
|
{ entity_id => 2, value => 450, position => 3 },
|
|
{ entity_id => 1, value => 430, position => 4 },
|
|
]
|
|
);
|
|
|
|
test_leaderboard(
|
|
'Monthly Count',
|
|
'monthly_count',
|
|
$now->clone->subtract( months => 1 ),
|
|
[
|
|
{ entity_id => 1, value => 20, position => 1 },
|
|
{ entity_id => 2, value => 20, position => 2 },
|
|
{ entity_id => 3, value => 20, position => 3 },
|
|
{ entity_id => 4, value => 20, position => 4 },
|
|
]
|
|
);
|
|
|
|
test_leaderboard(
|
|
'All Time Total',
|
|
'all_time_total',
|
|
$now,
|
|
[
|
|
{ entity_id => 4, value => 885, position => 1 },
|
|
{ entity_id => 3, value => 855, position => 2 },
|
|
{ entity_id => 2, value => 825, position => 3 },
|
|
{ entity_id => 1, value => 795, position => 4 },
|
|
]
|
|
);
|
|
|
|
test_leaderboard(
|
|
'All Time Count',
|
|
'all_time_count',
|
|
$now,
|
|
[
|
|
{ entity_id => 1, value => 30, position => 1 },
|
|
{ entity_id => 2, value => 30, position => 2 },
|
|
{ entity_id => 3, value => 30, position => 3 },
|
|
{ entity_id => 4, value => 30, position => 4 },
|
|
]
|
|
);
|
|
|
|
subtest 'get_latest' => sub {
|
|
my $leaderboard_rs = $schema->resultset('Leaderboard');
|
|
$leaderboard_rs->create_new( 'daily_total', $now->clone->subtract(days => 5));
|
|
$leaderboard_rs->create_new( 'daily_total', $now->clone->subtract(days => 25));
|
|
$leaderboard_rs->create_new( 'daily_total', $now->clone->subtract(days => 50));
|
|
|
|
my $today_board = $leaderboard_rs->get_latest( 'daily_total' );
|
|
|
|
is $today_board->values->count, 4, 'correct value count';
|
|
|
|
my $today_values = $today_board->values->search(
|
|
{},
|
|
{
|
|
order_by => { -desc => 'value' },
|
|
columns => [ qw/ entity_id value position / ],
|
|
},
|
|
);
|
|
$today_values->result_class( 'DBIx::Class::ResultClass::HashRefInflator' );
|
|
|
|
my $expected = [
|
|
{ entity_id => 4, value => 95, position => 1 },
|
|
{ entity_id => 3, value => 85, position => 2 },
|
|
{ entity_id => 2, value => 75, position => 3 },
|
|
{ entity_id => 1, value => 65, position => 4 },
|
|
];
|
|
|
|
is_deeply [ $today_values->all ], $expected, 'array as expected';
|
|
|
|
is $leaderboard_rs->find_by_type( 'daily_total' )->sets->count, 4, 'correct leaderboard count';
|
|
};
|
|
|
|
done_testing;
|