Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 304a3439

Von Bernd Bleßmann vor etwa 2 Jahren hinzugefügt

  • ID 304a3439c3c42d91ca9c90b22f06a4a762d9fc93
  • Vorgänger 34bb21d5
  • Nachfolger 252dafc5

Unit-Tests refixed

nach "Erzeugnis fertigen: alle möglichen Allokationsfehler auf einmal anzeigen"

(cherry picked from commit bad5876e62b3b5345c3e3e8e05ae63e93dde50f1)

Unterschiede anzeigen:

t/wh/inventory.t
);
}, "producing for wrong warehouse dies");
# same test, but check exception class
# same test, but check exception class and error messages
throws_ok{
SL::Helper::Inventory::produce_assembly(
part => $assembly1,
......
bin => $bin_moon,
chargenumber => "Lunar Dust inside",
);
} "SL::X::Inventory::Allocation", "producing for wrong warehouse throws correct error class";
# same test, but check user feedback for the error message
throws_ok{
SL::Helper::Inventory::produce_assembly(
part => $assembly1,
qty => 1,
auto_allocate => 1,
# where to put it
bin => $bin_moon,
chargenumber => "Lunar Dust inside",
);
} qr/Part ap (1|2) Testpart (1|2) exists in warehouse Warehouse, but not in warehouse Our warehouse location at the moon/, "producing for wrong warehouse throws correct error message";
} "SL::X::Inventory::Allocation::Multi", "producing for wrong warehouse throws correct error class";
my $e = $@;
like $e, qr/multiple errors during allocation/, "producing for wrong warehouse throws correct error message for multiple errors";
like $e->errors->[0]->message, qr/Part ap (1|2) Testpart (1|2) exists in warehouse Warehouse, but not in warehouse Our warehouse location at the moon/,
"producing for wrong warehouse throws correct error message";
# try to produce without allocations dies
......
# where to put it
bin => $bin1,
);
} qr/can not allocate 1,2 units of service number 1 We really need this service, missing 1,2 units/, "producing assembly with services and unstocked service throws correct error message";
} "SL::X::Inventory::Allocation::Multi", "producing assembly with services and unstocked service throws correct error class";
$e = $@;
like $e, qr/multiple errors during allocation/, "producing assembly with services and unstocked service throws correct error message for multiple errors";
like $e->errors->[0]->message, qr/can not allocate 1,2 units of service number 1 We really need this service, missing 1,2 units/,
"producing assembly with services and unstocked service throws correct error message";
is(SL::Helper::Inventory::get_stock(part => $assembly_service), "1.00000", 'produce without service does not work');
is(SL::Helper::Inventory::get_stock(part => $part1), "12.00000", 'and does not consume...');

Auch abrufbar als: Unified diff