@@ -44,7 +44,7 @@ tests :: [TestTree]
44tests = [ testGroup "inline code"
44tests = [ testGroup "inline code"
45 [ "with '}'" =: code "}" =?> "\\mono{\\}}"
45 [ "with '}'" =: code "}" =?> "\\mono{\\}}"
46 , "without '}'" =: code "]" =?> "\\type{]}"
46 , "without '}'" =: code "]" =?> "\\type{]}"
47− , testProperty "code property" $ \s -> null s ||
47+ , testProperty "code property" $ \s -> null s || '\n' `elem` s ||
48 if '{' `elem` s || '}' `elem` s
48 if '{' `elem` s || '}' `elem` s
49 then context' (code s) == "\\mono{" ++
49 then context' (code s) == "\\mono{" ++
50 context' (str s) ++ "}"
50 context' (str s) ++ "}"