@ -4,6 +4,7 @@ use Net::Domain qw(hostfqdn);
use JSON - support_by_pp , - no_export ;
use Test::More ;
use Storable qw( ) ;
use URI::Encode qw( uri_encode ) ;
use LWP::Debug ;
@ -20,6 +21,8 @@ my $is_local_env = 0;
my $ mysql_sqlstrict = 1 ; #https://bugtracker.sipwise.com/view.php?id=12565
my $ enable_journal_tests = 1 ;
my $ test_start_datetime = DateTime - > now ;
use Config::General ;
my $ catalyst_config ;
if ( $ is_local_env ) {
@ -2397,7 +2400,7 @@ sub _test_journal_collection {
my ( $ resource , $ item_id , $ journals ) = @ _ ;
if ( _is_journal_resource_enabled ( $ resource ) ) {
my $ total_count = ( defined $ journals ? ( scalar keys %$ journals ) : undef ) ;
my $ nexturi = $ uri . '/api/' . $ resource . '/' . $ item_id . '/journal/?page=1&rows=' . ( ( not defined $ total_count or $ total_count <= 2 ) ? 2 : $ total_count - 1 ) ;
my $ nexturi = $ uri . '/api/' . $ resource . '/' . $ item_id . '/journal/?page=1&rows=' . ( ( not defined $ total_count or $ total_count <= 2 ) ? 2 : $ total_count - 1 ) . "&from=" . uri_encode ( $ test_start_datetime ) ;
do {
$ res = $ ua - > get ( $ nexturi ) ;
is ( $ res - > code , 200 , _get_request_test_message ( "fetch journal collection page" ) ) ;