From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 23 Nov 2001 15:47:13 +0000 (+0000)
Subject: Corify podlators 1.14 test.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=add0b696725b50bd044f8317de7c98ca34d1fcbe;p=p5sagit%2Fp5-mst-13.2.git

Corify podlators 1.14 test.

p4raw-id: //depot/perl@13203
---

diff --git a/lib/Pod/t/basic.t b/lib/Pod/t/basic.t
index 8e16719..9161d17 100644
--- a/lib/Pod/t/basic.t
+++ b/lib/Pod/t/basic.t
@@ -10,7 +10,11 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift (@INC, '../blib/lib');
+    if ($ENV{PERL_CORE}) {
+	@INC = '../lib';
+    } else {
+	unshift (@INC, '../blib/lib');
+    }
     $| = 1;
     print "1..11\n";
 }
@@ -42,6 +46,17 @@ my %translators = ('Pod::Man'              => 'man',
 # Set default options to match those of pod2man and pod2text.
 %options = (sentence => 0);
 
+sub basic {
+    my $basic = shift;
+    if ($ENV{PERL_CORE}) {
+	require File::Spec;
+	return File::Spec->catfile(File::Spec->catdir(File::Spec->updir,
+						      "lib", "Pod", "t"),
+				   $basic);
+    }
+    return $basic;
+}
+
 my $n = 2;
 for (sort keys %translators) {
     my $parser = $_->new (%options);
@@ -52,7 +67,7 @@ for (sort keys %translators) {
     # line.  That means that we don't check those things; oh well.  The header
     # changes with each version change or touch of the input file.
     if ($_ eq 'Pod::Man') {
-        $parser->parse_from_file ('basic.pod', 'out.tmp');
+        $parser->parse_from_file (basic("basic.pod"), 'out.tmp');
         open (TMP, 'out.tmp') or die "Cannot open out.tmp: $!\n";
         open (OUTPUT, "> out.$translators{$_}")
             or die "Cannot create out.$translators{$_}: $!\n";
@@ -63,11 +78,11 @@ for (sort keys %translators) {
         close TMP;
         unlink 'out.tmp';
     } else {
-        $parser->parse_from_file ('basic.pod', "out.$translators{$_}");
+        $parser->parse_from_file (basic("basic.pod"), "out.$translators{$_}");
     }
     {
         local $/;
-        open (MASTER, "basic.$translators{$_}")
+        open (MASTER, basic("basic.$translators{$_}"))
             or die "Cannot open basic.$translators{$_}: $!\n";
         open (OUTPUT, "out.$translators{$_}")
             or die "Cannot open out.$translators{$_}: $!\n";