Modify test th/T10019 to wobble less
authorSimon Peyton Jones <simonpj@microsoft.com>
Thu, 19 Mar 2015 23:17:21 +0000 (23:17 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Fri, 20 Mar 2015 10:23:07 +0000 (10:23 +0000)
The TH output contains uniques which change too much.
So I took the length of the string instead. Crude,
perhaps too crude, but it'll still show up most significant
output changes

testsuite/tests/th/T10019.script
testsuite/tests/th/T10019.stdout

index eef5fe7..97ecbe1 100644 (file)
@@ -1,4 +1,11 @@
 :set -XTemplateHaskell
 import Language.Haskell.TH
 data Option a = Some a | None
-$(reify 'Some >>= stringE . show)
+$(reify 'Some >>= litE . integerL . toInteger . length . show)
+-- By taking the length we avoid wobbling when the exact uniques
+-- chosen by TH change
+--
+-- This was the original
+-- $(reify 'Some >>= stringE . show)
+-- which yields
+-- "DataConI Ghci1.Some (ForallT [KindedTV a_1627391549 StarT] [] (AppT (AppT ArrowT (VarT a_1627391549)) (AppT (ConT Ghci1.Option) (VarT a_1627391549)))) Ghci1.Option (Fixity 9 InfixL)"
\ No newline at end of file
index 350338c..d65e8e3 100644 (file)
@@ -1 +1 @@
-"DataConI Ghci1.Some (ForallT [KindedTV a_1627391549 StarT] [] (AppT (AppT ArrowT (VarT a_1627391549)) (AppT (ConT Ghci1.Option) (VarT a_1627391549)))) Ghci1.Option (Fixity 9 InfixL)"
+181\r