2018-01-24 16:08:20 +00:00
use Mojo::Base - strict ;
BEGIN {
use Test::MockTime qw/ set_absolute_time / ;
}
use FindBin qw/ $Bin / ;
use Test::More ;
use Mojo::JSON ;
use Test::Pear::LocalLoop ;
use DateTime ;
my $ framework = Test::Pear::LocalLoop - > new (
etc_dir = > "$Bin/../etc" ,
) ;
$ framework - > install_fixtures ( 'users' ) ;
my $ t = $ framework - > framework ;
my $ schema = $ t - > app - > schema ;
2018-03-21 15:52:00 +00:00
$ schema - > resultset ( 'Category' ) - > create ( {
id = > 1 ,
name = > 'test' ,
} ) ;
2018-03-26 15:13:35 +01:00
set_absolute_time ( '2018-01-08T00:00:00Z' ) ;
2018-01-24 16:08:20 +00:00
my $ start = DateTime - > today - > subtract ( hours = > 12 ) ;
# create 40 days worth of data
for my $ count ( 0 .. 28 ) {
my $ trans_day = $ start - > clone - > subtract ( days = > $ count ) ;
create_random_transaction ( 'test1@example.com' , $ trans_day ) ;
if ( $ count % 2 ) {
create_random_transaction ( 'test1@example.com' , $ trans_day ) ;
}
if ( $ count % 3 ) {
create_random_transaction ( 'test1@example.com' , $ trans_day ) ;
}
if ( $ count % 4 ) {
create_random_transaction ( 'test1@example.com' , $ trans_day ) ;
}
}
my $ session_key = $ framework - > login ( {
email = > 'test1@example.com' ,
password = > 'abc123' ,
} ) ;
$ t - > post_ok ( '/api/stats/category' = > json = > {
session_key = > $ session_key ,
} )
- > status_is ( 200 ) - > or ( $ framework - > dump_error )
- > json_is ( '/data' , {
2018-03-02 17:00:01 +00:00
categories = > {
2018-03-26 15:13:35 +01:00
"2017-12-11" = > [ {
days = > "2017-12-11" ,
2018-03-21 15:52:00 +00:00
value = > 210 ,
2018-03-26 15:13:35 +01:00
category = > 'test' ,
2018-03-02 17:00:01 +00:00
} ] ,
2018-03-26 15:13:35 +01:00
"2017-12-18" = > [ {
days = > "2017-12-18" ,
2018-03-02 17:00:01 +00:00
value = > 200 ,
2018-03-26 15:13:35 +01:00
category = > 'test' ,
2018-03-02 17:00:01 +00:00
} ] ,
2018-03-26 15:13:35 +01:00
"2017-12-25" = > [ {
days = > "2017-12-25" ,
2018-03-21 15:52:00 +00:00
value = > 210 ,
2018-03-26 15:13:35 +01:00
category = > 'test' ,
2018-03-02 17:00:01 +00:00
} ] ,
2018-03-26 15:13:35 +01:00
"2018-01-01" = > [ {
days = > "2018-01-01" ,
2018-03-02 17:00:01 +00:00
value = > 190 ,
2018-03-26 15:13:35 +01:00
category = > 'test' ,
2018-03-02 17:00:01 +00:00
} ] ,
} ,
essentials = > {
2018-03-26 15:13:35 +01:00
"2017-12-11" = > {
2018-03-21 15:52:00 +00:00
value = > 210 ,
2018-03-02 17:00:01 +00:00
} ,
2018-03-26 15:13:35 +01:00
"2017-12-18" = > {
2018-03-02 17:00:01 +00:00
value = > 200 ,
} ,
2018-03-26 15:13:35 +01:00
"2017-12-25" = > {
2018-03-21 15:52:00 +00:00
value = > 210 ,
2018-03-02 17:00:01 +00:00
} ,
2018-03-26 15:13:35 +01:00
"2018-01-01" = > {
2018-03-02 17:00:01 +00:00
value = > 190 ,
} ,
}
2018-01-24 16:08:20 +00:00
} ) - > or ( $ framework - > dump_error ) ;
sub create_random_transaction {
my $ buyer = shift ;
my $ time = shift ;
2018-03-21 15:52:00 +00:00
2018-01-24 16:08:20 +00:00
my $ buyer_result = $ schema - > resultset ( 'User' ) - > find ( { email = > $ buyer } ) - > entity ;
my $ seller_result = $ schema - > resultset ( 'Organisation' ) - > find ( { name = > 'Test Org' } ) - > entity ;
my $ test_transaction = $ schema - > resultset ( 'Transaction' ) - > create ( {
buyer = > $ buyer_result ,
seller = > $ seller_result ,
value = > 10 * 100000 ,
proof_image = > 'a' ,
purchase_time = > $ time ,
2018-03-02 17:00:01 +00:00
essential = > 1 ,
2018-01-24 16:08:20 +00:00
} ) ;
2018-03-21 15:52:00 +00:00
2018-01-24 16:08:20 +00:00
$ schema - > resultset ( 'TransactionCategory' ) - > create ( {
category_id = > 1 ,
transaction_id = > $ test_transaction - > id ,
} ) ;
}
done_testing ;