Testfall um Fehlerfall und Mandanteneinstellung erweitert

Author: kivijan

t/wh/journal.t

@@ -36,10 +36,23 @@ sub init  {
     shippingdate => DateTime->now,
   );
 
+  local $::instance_conf->data->{transfer_default_ignore_onhand} = 1;
+
   SL::DB::Inventory->new(%args, trans_type => $tt_used, qty => -1)->save;
   SL::DB::Inventory->new(%args, trans_type => $tt_used, qty => -1)->save;
   SL::DB::Inventory->new(%args, trans_type => $tt_assembled, qty => 1)->save;
 
+  local $::instance_conf->data->{transfer_default_ignore_onhand} = 0;
+  my $die_message;
+  eval {
+    SL::DB::Inventory->new(%args, trans_type => $tt_used, qty => -1)->save;
+
+    1;
+  } or do {
+    $die_message = $@;
+  };
+  ok($die_message =~ m/Menge von -1 .* Artikel 50 .* Test warehouse am Lagerplatz Test bin 1/, 'catch negative stock');
+
   qty                           => { type => 'numeric', precision => 25, scale => 5 },
   shippingdate                  => { type => 'date', not_null => 1 },
 }