diff options
Diffstat (limited to 'tests/Tests/Helpers.hs')
| -rw-r--r-- | tests/Tests/Helpers.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/Tests/Helpers.hs b/tests/Tests/Helpers.hs index 08cc9b63b..6bf266508 100644 --- a/tests/Tests/Helpers.hs +++ b/tests/Tests/Helpers.hs @@ -11,7 +11,7 @@ import Test.HUnit hiding (Test) -- in Helpers class Expect a where - (=?>) :: Pandoc -> a -> Assertion + (=?>) :: (String, Pandoc) -> a -> Assertion infix 8 =?> @@ -21,12 +21,12 @@ infix 8 =?> infix 6 =: instance Expect Inlines where - (Pandoc _ [Para ils]) =?> e = assertEqual " " (toList e) ils - g =?> e = assertEqual " " (doc $ para e) g + (s, Pandoc _ [Para ils]) =?> e = assertEqual s (toList e) ils + (s, g) =?> e = assertEqual s (doc $ para e) g instance Expect Blocks where - (Pandoc _ bls) =?> e = assertEqual " " (toList e) bls + (s, Pandoc _ bls) =?> e = assertEqual s (toList e) bls instance Expect Pandoc where - g =?> e = assertEqual " " e g + (s, g) =?> e = assertEqual s e g |