Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision c7cabbb2

Von Sven Schöling vor etwa 13 Jahren hinzugefügt

  • ID c7cabbb276bfc046b6855b4330538288bf33385d
  • Vorgänger 719696e4
  • Nachfolger 9d14fd7e

WH->transfer - Interface akzeptiert jetzt Rose Objekte.

Ausserdem transfer dokumentiert und Tests erweitert.

Unterschiede anzeigen:

t/wh/transfer.t
52 52

  
53 53
is $r1->{qty}, $r2->{qty} + 4, 'transfer one way';
54 54

  
55
#################################################
56

  
55 57
WH->transfer({
56 58
   transfer_type    => 'transfer',
57 59
   parts_id         => $part->id,
......
68 70

  
69 71
is $r2->{qty}, $r3->{qty} - 4, 'and back';
70 72

  
73
##############################################
74

  
75
use_ok 'SL::DB::TransferType';
76

  
77
# object interface test
78

  
79
WH->transfer({
80
   transfer_type    => SL::DB::Manager::TransferType->find_by(description => 'transfer'),
81
   parts            => $part,
82
   src_bin          => $bin1,
83
   dst_bin          => $bin2,
84
   qty              => 6.2,
85
   chargenumber     => '',
86
});
87

  
88
my $r4 = $report->();
89

  
90
is $r3->{qty}, $r4->{qty} + 6.2, 'object transfer one way';
91

  
92
#############################################
93

  
94
WH->transfer({
95
   transfer_type    => SL::DB::Manager::TransferType->find_by(description => 'transfer'),
96
   parts            => $part,
97
   src_bin          => $bin2,
98
   src_warehouse    => $wh,
99
   dst_bin          => $bin1,
100
   dst_warehouse    => $wh,
101
   qty              => 6.2,
102
   chargenumber     => '',
103
});
104

  
105
my $r5 = $report->();
106

  
107
is $r4->{qty}, $r5->{qty} - 6.2, 'full object transfer back';
108

  
71 109
done_testing;
72 110

  
73 111

  

Auch abrufbar als: Unified diff