t/lib/KohaTest/ImportBatch/AddImportBatch.pm

   1 package KohaTest::ImportBatch::AddImportBatch;
   2 use base qw( KohaTest::ImportBatch );
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8
   9 use C4::ImportBatch;
  10 use C4::Matcher;
  11 use C4::Biblio;
  12
  13
  14 =head3 add_one
  15
  16 =cut
  17
  18 sub add_one : Test( 1 ) {
  19     my $self = shift;
  20
  21     my $batch_id = AddImportBatch(
  22         'create_new',                           #overlay_action
  23         'staging',                              # import_status
  24         'batch',                                # batc_type
  25         'foo',                                  # file_name
  26         'inserted during automated testing',    # comments
  27     );
  28     ok( $batch_id, "successfully inserted batch: $batch_id" );
  29 }
  30
  31 1;