t/wh/transfer.t

   1 use strict;
   2 use Test::More;
   3
   4 use lib 't';
   5
   6 use SL::Dev::Part qw(new_part);
   7
   8 use_ok 'Support::TestSetup';
   9 use_ok 'SL::DB::Bin';
  10 use_ok 'SL::DB::Part';
  11 use_ok 'SL::DB::Warehouse';
  12 use_ok 'SL::WH';
  13
  14 use_ok('SL::DB::Inventory');
  15
  16 use constant NAME => 'UnitTestObject';
  17
  18 Support::TestSetup::login();
  19
  20 # Clean up: remove test objects for part, warehouse, bin
  21 my $part = SL::DB::Manager::Part->get_first(partnumber => NAME(), description => NAME());
  22 if ($part) {
  23   SL::DB::Manager::Inventory->delete_all(where => [ parts_id => $part->id ]);
  24   $part->delete;
  25 }
  26
  27 SL::DB::Manager::Bin      ->delete_all(where => [ or => [ description => NAME() . "1", description => NAME() . "2" ] ]);
  28 SL::DB::Manager::Warehouse->delete_all(where => [ description => NAME() ]);
  29
  30 # Create test data
  31 $part = new_part(unit => 'mg', description => NAME(), partnumber => NAME())->save();
  32
  33 is(ref($part), 'SL::DB::Part', 'loading a part to test with id ' . $part->id);
  34
  35 my $wh = SL::DB::Warehouse->new(description => NAME(), invalid => 0);
  36 $wh->save;
  37 is(ref $wh, 'SL::DB::Warehouse', 'loading a warehouse to test with id ' . $wh->id);
  38
  39 my $bin1 = SL::DB::Bin->new(description => NAME() . "1", warehouse_id => $wh->id);
  40 $bin1->save;
  41 is(ref $bin1, 'SL::DB::Bin', 'getting first bin to test with id ' . $bin1->id);
  42
  43 my $bin2 = SL::DB::Bin->new(description => NAME() . "2", warehouse_id => $wh->id);
  44 $bin2->save;
  45 is(ref $bin2, 'SL::DB::Bin', 'getting another bin to test with id ' . $bin2->id);
  46
  47 my $report = sub {
  48   $::form->{l_warehouseid} = 'Y';
  49   $::form->{l_binid} = 'Y';
  50   my ($result) = WH->get_warehouse_report(
  51     warehouse_id => $wh->id,
  52     bin_id       => $bin1->id,
  53     partsid      => $part->id,
  54     chargenumber => '',
  55   );
  56   $result->{qty} ||= 0;
  57   return $result;
  58 };
  59
  60 sub test (&@) {
  61   my ($arg_sub, @transfers) = @_;
  62   my $before = $report->();
  63
  64   WH->transfer(@transfers);
  65
  66   my $after  = $report->();
  67   my @args   = $arg_sub->($before, $after);
  68
  69   is $args[0], $args[1], $args[2];
  70 }
  71
  72 test { shift->{qty}, shift->{qty} + 4, 'transfer one way' } {
  73    transfer_type    => 'transfer',
  74    parts_id         => $part->id,
  75    src_warehouse_id => $wh->id,
  76    dst_warehouse_id => $wh->id,
  77    src_bin_id       => $bin1->id,
  78    dst_bin_id       => $bin2->id,
  79    qty              => 4,
  80    chargenumber     => '',
  81 };
  82
  83 #################################################
  84
  85 test { shift->{qty}, shift->{qty} - 4, 'and back' } {
  86    transfer_type    => 'transfer',
  87    parts_id         => $part->id,
  88    src_warehouse_id => $wh->id,
  89    dst_warehouse_id => $wh->id,
  90    src_bin_id       => $bin2->id,
  91    dst_bin_id       => $bin1->id,
  92    qty              => 4,
  93    chargenumber     => '',
  94 };
  95
  96 #################################################
  97
  98 test {shift->{qty}, shift->{qty} + 4000000000, 'transfer one way with unit'} {
  99    transfer_type    => 'transfer',
 100    parts_id         => $part->id,
 101    src_warehouse_id => $wh->id,
 102    dst_warehouse_id => $wh->id,
 103    src_bin_id       => $bin1->id,
 104    dst_bin_id       => $bin2->id,
 105    qty              => 4,
 106    unit             => 't',
 107    chargenumber     => '',
 108 };
 109
 110 ##############################################
 111
 112 use_ok 'SL::DB::TransferType';
 113
 114 # object interface test
 115
 116 test { shift->{qty}, shift->{qty} + 6.2, 'object transfer one way' } {
 117    transfer_type    => SL::DB::Manager::TransferType->find_by(description => 'transfer'),
 118    parts            => $part,
 119    src_bin          => $bin1,
 120    dst_bin          => $bin2,
 121    qty              => 6.2,
 122    chargenumber     => '',
 123 };
 124
 125 #############################################
 126
 127 test { shift->{qty}, shift->{qty} - 6.2, 'full object transfer back' } {
 128    transfer_type    => SL::DB::Manager::TransferType->find_by(description => 'transfer'),
 129    parts            => $part,
 130    src_bin          => $bin2,
 131    src_warehouse    => $wh,
 132    dst_bin          => $bin1,
 133    dst_warehouse    => $wh,
 134    qty              => 6.2,
 135    chargenumber     => '',
 136 };
 137
 138 #############################################
 139
 140 test { shift->{qty}, shift->{qty}, 'back and forth in one transaction' } {
 141    transfer_type    => SL::DB::Manager::TransferType->find_by(description => 'transfer'),
 142    parts            => $part,
 143    src_bin          => $bin2,
 144    src_warehouse    => $wh,
 145    dst_bin          => $bin1,
 146    dst_warehouse    => $wh,
 147    qty              => 1,
 148 },
 149 {
 150    transfer_type    => SL::DB::Manager::TransferType->find_by(description => 'transfer'),
 151    parts            => $part,
 152    src_bin          => $bin1,
 153    src_warehouse    => $wh,
 154    dst_bin          => $bin2,
 155    dst_warehouse    => $wh,
 156    qty              => 1,
 157 };
 158
 159 #############################################
 160
 161 test { shift->{qty}, shift->{qty}, 'warehouse reduced interface' } {
 162    transfer_type    => SL::DB::Manager::TransferType->find_by(description => 'transfer'),
 163    parts            => $part,
 164    src_bin          => $bin2,
 165    dst_bin          => $bin1,
 166    qty              => 1,
 167 },
 168 {
 169    transfer_type    => SL::DB::Manager::TransferType->find_by(description => 'transfer'),
 170    parts            => $part,
 171    src_bin          => $bin1,
 172    dst_bin          => $bin2,
 173    qty              => 1,
 174 };
 175
 176
 177 SL::DB::Manager::Inventory->delete_objects(where => [parts_id => $part->id]);
 178
 179 $bin1->delete;
 180 $bin2->delete;
 181 $wh->delete;
 182 $part->delete;
 183
 184 done_testing;
 185
 186 1;