fix ext/Pod-Html/t/*.t that assumed '.' in @INC

[perl5.git] / ext / Pod-Html / t / htmlview.t
diff --git a/ext/Pod-Html/t/htmlview.t b/ext/Pod-Html/t/htmlview.t

index 97e0536..a95a0ab 100644 (file)
--- a/ext/Pod-Html/t/htmlview.t
+++ b/ext/Pod-Html/t/htmlview.t
@@ -1,13 +1,13 @@
  #!/usr/bin/perl -w                                         # -*- perl -*-
  
  BEGIN {
-    require "t/pod2html-lib.pl";
+    require "./t/pod2html-lib.pl";
  }
  
  use strict;
  use Test::More tests => 1;
  
-convert_n_test("htmlview", "html rendering");
+convert_n_test("htmlview", "html rendering", "--quiet");
  
  __DATA__
  <?xml version="1.0" ?>
@@ -19,7 +19,7 @@ __DATA__
  <link rev="made" href="mailto:[PERLADMIN]" />
  </head>
  
-<body style="background-color: white">
+<body>
  
  
  
@@ -29,8 +29,8 @@ __DATA__
    <li><a href="#DESCRIPTION">DESCRIPTION</a></li>
    <li><a href="#METHODS-OTHER-STUFF">METHODS =&gt; OTHER STUFF</a>
      <ul>
-      <li><a href="#new-">new()</a></li>
-      <li><a href="#old-">old()</a></li>
+      <li><a href="#new">new()</a></li>
+      <li><a href="#old">old()</a></li>
      </ul>
    </li>
    <li><a href="#TESTING-FOR-AND-BEGIN">TESTING FOR AND BEGIN</a></li>
@@ -65,7 +65,7 @@ __DATA__
  
  <p>Here is a list of methods</p>
  
-<h2 id="new-">new()</h2>
+<h2 id="new">new()</h2>
  
  <p>Constructor method. Accepts the following config options:</p>
  
@@ -178,7 +178,7 @@ __DATA__
  </li>
  </ul>
  
-<h2 id="old-">old()</h2>
+<h2 id="old">old()</h2>
  
  <p>Destructor method</p>
  
@@ -193,11 +193,11 @@ blah blah
  
  <p>intermediate text</p>
  
-
-
  <more>
  HTML
-</more>some text
+</more>
+
+some text
  
  <h1 id="TESTING-URLs-hyperlinking">TESTING URLs hyperlinking</h1>
  
@@ -219,7 +219,7 @@ HTML
  
  <dl>
  
-<dt id="Around-line-45:">Around line 45:</dt>
+<dt id="Around-line-45">Around line 45:</dt>
  <dd>
  
  <p>You can&#39;t have =items (as at line 49) unless the first thing after the =over is an =item</p>