Revision 1ef37ef3
Von Jan Büren vor fast 7 Jahren hinzugefügt
| t/bank/bank_transactions.t | ||
|---|---|---|
|
# Jetzt gibt es zwei Kontobewegungen mit gleichen Punkten für eine Rechnung.
|
||
|
# hier darf es auch keine Proposals geben
|
||
|
|
||
|
my ( $bt_transactions, $proposals ) = $bt_controller->action_list;
|
||
|
( $bt_transactions, $proposals ) = $bt_controller->action_list;
|
||
|
|
||
|
is(scalar(@$bt_transactions) , 2 , "$testname: two bank_transaction");
|
||
|
is(scalar(@$proposals) , 0 , "$testname: no proposals");
|
||
| ... | ... | |
|
# hier darf es auch keine Proposals geben
|
||
|
$bt3->update_attributes( purpose => "fuer Rechnung salesinv10000");
|
||
|
|
||
|
my ( $bt_transactions, $proposals ) = $bt_controller->action_list;
|
||
|
( $bt_transactions, $proposals ) = $bt_controller->action_list;
|
||
|
|
||
|
is(scalar(@$bt_transactions) , 2 , "$testname: two bank_transaction");
|
||
|
is(scalar(@$proposals) , 1 , "$testname: one proposal");
|
||
Auch abrufbar als: Unified diff
goodperl: Doppelte Variablennamen raus