summaryrefslogtreecommitdiff
path: root/tests/Test.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Test.hs')
-rw-r--r--tests/Test.hs40
1 files changed, 32 insertions, 8 deletions
diff --git a/tests/Test.hs b/tests/Test.hs
index 9d6384d..677153e 100644
--- a/tests/Test.hs
+++ b/tests/Test.hs
@@ -39,6 +39,14 @@ main = hSilence [stderr] $ do
then exitFailure
else return () -- exitSuccess
+transform :: IO ()
+transform = hSilence [stderr] $ do
+ cnts <- fst <$> runTestText (putTextToHandle stdout True) (TestList transformTests)
+ putStrLn $ show cnts
+ if errors cnts > 0 || failures cnts > 0
+ then exitFailure
+ else return () -- exitSuccess
+
-- ---------------------------------------------------------------------
tests :: Test
@@ -234,6 +242,7 @@ tests = TestList $
, mkParserTest "T10196.hs"
, mkParserTest "StringGap.hs"
, mkParserTest "RedundantDo.hs"
+ , mkParserTest "TypeSignature.hs"
]
++ transformTests
@@ -463,16 +472,31 @@ tt' = formatTT =<< partition snd <$> sequence [ return ("", True)
-- , manipulateAstTestWFname "WhereIn3.hs" "WhereIn3"
-- , manipulateAstTestWFnameMod changeWhereIn3a "WhereIn3a.hs" "WhereIn3a"
-- , manipulateAstTestWFname "Imports.hs" "Imports"
- , manipulateAstTestWFname "T10196.hs" "T10196"
+ -- , manipulateAstTestWFname "T10196.hs" "T10196"
, manipulateAstTestWFnameMod addLocaLDecl1 "AddLocalDecl1.hs" "AddLocaLDecl1"
- , manipulateAstTestWFnameMod addLocaLDecl2 "AddLocalDecl2.hs" "AddLocaLDecl2"
- , manipulateAstTestWFnameMod addLocaLDecl3 "AddLocalDecl3.hs" "AddLocaLDecl3"
- , manipulateAstTestWFnameMod rmDecl1 "RmDecl1.hs" "RmDecl1"
+ -- , manipulateAstTestWFnameMod addLocaLDecl2 "AddLocalDecl2.hs" "AddLocaLDecl2"
+ -- , manipulateAstTestWFnameMod addLocaLDecl3 "AddLocalDecl3.hs" "AddLocaLDecl3"
+ -- , manipulateAstTestWFnameMod addLocaLDecl4 "AddLocalDecl4.hs" "AddLocaLDecl4"
+ -- , manipulateAstTestWFnameMod addLocaLDecl5 "AddLocalDecl5.hs" "AddLocaLDecl5"
+ -- , manipulateAstTestWFnameMod addLocaLDecl6 "AddLocalDecl6.hs" "AddLocaLDecl6"
+ -- , manipulateAstTestWFnameMod rmDecl1 "RmDecl1.hs" "RmDecl1"
-- , manipulateAstTestWFname "RmDecl2.hs" "RmDecl2"
- , manipulateAstTestWFnameMod rmDecl2 "RmDecl2.hs" "RmDecl2"
- , manipulateAstTestWFnameMod rmDecl3 "RmDecl3.hs" "RmDecl3"
- , manipulateAstTestWFnameMod rmTypeSig1 "RmTypeSig1.hs" "RmTypeSig1"
- , manipulateAstTestWFname "StringGap.hs" "StringGap"
+ -- , manipulateAstTestWFnameMod rmDecl2 "RmDecl2.hs" "RmDecl2"
+ -- , manipulateAstTestWFnameMod rmDecl3 "RmDecl3.hs" "RmDecl3"
+ -- , manipulateAstTestWFnameMod rmDecl4 "RmDecl4.hs" "RmDecl4"
+ -- , manipulateAstTestWFnameMod rmDecl5 "RmDecl5.hs" "RmDecl5"
+ -- , manipulateAstTestWFname "RmDecl5.hs" "RmDecl5"
+ -- , manipulateAstTestWFnameMod rmDecl6 "RmDecl6.hs" "RmDecl6"
+ -- , manipulateAstTestWFnameMod rmDecl7 "RmDecl7.hs" "RmDecl7"
+ -- , manipulateAstTestWFname "TypeSignature.hs" "TypeSignature"
+ -- , manipulateAstTestWFnameMod rmTypeSig1 "RmTypeSig1.hs" "RmTypeSig1"
+ -- , manipulateAstTestWFnameMod rmTypeSig2 "RmTypeSig2.hs" "RmTypeSig2"
+ -- , manipulateAstTestWFname "StringGap.hs" "StringGap"
+ -- , manipulateAstTestWFnameMod addHiding1 "AddHiding1.hs" "AddHiding1"
+ -- , manipulateAstTestWFnameMod addHiding2 "AddHiding2.hs" "AddHiding2"
+ -- , manipulateAstTestWFnameMod cloneDecl1 "CloneDecl1.hs" "CloneDecl1"
+ -- , manipulateAstTestWFname "SimpleDo.hs" "Main"
+ -- , manipulateAstTestWFnameMod changeRename2 "Rename2.hs" "Main"
{-
, manipulateAstTestWFname "Lhs.lhs" "Main"
, manipulateAstTestWFname "Foo.hs" "Main"