From 7e8ea0ae74bcb56b3b91cc461fb7bd38468fe31b Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Fri, 3 Jul 2009 03:05:29 +0000 Subject: Fixed lhs test cases. + Changed Setup.hs in accord with change in '--version' output. + Changed lhs test cases in accord with change in the way HTML headers are written (they are now put in divs, and the id is put on the div rather than the header itself). git-svn-id: https://pandoc.googlecode.com/svn/trunk@1588 788f1e2b-df1e-0410-8736-df70ead52e1b --- Setup.hs | 2 +- tests/lhs-test.fragment.html+lhs | 96 ++++++++++++++++++++-------------------- tests/lhs-test.html | 84 ++++++++++++++++++----------------- tests/lhs-test.html+lhs | 96 ++++++++++++++++++++-------------------- 4 files changed, 142 insertions(+), 136 deletions(-) diff --git a/Setup.hs b/Setup.hs index 4dc25449d..d808a65b8 100644 --- a/Setup.hs +++ b/Setup.hs @@ -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 @@ -

lhs test

unsplit is an arrow that takes a pair of values and combines them to return a single value:

> unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d
> unsplit = arr . uncurry       
>           -- arr (\op (x,y) -> x `op` y)

(***) 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).

f *** g = first f >>> second g
+lhs test
unsplit is an arrow that takes a pair of values and combines them to return a single value:
> unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d
> unsplit = arr . uncurry       
>           -- arr (\op (x,y) -> x `op` y) 
(***) 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).
f *** g = first f >>> second g
 
Block quote:
foo bar

Block quote:

foo bar


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; }
 lhs test
unsplit is an arrow that takes a pair of values and combines them to return a single value:
unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d
unsplit = arr . uncurry       
          -- arr (\op (x,y) -> x `op` y) 
(***) 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).
f *** g = first f >>> second g
+  >lhs test
unsplit is an arrow that takes a pair of values and combines them to return a single value:
unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d
unsplit = arr . uncurry       
          -- arr (\op (x,y) -> x `op` y) 
(***) 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).
f *** g = first f >>> second g
 
Block quote:
foo bar
Block quote:
foo bar

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; }
 lhs test
unsplit is an arrow that takes a pair of values and combines them to return a single value:
> unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d
> unsplit = arr . uncurry       
>           -- arr (\op (x,y) -> x `op` y) 
(***) 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).
f *** g = first f >>> second g
+  >lhs test
unsplit is an arrow that takes a pair of values and combines them to return a single value:
> unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d
> unsplit = arr . uncurry       
>           -- arr (\op (x,y) -> x `op` y) 
(***) 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).
f *** g = first f >>> second g
 
Block quote:
foo bar
Block quote:
foo bar

-- 
cgit v1.2.3