#!/usr/bin/perl # @file journal.pl # @author nas # @date 31/01/2022 # @brief Remote call to the API in order to test BEGIN { push @INC,'.'; }; use Config::Std; use LWP::UserAgent (); use lib qw(..); use JSON qw( ); use Data::Dumper; use NRT::User; use NRT::Batch; print User::v ; read_config 'test.cfg' => our %config; our $batch = Batch->new( %config ); print "\nMaking all tests\n"; $batch->run();