123456789101112131415161718192021 |
- #!/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();
|