diff options
| author | Kiwamu Okabe <kiwamu@debian.or.jp> | 2012-02-28 01:49:16 +0900 |
|---|---|---|
| committer | Kiwamu Okabe <kiwamu@debian.or.jp> | 2012-02-28 01:49:16 +0900 |
| commit | b27a86d9758512d85d052a9a46917a54eb3da035 (patch) | |
| tree | 43171a5211b250025cc85e6994a6a516aad5668f /src/Tests/Writers/ConTeXt.hs | |
| parent | 6ac52ff209b172129452cd464d840b3c73c85c01 (diff) | |
Imported Upstream version 1.9.1.1
Diffstat (limited to 'src/Tests/Writers/ConTeXt.hs')
| -rw-r--r-- | src/Tests/Writers/ConTeXt.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Tests/Writers/ConTeXt.hs b/src/Tests/Writers/ConTeXt.hs index 704571e95..506ff698f 100644 --- a/src/Tests/Writers/ConTeXt.hs +++ b/src/Tests/Writers/ConTeXt.hs @@ -26,7 +26,7 @@ which is in turn shorthand for test context "my test" (X,Y) -} -infix 5 =: +infix 4 =: (=:) :: (ToString a, ToPandoc a) => String -> (a, String) -> Test (=:) = test context @@ -43,9 +43,7 @@ tests = [ testGroup "inline code" ] , testGroup "headers" [ "level 1" =: - header 1 "My header" =?> "\\subject{My header}" - , property "header 1 property" $ \ils -> - context' (header 1 ils) == "\\subject{" ++ context' ils ++ "}" + header 1 "My header" =?> "\\section[my-header]{My header}" ] , testGroup "bullet lists" [ "nested" =: |