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

diff --git a/t/wh/transfer.t b/t/wh/transfer.t
index c3cf1e5fc..b85cd68ce 100644
--- a/t/wh/transfer.t
+++ b/t/wh/transfer.t
@@ -3,7 +3,7 @@ use Test::More;
 
 use lib 't';
 
-use SL::Dev::Part;
+use SL::Dev::Part qw(new_part);
 
 use_ok 'Support::TestSetup';
 use_ok 'SL::DB::Bin';
@@ -28,7 +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::Dev::Part::create_part(unit => 'mg', description => NAME(), partnumber => NAME())->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);