1 package KohaTest::ImportBatch::getImportBatch;
2 use base qw( KohaTest::ImportBatch );
14 =head3 add_one_and_find_it
18 sub add_one_and_find_it : Test( 7 ) {
22 overlay_action => 'create_new',
23 import_status => 'staging',
24 batch_type => 'batch',
26 comments => 'inserted during automated testing',
28 my $batch_id = AddImportBatch($batch);
29 ok( $batch_id, "successfully inserted batch: $batch_id" );
31 my $retrieved = GetImportBatch( $batch_id );
33 foreach my $key ( keys %$batch ) {
34 is( $retrieved->{$key}, $batch->{$key}, "both objects agree on $key" );
36 is( $retrieved->{'import_batch_id'}, $batch_id, 'batch_id' );