|
Lines 20-26
Link Here
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
use Test::More tests => 28; |
21 |
use Test::More tests => 28; |
| 22 |
use Test::Exception; |
22 |
use Test::Exception; |
| 23 |
use File::Temp qw/tempfile/; |
23 |
use File::Temp qw/tempfile/; |
|
|
24 |
use Scalar::Util qw//; |
| 24 |
|
25 |
|
| 25 |
use t::lib::TestBuilder; |
26 |
use t::lib::TestBuilder; |
| 26 |
use t::lib::Mocks; |
27 |
use t::lib::Mocks; |
|
Lines 66-72
like(
Link Here
|
| 66 |
'Got list of supported metadata formats' |
67 |
'Got list of supported metadata formats' |
| 67 |
); |
68 |
); |
| 68 |
is( $init_results->{is_error}, undef, 'ListRecords request worked' ); |
69 |
is( $init_results->{is_error}, undef, 'ListRecords request worked' ); |
| 69 |
cmp_ok( $init_results->{total}, '>', 0, 'Records have been processed' ); |
70 |
ok( Scalar::Util::looks_like_number( $init_results->{total} ), 'Total records fetched' ); |
| 70 |
isnt( $init_results->{letter_message_id}, undef, 'Report has been enqueued' ); |
71 |
isnt( $init_results->{letter_message_id}, undef, 'Report has been enqueued' ); |
| 71 |
|
72 |
|
| 72 |
my $record = |
73 |
my $record = |
| 73 |
- |
|
|