Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Show Haskell-readable version of input string in test failure.

Browse source
This commit is contained in:
John MacFarlane 2011-01-19 09:44:53 -08:00
parent 831889bebc
commit 933cdaf4c8
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
tests/Tests/Helpers.hs
View file

@ -9,7 +9,9 @@ import Test.Framework
import Test.Framework.Providers.HUnit
import Test.HUnit hiding (Test)
-- in Helpers
-- In the first argument, the String is the input, and the Pandoc
-- the output, of a pandoc reader. The input is shown in case
-- the test fails.
class Expect a where
(=?>) :: (String, Pandoc) -> a -> Assertion
@ -21,12 +23,12 @@ infix 8 =?>
infix 6 =:
instance Expect Inlines where
(s, Pandoc _ [Para ils]) =?> e = assertEqual s (toList e) ils
(s, g) =?> e = assertEqual s (doc $ para e) g
(s, Pandoc _ [Para ils]) =?> e = assertEqual (show s) (toList e) ils
(s, g) =?> e = assertEqual (show s) (doc $ para e) g
instance Expect Blocks where
(s, Pandoc _ bls) =?> e = assertEqual s (toList e) bls
(s, Pandoc _ bls) =?> e = assertEqual (show s) (toList e) bls
instance Expect Pandoc where
(s, g) =?> e = assertEqual s e g
(s, g) =?> e = assertEqual (show s) e g