1 files changed, 2 insertions, 25 deletions
diff --git a/dist/Math-BigInt/t/mbf_ali.t b/dist/Math-BigInt/t/mbf_ali.t
index 71e4b1383a..845fbe94e1 100644
--- a/dist/Math-BigInt/t/mbf_ali.t
+++ b/dist/Math-BigInt/t/mbf_ali.t
@@ -2,29 +2,8 @@
 
 # test that the new alias names work
 
-use Test::More;
 use strict;
-
-BEGIN
-  {
-  $| = 1;
-  # to locate the testing files
-  my $location = $0; $location =~ s/mbf_ali.t//i;
-  unshift @INC, qw(../lib);
-  if (-d 't')
-    {
-    chdir 't';
-    require File::Spec;
-    unshift @INC, File::Spec->catdir(File::Spec->updir, $location);
-    }
-  else
-    {
-    unshift @INC, $location;
-    }
-  print "# INC = @INC\n";
-
-  plan tests => 6;
-  }
+use Test::More tests => 6;
 
 use Math::BigFloat;
 
@@ -32,6 +11,4 @@ use vars qw/$x $CL/;
 
 $CL = 'Math::BigFloat';
 
-require 'alias.inc';
-
-
+require 't/alias.inc';