1 files changed, 12 insertions, 11 deletions
diff --git a/cpan/Test-Harness/t/parser-config.t b/cpan/Test-Harness/t/parser-config.t
index bd3625902d..1e0b719947 100644
--- a/cpan/Test-Harness/t/parser-config.t
+++ b/cpan/Test-Harness/t/parser-config.t
@@ -1,29 +1,30 @@
 #!/usr/bin/perl -w
 
 BEGIN {
+    if ( $ENV{PERL_CORE} ) {
+        chdir 't';
+        @INC = ( '../lib', '../ext/Test-Harness/t/lib' );
+    }
+    else {
         unshift @INC, 't/lib';
+    }
 }
 
 use strict;
 use vars qw(%INIT %CUSTOM);
 
-use Test::More tests => 11;
+use Test::More tests => 5;
 use File::Spec::Functions qw( catfile updir );
 use TAP::Parser;
 
-use_ok('MySource');
-use_ok('MyPerlSource');
 use_ok('MyGrammar');
-use_ok('MyIteratorFactory');
 use_ok('MyResultFactory');
 
-my $source = catfile( 't', 'source_tests', 'source' );
+my @t_path = $ENV{PERL_CORE} ? ( updir(), 'ext', 'Test-Harness' ) : ();
+my $source = catfile( @t_path, 't', 'source_tests', 'source' );
 my %customize = (
-    source_class           => 'MySource',
-    perl_source_class      => 'MyPerlSource',
-    grammar_class          => 'MyGrammar',
-    iterator_factory_class => 'MyIteratorFactory',
-    result_factory_class   => 'MyResultFactory',
+    grammar_class        => 'MyGrammar',
+    result_factory_class => 'MyResultFactory',
 );
 my $p = TAP::Parser->new(
     {   source => $source,
@@ -32,7 +33,7 @@ my $p = TAP::Parser->new(
 );
 ok( $p, 'new customized parser' );
 
-foreach my $key ( keys %customize ) {
+for my $key ( keys %customize ) {
     is( $p->$key(), $customize{$key}, "customized $key" );
 }