Revision cf00195c
Von Moritz Bunkus vor etwa 8 Jahren hinzugefügt
| SL/DB/Part.pm | ||
|---|---|---|
| 70 | 70 |
if (@_ > 1) {
|
| 71 | 71 |
die 'invalid type' unless $type =~ /^(?:part|service|assembly)$/; |
| 72 | 72 |
$self->assembly( $type eq 'assembly' ? 1 : 0); |
| 73 |
$self->inventory_accno_id($type ne 'service' ? 1 : undef);
|
|
| 73 |
$self->inventory_accno_id($type eq 'part' ? 1 : undef);
|
|
| 74 | 74 |
} |
| 75 | 75 |
|
| 76 | 76 |
return 'assembly' if $self->assembly; |
| t/part/assembly.t | ||
|---|---|---|
| 54 | 54 |
$assembly_part = SL::DB::Part->new_assembly(partnumber => 'as1', |
| 55 | 55 |
description => 'assembly', |
| 56 | 56 |
unit => $unit->name, |
| 57 |
inventory_accno_id => undef, # override |
|
| 58 | 57 |
); |
| 59 | 58 |
$assembly_1 = SL::DB::Assembly->new(parts_id => $part1->id, qty => 3, bom => 1); |
| 60 | 59 |
$assembly_2 = SL::DB::Assembly->new(parts_id => $part2->id, qty => 3, bom => 1); |
Auch abrufbar als: Unified diff
SL::DB::Part: Setter für type=assembly bzgl. inventory_accno_id fixen
inventory_accno_id muss für Typ »assembly« immer auf undef stehen. Das
testet auch der Testcase. »type« hat allerdings das Falsche gemacht,
wofür im Testcase versucht wurde, ein Workaround zu implementieren,
indem »inventory_accno_id« explizit überschrieben werden.
Leider schlug der Test manchmal fehl, trotz des Workarounds: je nachdem,
ob beim Anlegen (»new_assembly«) zuerst der Parameter für »type« oder
der für »inventory_accno_id« ausgeführt wurde. Die Reihenfolge der
Ausführung ist deswegen nicht deterministisch, weil in Perl das
Iterieren über Hashes gewollt nichtdeterministisch ist, um
Sicherheitsproblemen vorzubeugen.
Wir wandeln Funktionsparameter beim Anlegen von Rose-Objekten explizit
von Listen in Hashes (SL::DB::Object::assign_attributes); anschließend
wird über das Hash iteriert. Im konkreten Fall enthält das Hash sowohl
»type« als auch »inventory_accno_id«, und je Perls internem Seed
bzgl. der Hashiteration wurde mal die eine, mal die andere
Setter-Funktion zuerst ausgeführt.