Lines 45-56
subtest 'beggining_of_message tests' => sub {
Link Here
|
45 |
); |
45 |
); |
46 |
my $dbic_edi_vendor = $schema->resultset('VendorEdiAccount')->find($edi_vendor->{id}); |
46 |
my $dbic_edi_vendor = $schema->resultset('VendorEdiAccount')->find($edi_vendor->{id}); |
47 |
|
47 |
|
48 |
my $bgm = Koha::Edifact::Order::beginning_of_message($basketno, $dbic_edi_vendor, 1); |
48 |
my $bgm = Koha::Edifact::Order::beginning_of_message($basketno, $dbic_edi_vendor->standard, 1); |
49 |
is( $bgm, qq{BGM+220+$basketno+9'}, "When vendor is set to EDItEUR standard we use 220 in BGM segment"); |
49 |
is( $bgm, qq{BGM+220+$basketno+9'}, "When vendor is set to EDItEUR standard we use 220 in BGM segment"); |
50 |
|
50 |
|
51 |
$dbic_edi_vendor->update({ standard => 'BIC'}); |
51 |
$dbic_edi_vendor->update({ standard => 'BIC'}); |
52 |
$bgm = Koha::Edifact::Order::beginning_of_message($basketno, $dbic_edi_vendor, 1); |
52 |
$bgm = Koha::Edifact::Order::beginning_of_message($basketno, $dbic_edi_vendor->standard, 1); |
53 |
is( $bgm, qq{BGM+220+$basketno+9'}, "When vendor is set to BiC standard we use 22V in BGM segment"); |
53 |
is( $bgm, qq{BGM+22V+$basketno+9'}, "When vendor is set to BiC standard we use 22V in BGM segment"); |
54 |
|
54 |
|
55 |
$schema->storage->txn_rollback; |
55 |
$schema->storage->txn_rollback; |
56 |
}; |
56 |
}; |
57 |
- |
|
|