+# Clean up: remove test objects for part, warehouse, bin
+my $part = SL::DB::Manager::Part->get_first(partnumber => NAME(), description => NAME());
+if ($part) {
+ SL::DB::Manager::Inventory->delete_all(where => [ parts_id => $part->id ]);
+ $part->delete;
+}
+
+SL::DB::Manager::Bin ->delete_all(where => [ or => [ description => NAME() . "1", description => NAME() . "2" ] ]);
+SL::DB::Manager::Warehouse->delete_all(where => [ description => NAME() ]);
+
+# Create test data
+$part = SL::DB::Part->new(unit => 'mg', description => NAME(), partnumber => NAME());