t/EdiTransport.t

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4 use FindBin qw( $Bin );
   5 use Test::More;
   6 use Test::MockModule;
   7 use Module::Load::Conditional qw/check_install/;
   8
   9 BEGIN {
  10     if ( check_install( module => 'Test::DBIx::Class' ) ) {
  11         plan tests => 5;
  12     }
  13     else {
  14         plan skip_all => 'Need Test::DBIx::Class';
  15     }
  16
  17 }
  18
  19 use Test::DBIx::Class;
  20
  21 fixtures_ok [
  22     VendorEdiAccount =>
  23       [ [ 'id', 'description', 'transport' ], [ 1, 'test vendor', 'FILE' ], ],
  24     EdifactMessage => [
  25         [ 'message_type', 'filename',  'raw_msg' ],
  26         [ 'TEST',         'duplicate', 'message_contents' ],
  27     ],
  28   ],
  29   'add_fixtures';
  30
  31 my $filename = 'QUOTES_413514.CEQ';
  32
  33 my $db = Test::MockModule->new('Koha::Database');
  34 $db->mock( _new_schema => sub { return Schema(); } );
  35
  36 use_ok('Koha::Edifact::Transport');
  37
  38 my $trans = Koha::Edifact::Transport->new(1);
  39
  40 isa_ok( $trans, 'Koha::Edifact::Transport' );
  41
  42 $trans->working_directory("$Bin/edi_testfiles");
  43
  44 my $mhash = $trans->message_hash();
  45 $mhash->{message_type} = 'TEST';    # set a bogus message type
  46
  47 $trans->ingest( $mhash, $filename );
  48
  49 my $cnt = ResultSet('EdifactMessage')->count();
  50
  51 is( $cnt, 2, 'unique message name ingested' );
  52
  53 $trans->ingest( $mhash, $filename );    # try a repeat ingest
  54
  55 my $cnt2 = ResultSet('EdifactMessage')->count();
  56
  57 is( $cnt2, 2, 'duplicate message name not ingested' );