diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-02-07 19:20:49 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-02-07 19:20:49 +0000 |
commit | 7955c44cb33d17066c297f9f99edf5de7937e659 (patch) | |
tree | aa22a057656b5a0bf0fb230a5a4a6f368f743ae3 /tests/lhs-test.native | |
parent | dcedb2f71243197f34c241b28b8ae76c2f1422c6 (diff) |
Added tests for lhs writers.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1537 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'tests/lhs-test.native')
-rw-r--r-- | tests/lhs-test.native | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/lhs-test.native b/tests/lhs-test.native new file mode 100644 index 000000000..6993d10de --- /dev/null +++ b/tests/lhs-test.native @@ -0,0 +1,10 @@ +Pandoc (Meta [] [] "") +[ Header 1 [Str "lhs",Space,Str "test"] +, Para [Code "unsplit",Space,Str "is",Space,Str "an",Space,Str "arrow",Space,Str "that",Space,Str "takes",Space,Str "a",Space,Str "pair",Space,Str "of",Space,Str "values",Space,Str "and",Space,Str "combines",Space,Str "them",Space,Str "to",Space,Str "return",Space,Str "a",Space,Str "single",Space,Str "value:"] +, CodeBlock ("",["sourceCode","haskell"],[]) "unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d\nunsplit = arr . uncurry \n -- arr (\\op (x,y) -> x `op` y) " +, Para [Code "(***)",Space,Str "combines",Space,Str "two",Space,Str "arrows",Space,Str "into",Space,Str "a",Space,Str "new",Space,Str "arrow",Space,Str "by",Space,Str "running",Space,Str "the",Space,Str "two",Space,Str "arrows",Space,Str "on",Space,Str "a",Space,Str "pair",Space,Str "of",Space,Str "values",Space,Str "(one",Space,Str "arrow",Space,Str "on",Space,Str "the",Space,Str "first",Space,Str "item",Space,Str "of",Space,Str "the",Space,Str "pair",Space,Str "and",Space,Str "one",Space,Str "arrow",Space,Str "on",Space,Str "the",Space,Str "second",Space,Str "item",Space,Str "of",Space,Str "the",Space,Str "pair)",Str "."] +, CodeBlock ("",[],[]) "f *** g = first f >>> second g" +, BlockQuote + [ Para [Str "Here",Space,Str "is",Space,Str "a",Space,Str "block",Space,Str "quote",Space,Str "section",Str "."] ] + ] + |