Update tests.

5 files changed, 87 insertions, 4 deletions

diff --git a/tests/html-tests/tests/A.hs b/tests/html-tests/tests/A.hs
index 4a344a24..ac8fad49 100644
--- a/tests/html-tests/tests/A.hs
+++ b/tests/html-tests/tests/A.hs
@@ -1,2 +1,8 @@
 module A where
 data A = A
+
+other :: Int
+other = 2
+
+test2 :: Bool
+test2 = False
diff --git a/tests/html-tests/tests/A.html.ref b/tests/html-tests/tests/A.html.ref
index cb25ba99..63d56c36 100644
--- a/tests/html-tests/tests/A.html.ref
+++ b/tests/html-tests/tests/A.html.ref
@@ -66,6 +66,22 @@ window.onload = function () {pageLoad();setSynopsis("mini_A.html");};
 	      ></table
 	    ></div
 	  ></div
+	><div class="top"
+	><p class="src"
+	  ><a name="v:other" class="def"
+	    >other</a
+	    > :: <a href=""
+	    >Int</a
+	    ></p
+	  ></div
+	><div class="top"
+	><p class="src"
+	  ><a name="v:test2" class="def"
+	    >test2</a
+	    > :: <a href=""
+	    >Bool</a
+	    ></p
+	  ></div
 	></div
       ></div
     ><div id="footer"
diff --git a/tests/html-tests/tests/B.hs b/tests/html-tests/tests/B.hs
index 3a31507e..38310ebd 100644
--- a/tests/html-tests/tests/B.hs
+++ b/tests/html-tests/tests/B.hs
@@ -1,2 +1,7 @@
-module B ( module A ) where
-import A
+module B ( module A, test ) where
+import A ( A(..), test2 )
+
+-- | This link shouldn't work: 'other'.
+--   These links should work: 'A.other', 'Data.List.sortBy', 'test2', 'A.test2', 'Data.Maybe.fromMaybe'.
+test :: Int
+test = 1
diff --git a/tests/html-tests/tests/B.html.ref b/tests/html-tests/tests/B.html.ref
index bbb67c2a..f81460ed 100644
--- a/tests/html-tests/tests/B.html.ref
+++ b/tests/html-tests/tests/B.html.ref
@@ -41,6 +41,22 @@ window.onload = function () {pageLoad();setSynopsis("mini_B.html");};
 	><p class="caption"
 	>B</p
 	></div
+      ><div id="synopsis"
+      ><p id="control.syn" class="caption expander" onclick="toggleSection('syn')"
+	>Synopsis</p
+	><ul id="section.syn" class="hide" onclick="toggleSection('syn')"
+	><li class="src short"
+	  >module <a href=""
+	    >A</a
+	    ></li
+	  ><li class="src short"
+	  ><a href=""
+	    >test</a
+	    > :: <a href=""
+	    >Int</a
+	    ></li
+	  ></ul
+	></div
       ><div id="interface"
       ><h1
 	>Documentation</h1
@@ -50,6 +66,42 @@ window.onload = function () {pageLoad();setSynopsis("mini_B.html");};
 	    >A</a
 	    ></p
 	  ></div
+	><div class="top"
+	><p class="src"
+	  ><a name="v:test" class="def"
+	    >test</a
+	    > :: <a href=""
+	    >Int</a
+	    ></p
+	  ><div class="doc"
+	  ><p
+	    >This link shouldn't work: <code
+	      >other</code
+	      >.
+   These links should work: <code
+	      ><a href=""
+		>other</a
+		></code
+	      >, <code
+	      ><a href=""
+		>sortBy</a
+		></code
+	      >, <code
+	      ><a href=""
+		>test2</a
+		></code
+	      >, <code
+	      ><a href=""
+		>test2</a
+		></code
+	      >, <code
+	      ><a href=""
+		>fromMaybe</a
+		></code
+	      >.
+</p
+	    ></div
+	  ></div
 	></div
       ></div
     ><div id="footer"
diff --git a/tests/html-tests/tests/CrossPackageDocs.html.ref b/tests/html-tests/tests/CrossPackageDocs.html.ref
index 6d6903a2..d3391014 100644
--- a/tests/html-tests/tests/CrossPackageDocs.html.ref
+++ b/tests/html-tests/tests/CrossPackageDocs.html.ref
@@ -209,9 +209,13 @@ monadic expressions.
 		>Monad</a
 		></code
 	      > for lists, <code
-	      >Data.Maybe.Maybe</code
+	      ><a href=""
+		>Maybe</a
+		></code
 	      > and <code
-	      >System.IO.IO</code
+	      ><a href=""
+		>IO</a
+		></code
 	      >
 defined in the <a href=""
 	      >Prelude</a