|
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 |
- |
|
|