X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/98b64fe1e380c232428d63cea0eb5f44b1d1a2c3..1d99e3e9537f75342a9f20f1e89a3e8cb4bb5444:/t/wh/transfer.t

diff --git a/t/wh/transfer.t b/t/wh/transfer.t
index 2a05c55d3..b85cd68ce 100644
--- a/t/wh/transfer.t
+++ b/t/wh/transfer.t
@@ -3,6 +3,8 @@ use Test::More;
 
 use lib 't';
 
+use SL::Dev::Part qw(new_part);
+
 use_ok 'Support::TestSetup';
 use_ok 'SL::DB::Bin';
 use_ok 'SL::DB::Part';
@@ -26,8 +28,7 @@ SL::DB::Manager::Bin      ->delete_all(where => [ or => [ description => NAME()
 SL::DB::Manager::Warehouse->delete_all(where => [ description => NAME() ]);
 
 # Create test data
-$part = SL::DB::Part->new(unit => 'mg', description => NAME(), partnumber => NAME(), part_type => 'part');
-$part->save();
+$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);