Reword pod2html crossref err msgs; show only if $verbose

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

index 920f310..ea335b0 100644 (file)
--- a/ext/Pod-Html/t/feature2.t
+++ b/ext/Pod-Html/t/feature2.t
@@ -2,7 +2,7 @@
  
  
  BEGIN {
-    require "t/pod2html-lib.pl";
+    require "./t/pod2html-lib.pl";
  }
  
  use strict;
@@ -26,8 +26,10 @@ convert_n_test("feature2", "misc pod-html features 2",
  
  like($warn,
      qr(
-       \Acaching\ directories\ for\ later\ use\n
-       Converting\ input\ file\ \S+[/\\\]]feature2\.pod\n\z    
+    \Acaching\ directories\ for\ later\ use\n
+    Converting\ input\ file\ \S+[/\\\]]feature2\.pod\n
+    Cannot\ find\ file\ "crossref\.\*"\ directly\ under\ podpath,\ cannot\ find
+    \ suitable\ replacement:\ link\ remains\ unresolved\.\n\z
      )x,
      "misc pod-html --verbose warnings");
  
@@ -41,9 +43,9 @@ __DATA__
  <link rev="made" href="mailto:[PERLADMIN]" />
  </head>
  
-<body id="_podtop_" style="background-color: white">
+<body id="_podtop_">
  <table border="0" width="100%" cellspacing="0" cellpadding="3">
-<tr><td class="_podblock_" style="background-color: #cccccc" valign="middle">
+<tr><td class="_podblock_" style="background-color: #cccccc; color: #000" valign="middle">
  <big><strong><span class="_podblock_">&nbsp;</span></strong></big>
  </td></tr>
  </table>
@@ -70,7 +72,7 @@ some html
  <p>some text and a link <a>crossref</a></p>
  
  <table border="0" width="100%" cellspacing="0" cellpadding="3">
-<tr><td class="_podblock_" style="background-color: #cccccc" valign="middle">
+<tr><td class="_podblock_" style="background-color: #cccccc; color: #000" valign="middle">
  <big><strong><span class="_podblock_">&nbsp;</span></strong></big>
  </td></tr>
  </table>