From ab6e43c21e9eb22a4538303c1728c4e8d2f35f24 Mon Sep 17 00:00:00 2001
From: Simon Hengel <sol@typeful.net>
Date: Sun, 14 Oct 2012 14:13:24 +0200
Subject: Add description for PruneWithWarning test

---
 tests/html-tests/tests/DeprecationMessageParseError.hs  |  4 ++--
 .../tests/DeprecationMessageParseError.html.ref         |  4 ++--
 tests/html-tests/tests/PruneWithWarning.hs              |  6 ++++++
 tests/html-tests/tests/PruneWithWarning.html.ref        | 17 +++++++++++++++++
 4 files changed, 27 insertions(+), 4 deletions(-)

(limited to 'tests')

diff --git a/tests/html-tests/tests/DeprecationMessageParseError.hs b/tests/html-tests/tests/DeprecationMessageParseError.hs
index 5f0b8713..2f8fb492 100644
--- a/tests/html-tests/tests/DeprecationMessageParseError.hs
+++ b/tests/html-tests/tests/DeprecationMessageParseError.hs
@@ -1,8 +1,8 @@
 -- |
 -- What is tested here:
 --
--- * if parsing of a deprecation message fails, the message is included
---   verbatim
+-- * If parsing of a deprecation message fails, the message is included
+--   verbatim.
 --
 module DeprecationMessageParseError where
 
diff --git a/tests/html-tests/tests/DeprecationMessageParseError.html.ref b/tests/html-tests/tests/DeprecationMessageParseError.html.ref
index b4ea426e..75f9bf54 100644
--- a/tests/html-tests/tests/DeprecationMessageParseError.html.ref
+++ b/tests/html-tests/tests/DeprecationMessageParseError.html.ref
@@ -50,8 +50,8 @@ window.onload = function () {pageLoad();setSynopsis("mini_DeprecationMessagePars
 </p
 	  ><ul
 	  ><li
-	    > if parsing of a deprecation message fails, the message is included
-   verbatim
+	    > If parsing of a deprecation message fails, the message is included
+   verbatim.
 </li
 	    ></ul
 	  ></div
diff --git a/tests/html-tests/tests/PruneWithWarning.hs b/tests/html-tests/tests/PruneWithWarning.hs
index fefe81f5..bfa55ea2 100644
--- a/tests/html-tests/tests/PruneWithWarning.hs
+++ b/tests/html-tests/tests/PruneWithWarning.hs
@@ -1,4 +1,10 @@
 {-# OPTIONS_HADDOCK prune #-}
+-- |
+-- What is tested here:
+--
+-- * If a binding has a deprecation message but no documentation, it is pruned
+--   when @OPTIONS_HADDOCK prune@ is used.
+--
 module PruneWithWarning (foo, bar) where
 
 foo :: Int
diff --git a/tests/html-tests/tests/PruneWithWarning.html.ref b/tests/html-tests/tests/PruneWithWarning.html.ref
index 2d6ef694..3c31fbdf 100644
--- a/tests/html-tests/tests/PruneWithWarning.html.ref
+++ b/tests/html-tests/tests/PruneWithWarning.html.ref
@@ -41,6 +41,23 @@ window.onload = function () {pageLoad();setSynopsis("mini_PruneWithWarning.html"
 	><p class="caption"
 	>PruneWithWarning</p
 	></div
+      ><div id="description"
+      ><p class="caption"
+	>Description</p
+	><div class="doc"
+	><p
+	  >What is tested here:
+</p
+	  ><ul
+	  ><li
+	    > If a binding has a deprecation message but no documentation, it is pruned
+   when <code
+	      >OPTIONS_HADDOCK prune</code
+	      > is used.
+</li
+	    ></ul
+	  ></div
+	></div
       ><div id="interface"
       ></div
       ></div
-- 
cgit v1.2.3