my $VISUAL_TEST = 0; # just a sleep to click around
sub clear_up {
- foreach (qw(DeliveryOrderItem DeliveryOrder InvoiceItem Invoice Part Customer Vendor Employee Department PaymentTerm)) {
+ foreach (qw(DeliveryOrderItem DeliveryOrder InvoiceItem Invoice Part Customer Vendor Department PaymentTerm)) {
"SL::DB::Manager::${_}"->delete_all(all => 1);
}
+ SL::DB::Manager::Employee->delete_all(where => [ id => 31915 ]);
};
sub reset_state {