View | Details | Raw Unified | Return to bug 20254
Collapse All | Expand All

(-)a/t/EdiTransport.t (-1 / +57 lines)
Line 0 Link Here
0
- 
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' );

Return to bug 20254