Improve a test fail message

haskell · Jan 7, 2020 · ba008e3 · ba008e3
1 parent 171d32a
commit ba008e3
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/test/exe/Main.hs b/test/exe/Main.hs
@@ -809,7 +809,9 @@ insertNewDefinitionTests = testGroup "insert new definition actions"
   [ testSession "insert new function definition" $ do
       let txtB =
             ["data Person = Person { age :: Int}"
-            ,"main = putStrLn $ head $ showByAge [Person{age = Just 10}]"
+            ,"foo True = putStrLn $ head $ showByAge [Person{age = Just 10}]"
+            , ""
+            ,"foo False = show 0"
             ]
           txtB' =
             [""
@@ -1521,10 +1523,12 @@ findCodeActions doc range expectedTitles = do
           | CACodeAction action@CodeAction { _title = actionTitle } <- actions
           , actionTitle == expectedTitle ]
         | expectedTitle <- expectedTitles]
-  let msg = show $
+  let msg = show
             [ actionTitle
             | CACodeAction CodeAction { _title = actionTitle } <- actions
             ]
+            ++ "is not a superset of "
+            ++ show expectedTitles
   liftIO $ assertBool msg (isJust matches)
   return (fromJust matches)