diff options
Diffstat (limited to 'test/Parser.hs')
-rw-r--r-- | test/Parser.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/test/Parser.hs b/test/Parser.hs index d473e05..40a8f30 100644 --- a/test/Parser.hs +++ b/test/Parser.hs @@ -26,6 +26,7 @@ import Test.Tasty.Hedgehog import Test.Tasty.HUnit import Text.Parsec import VeriFuzz +import VeriFuzz.Internal import VeriFuzz.Verilog.Lex import VeriFuzz.Verilog.Parser @@ -69,9 +70,9 @@ parserIdempotent = Hog.property $ do let sv = vshow v p sv === (p . p) sv where - vshow = show . GenVerilog + vshow = showT . GenVerilog p sv = - either (\x -> show x <> "\n" <> sv) vshow $ parseVerilog "idempotent_test" sv + either (\x -> showT x <> "\n" <> sv) vshow $ parseVerilog "idempotent_test" sv parserTests :: TestTree parserTests = testGroup "Parser properties" |