gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 20254: Add tests for transport ingest 

Add test framework for Koha::Edifact::Transport
Add specific test that ingest does not duplicate
an existing filename

Signed-off-by: Mark Tompsett <mtompset@hotmail.com>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
Colin Campbell 2018-12-10 12:57:50 +00:00 committed by Martin Renvoize
parent a07cd5e865
commit f4e00328bc
No known key found for this signature in database
GPG Key ID: 422B469130441A0F
1 changed files with 57 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
t/EdiTransport.t Normal file
View File

@ -0,0 +1,57 @@
#!/usr/bin/perl
use Modern::Perl;
use FindBin qw( $Bin );
use Test::More;
use Test::MockModule;
use Module::Load::Conditional qw/check_install/;
BEGIN {
if ( check_install( module => 'Test::DBIx::Class' ) ) {
plan tests => 5;
}
else {
plan skip_all => 'Need Test::DBIx::Class';
}
}
use Test::DBIx::Class;
fixtures_ok [
VendorEdiAccount =>
[ [ 'id', 'description', 'transport' ], [ 1, 'test vendor', 'FILE' ], ],
EdifactMessage => [
[ 'message_type', 'filename', 'raw_msg' ],
[ 'TEST', 'duplicate', 'message_contents' ],
],
],
'add_fixtures';
my $filename = 'QUOTES_413514.CEQ';
my $db = Test::MockModule->new('Koha::Database');
$db->mock( _new_schema => sub { return Schema(); } );
use_ok('Koha::Edifact::Transport');
my $trans = Koha::Edifact::Transport->new(1);
isa_ok( $trans, 'Koha::Edifact::Transport' );
$trans->working_directory("$Bin/edi_testfiles");
my $mhash = $trans->message_hash();
$mhash->{message_type} = 'TEST'; # set a bogus message type
$trans->ingest( $mhash, $filename );
my $cnt = ResultSet('EdifactMessage')->count();
is( $cnt, 2, 'unique message name ingested' );
$trans->ingest( $mhash, $filename ); # try a repeat ingest
my $cnt2 = ResultSet('EdifactMessage')->count();
is( $cnt2, 2, 'duplicate message name not ingested' );