From 8071c27826d60eec1cb20f00f9767c32366defac Mon Sep 17 00:00:00 2001
From: Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com>
Date: Wed, 1 Jul 2015 22:27:38 +0200
Subject: Add qualified name test for identifiers hyperlinking test case.

---
 hypsrc-test/ref/src/Identifiers.html | 45 ++++++++++++++++++++++++++++++++++++
 hypsrc-test/src/Identifiers.hs       |  1 +
 2 files changed, 46 insertions(+)

diff --git a/hypsrc-test/ref/src/Identifiers.html b/hypsrc-test/ref/src/Identifiers.html
index 4c82ad01..14cfbd8b 100644
--- a/hypsrc-test/ref/src/Identifiers.html
+++ b/hypsrc-test/ref/src/Identifiers.html
@@ -737,6 +737,51 @@
 	></a
       ><span class=""
       >
+    </span
+      ><span class="hs-identifier hs-var"
+      >putStrLn</span
+      ><span class=""
+      > </span
+      ><span class="hs-operator hs-var"
+      >.</span
+      ><span class=""
+      > </span
+      ><span class="hs-identifier hs-var"
+      >show</span
+      ><span class=""
+      > </span
+      ><span class="hs-operator hs-var"
+      >$</span
+      ><span class=""
+      > </span
+      ><a href="Identifiers.html#norf"
+      ><span class="hs-identifier hs-var"
+	>Identifiers</span
+	><span class="hs-operator hs-var"
+	>.</span
+	><span class="hs-identifier hs-var"
+	>norf</span
+	></a
+      ><span class=""
+      > </span
+      ><a href="#local-0"
+      ><span class="hs-identifier hs-var"
+	>x</span
+	></a
+      ><span class=""
+      > </span
+      ><a href="#local-0"
+      ><span class="hs-identifier hs-var"
+	>y</span
+	></a
+      ><span class=""
+      > </span
+      ><a href="#local-0"
+      ><span class="hs-identifier hs-var"
+	>z</span
+	></a
+      ><span class=""
+      >
   </span
       ><span class="hs-keyword"
       >where</span
diff --git a/hypsrc-test/src/Identifiers.hs b/hypsrc-test/src/Identifiers.hs
index e2d6223d..173c3ba7 100644
--- a/hypsrc-test/src/Identifiers.hs
+++ b/hypsrc-test/src/Identifiers.hs
@@ -21,6 +21,7 @@ main :: IO ()
 main = do
     putStrLn . show $ foo x y
     putStrLn . show $ quux z
+    putStrLn . show $ Identifiers.norf x y z
   where
     x = 10
     y = 20
-- 
cgit v1.2.3