1 files changed, 0 insertions, 19 deletions
diff --git a/cpan/Test-Simple/t/subtest/args.t b/cpan/Test-Simple/t/subtest/args.t
index 8ae26baa93..5271323e3e 100644
--- a/cpan/Test-Simple/t/subtest/args.t
+++ b/cpan/Test-Simple/t/subtest/args.t
@@ -3,17 +3,6 @@
 use strict;
 use Test::Builder;
 
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-        chdir 't';
-        @INC = ( '../lib', 'lib' );
-    }
-    else {
-        unshift @INC, 't/lib';
-    }
-}
-use Test::Builder::NoOutput;
-
 my $tb = Test::Builder->new;
 
 $tb->ok( !eval { $tb->subtest() } );
@@ -22,12 +11,4 @@ $tb->like( $@, qr/^\Qsubtest()'s second argument must be a code ref/ );
 $tb->ok( !eval { $tb->subtest("foo") } );
 $tb->like( $@, qr/^\Qsubtest()'s second argument must be a code ref/ );
 
-$tb->subtest('Arg passing', sub {
-    my $foo = shift;
-    my $child = Test::Builder->new;
-    $child->is_eq($foo, 'foo');
-    $child->done_testing;
-    $child->finalize;
-}, 'foo');
-
 $tb->done_testing();