Update test suite

seereason · Oct 30, 2024 · b3d4464 · b3d4464
1 parent 375bf3c
commit b3d4464
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/Tests.hs b/Tests.hs
@@ -43,11 +43,17 @@ tests =
                    "Data.Map.foo:20"
                    (srcfunloc @String testloc "foo"))
       , TestCase (assertEqual "compactStack"
+                   ("AppraisalBase.Layout.Viewport.layoutViewport:61 < " <>
+                    "AppraisalClient.AppraisalClient:131 < " <>
+                    "AppraisalClient.AppraisalClient:90 < " <>
+                    "Main:44:3")
+                   (compactStack @String testlocs))
+      , TestCase (assertEqual "compactStack'"
                    ("AppraisalBase.Layout.Viewport.layoutViewport:61 \8592 " <>
                     "AppraisalClient.AppraisalClient:131 \8592 " <>
                     "AppraisalClient.AppraisalClient:90 \8592 " <>
                     "Main:44:3")
-                   (compactStack @String testlocs))
+                   (compactStack' @String testlocs))
       , TestCase (assertEqual "locs 0"
                    ("AppraisalBase.Layout.Viewport:61 -> " <>
                     "AppraisalClient.AppraisalClient:131 -> " <>