-my $part = SL::DB::Manager::Part->get_first;
-is(ref $part, 'SL::DB::Part', 'loading a part to test with id ' . $part->id);
+# 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 = new_part(unit => 'mg', description => NAME(), partnumber => NAME())->save();
+
+is(ref($part), 'SL::DB::Part', 'loading a part to test with id ' . $part->id);