diff options
| author | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2013-07-09 14:24:10 +0100 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-01-12 14:48:35 -0600 |
| commit | bb6cef20b82ef7a7f2d49f3ef6dc1a7ce880b5f0 (patch) | |
| tree | ea07b1d4ab43169bc8d7074ff05bf1792c93feb0 /html-test | |
| parent | c1228df0339d041b455bb993786a9ed6322c5e01 (diff) | |
One pass parser and tests.
We remove the HTML test as it is no longer necessary. We cover the
test case in spec tests and other HTML tests but keeping this around
fails: this is because the new parser has different semantics there.
In fact, I suspect the original behaviour was a bug that wasn't
caught/fixed but simply included as-is during the testing.
Diffstat (limited to 'html-test')
| -rw-r--r-- | html-test/ref/TitledPicture.html (renamed from html-test/ref/DeprecationMessageParseError.html) | 62 | ||||
| -rw-r--r-- | html-test/src/DeprecationMessageParseError.hs | 12 | ||||
| -rw-r--r-- | html-test/src/TitledPicture.hs | 7 | ||||
| -rw-r--r-- | html-test/src/Unicode.hs (renamed from html-test/src/Unicode.hs.disabled) | 0 |
4 files changed, 43 insertions, 38 deletions
diff --git a/html-test/ref/DeprecationMessageParseError.html b/html-test/ref/TitledPicture.html index c71ab1a7..34788690 100644 --- a/html-test/ref/DeprecationMessageParseError.html +++ b/html-test/ref/TitledPicture.html @@ -3,13 +3,13 @@ ><head ><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /><title - >DeprecationMessageParseError</title + >TitledPicture</title ><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript" ></script ><script type="text/javascript" >//<![CDATA[ -window.onload = function () {pageLoad();setSynopsis("mini_DeprecationMessageParseError.html");}; +window.onload = function () {pageLoad();setSynopsis("mini_TitledPicture.html");}; //]]> </script ></head @@ -39,22 +39,7 @@ window.onload = function () {pageLoad();setSynopsis("mini_DeprecationMessagePars ></tr ></table ><p class="caption" - >DeprecationMessageParseError</p - ></div - ><div id="description" - ><p class="caption" - >Description</p - ><div class="doc" - ><p - >What is tested here: -</p - ><ul - ><li - > If parsing of a deprecation message fails, the message is included - verbatim. -</li - ></ul - ></div + >TitledPicture</p ></div ><div id="synopsis" ><p id="control.syn" class="caption expander" onclick="toggleSection('syn')" @@ -64,7 +49,13 @@ window.onload = function () {pageLoad();setSynopsis("mini_DeprecationMessagePars ><a href="" >foo</a > :: <a href="" - >Int</a + >Integer</a + ></li + ><li class="src short" + ><a href="" + >bar</a + > :: <a href="" + >Integer</a ></li ></ul ></div @@ -76,15 +67,34 @@ window.onload = function () {pageLoad();setSynopsis("mini_DeprecationMessagePars ><a name="v:foo" class="def" >foo</a > :: <a href="" - >Int</a + >Integer</a + ></p + ><div class="doc" + ><p + >Picture for <code + ><a href="" + >foo</a + ></code + > without a title <img src="bar" + /> +</p + ></div + ></div + ><div class="top" + ><p class="src" + ><a name="v:bar" class="def" + >bar</a + > :: <a href="" + >Integer</a ></p ><div class="doc" - ><div class="warning" - ><p - >Deprecated: use @bar instead</p - ></div - ><p - >some documentation for foo + ><p + >Picture for <code + ><a href="" + >bar</a + ></code + > with title <img src="un∣∁∘" title="δ∈" + /> </p ></div ></div diff --git a/html-test/src/DeprecationMessageParseError.hs b/html-test/src/DeprecationMessageParseError.hs deleted file mode 100644 index 2f8fb492..00000000 --- a/html-test/src/DeprecationMessageParseError.hs +++ /dev/null @@ -1,12 +0,0 @@ --- | --- What is tested here: --- --- * If parsing of a deprecation message fails, the message is included --- verbatim. --- -module DeprecationMessageParseError where - --- | some documentation for foo -foo :: Int -foo = 23 -{-# DEPRECATED foo "use @bar instead" #-} diff --git a/html-test/src/TitledPicture.hs b/html-test/src/TitledPicture.hs new file mode 100644 index 00000000..7029d98a --- /dev/null +++ b/html-test/src/TitledPicture.hs @@ -0,0 +1,7 @@ +module TitledPicture where + +-- | Picture for 'foo' without a title <<bar>> +foo = 5 + +-- | Picture for 'bar' with title <<un∣∁∘ δ∈>> +bar = 6 diff --git a/html-test/src/Unicode.hs.disabled b/html-test/src/Unicode.hs index d5bbf445..d5bbf445 100644 --- a/html-test/src/Unicode.hs.disabled +++ b/html-test/src/Unicode.hs |