diff options
| -rw-r--r-- | Setup.hs | 2 | ||||
| -rw-r--r-- | tests/lhs-test.fragment.html+lhs | 96 | ||||
| -rw-r--r-- | tests/lhs-test.html | 84 | ||||
| -rw-r--r-- | tests/lhs-test.html+lhs | 96 |
4 files changed, 142 insertions, 136 deletions
@@ -22,7 +22,7 @@ runTestSuite _ _ _ _ = do (outputPath, hOut) <- openTempFile tempPath "out" runProcess "pandoc" ["--version"] Nothing Nothing Nothing (Just hOut) Nothing >>= waitForProcess output <- readFile outputPath - let highlightingSupport = "+highlighting" `isInfixOf` output + let highlightingSupport = "with syntax highlighting" `isInfixOf` output let testArgs = if highlightingSupport then ["lhs"] else [] let testCmd = "runhaskell -i.. RunTests.hs " ++ unwords testArgs inDirectory "tests" $ runCommand testCmd >>= waitForProcess >>= exitWith diff --git a/tests/lhs-test.fragment.html+lhs b/tests/lhs-test.fragment.html+lhs index 27f25eb8c..2100db251 100644 --- a/tests/lhs-test.fragment.html+lhs +++ b/tests/lhs-test.fragment.html+lhs @@ -1,49 +1,51 @@ -<h1 id="lhs-test" ->lhs test</h1 -><p -><code - >unsplit</code - > is an arrow that takes a pair of values and combines them to return a single value:</p -><pre class="sourceCode literatehaskell" -><code - ><span class="Char Special" - >></span - ><span class="Function FunctionDefinition" - > unsplit ::</span - ><span class="Normal NormalText" - > (Arrow a) => (b -> c -> d) -> a (b, c) d</span - ><br - /><span class="Char Special" - >></span - ><span class="Normal NormalText" - > unsplit = arr . </span - ><span class="Function" - >uncurry</span - ><span class="Normal NormalText" - > </span - ><br - /><span class="Char Special" - >></span - ><span class="Normal NormalText" - > </span - ><span class="Comment" - >-- arr (\op (x,y) -> x `op` y) </span - ><br - /></code - ></pre -><p -><code - >(***)</code - > combines two arrows into a new arrow by running the two arrows on a pair of values (one arrow on the first item of the pair and one arrow on the second item of the pair).</p -><pre -><code - >f *** g = first f >>> second g +<div id="lhs-test" +><h1 + >lhs test</h1 + ><p + ><code + >unsplit</code + > is an arrow that takes a pair of values and combines them to return a single value:</p + ><pre class="sourceCode literatehaskell" + ><code + ><span class="Char Special" + >></span + ><span class="Function FunctionDefinition" + > unsplit ::</span + ><span class="Normal NormalText" + > (Arrow a) => (b -> c -> d) -> a (b, c) d</span + ><br + /><span class="Char Special" + >></span + ><span class="Normal NormalText" + > unsplit = arr . </span + ><span class="Function" + >uncurry</span + ><span class="Normal NormalText" + > </span + ><br + /><span class="Char Special" + >></span + ><span class="Normal NormalText" + > </span + ><span class="Comment" + >-- arr (\op (x,y) -> x `op` y) </span + ><br + /></code + ></pre + ><p + ><code + >(***)</code + > combines two arrows into a new arrow by running the two arrows on a pair of values (one arrow on the first item of the pair and one arrow on the second item of the pair).</p + ><pre + ><code + >f *** g = first f >>> second g </code - ></pre -><p ->Block quote:</p -><blockquote -><p - >foo bar</p - ></blockquote + ></pre + ><p + >Block quote:</p + ><blockquote + ><p + >foo bar</p + ></blockquote + ></div > diff --git a/tests/lhs-test.html b/tests/lhs-test.html index 2aa29edb2..5ab1ee102 100644 --- a/tests/lhs-test.html +++ b/tests/lhs-test.html @@ -29,48 +29,50 @@ pre.sourceCode span.Error { color: red; font-weight: bold; } </style ></head ><body - ><h1 id="lhs-test" - >lhs test</h1 - ><p - ><code - >unsplit</code - > is an arrow that takes a pair of values and combines them to return a single value:</p - ><pre class="sourceCode haskell" - ><code - ><span class="Function FunctionDefinition" - >unsplit ::</span - ><span class="Normal NormalText" - > (Arrow a) => (b -> c -> d) -> a (b, c) d</span - ><br - /><span class="Normal NormalText" - >unsplit = arr . </span - ><span class="Function" - >uncurry</span - ><span class="Normal NormalText" - > </span - ><br - /><span class="Normal NormalText" - > </span - ><span class="Comment" - >-- arr (\op (x,y) -> x `op` y) </span - ><br - /></code - ></pre - ><p - ><code - >(***)</code - > combines two arrows into a new arrow by running the two arrows on a pair of values (one arrow on the first item of the pair and one arrow on the second item of the pair).</p - ><pre - ><code - >f *** g = first f >>> second g + ><div id="lhs-test" + ><h1 + >lhs test</h1 + ><p + ><code + >unsplit</code + > is an arrow that takes a pair of values and combines them to return a single value:</p + ><pre class="sourceCode haskell" + ><code + ><span class="Function FunctionDefinition" + >unsplit ::</span + ><span class="Normal NormalText" + > (Arrow a) => (b -> c -> d) -> a (b, c) d</span + ><br + /><span class="Normal NormalText" + >unsplit = arr . </span + ><span class="Function" + >uncurry</span + ><span class="Normal NormalText" + > </span + ><br + /><span class="Normal NormalText" + > </span + ><span class="Comment" + >-- arr (\op (x,y) -> x `op` y) </span + ><br + /></code + ></pre + ><p + ><code + >(***)</code + > combines two arrows into a new arrow by running the two arrows on a pair of values (one arrow on the first item of the pair and one arrow on the second item of the pair).</p + ><pre + ><code + >f *** g = first f >>> second g </code - ></pre - ><p - >Block quote:</p - ><blockquote - ><p - >foo bar</p - ></blockquote + ></pre + ><p + >Block quote:</p + ><blockquote + ><p + >foo bar</p + ></blockquote + ></div ></body ></html > diff --git a/tests/lhs-test.html+lhs b/tests/lhs-test.html+lhs index 8b171bd0f..d57ffc652 100644 --- a/tests/lhs-test.html+lhs +++ b/tests/lhs-test.html+lhs @@ -29,54 +29,56 @@ pre.sourceCode span.Error { color: red; font-weight: bold; } </style ></head ><body - ><h1 id="lhs-test" - >lhs test</h1 - ><p - ><code - >unsplit</code - > is an arrow that takes a pair of values and combines them to return a single value:</p - ><pre class="sourceCode literatehaskell" - ><code - ><span class="Char Special" - >></span - ><span class="Function FunctionDefinition" - > unsplit ::</span - ><span class="Normal NormalText" - > (Arrow a) => (b -> c -> d) -> a (b, c) d</span - ><br - /><span class="Char Special" - >></span - ><span class="Normal NormalText" - > unsplit = arr . </span - ><span class="Function" - >uncurry</span - ><span class="Normal NormalText" - > </span - ><br - /><span class="Char Special" - >></span - ><span class="Normal NormalText" - > </span - ><span class="Comment" - >-- arr (\op (x,y) -> x `op` y) </span - ><br - /></code - ></pre - ><p - ><code - >(***)</code - > combines two arrows into a new arrow by running the two arrows on a pair of values (one arrow on the first item of the pair and one arrow on the second item of the pair).</p - ><pre - ><code - >f *** g = first f >>> second g + ><div id="lhs-test" + ><h1 + >lhs test</h1 + ><p + ><code + >unsplit</code + > is an arrow that takes a pair of values and combines them to return a single value:</p + ><pre class="sourceCode literatehaskell" + ><code + ><span class="Char Special" + >></span + ><span class="Function FunctionDefinition" + > unsplit ::</span + ><span class="Normal NormalText" + > (Arrow a) => (b -> c -> d) -> a (b, c) d</span + ><br + /><span class="Char Special" + >></span + ><span class="Normal NormalText" + > unsplit = arr . </span + ><span class="Function" + >uncurry</span + ><span class="Normal NormalText" + > </span + ><br + /><span class="Char Special" + >></span + ><span class="Normal NormalText" + > </span + ><span class="Comment" + >-- arr (\op (x,y) -> x `op` y) </span + ><br + /></code + ></pre + ><p + ><code + >(***)</code + > combines two arrows into a new arrow by running the two arrows on a pair of values (one arrow on the first item of the pair and one arrow on the second item of the pair).</p + ><pre + ><code + >f *** g = first f >>> second g </code - ></pre - ><p - >Block quote:</p - ><blockquote - ><p - >foo bar</p - ></blockquote + ></pre + ><p + >Block quote:</p + ><blockquote + ><p + >foo bar</p + ></blockquote + ></div ></body ></html > |