[Git][ghc/ghc][wip/con-info] Refine tests

[Matthew Pickering]

Matthew Pickering pushed to branch wip/con-info at Glasgow Haskell Compiler / GHC


Commits:
cc717d63 by Matthew Pickering at 2020-11-06T17:44:23+00:00
Refine tests

- - - - -


4 changed files:

- testsuite/tests/profiling/should_run/staticcallstack001.hs
- testsuite/tests/profiling/should_run/staticcallstack001.stdout
- testsuite/tests/profiling/should_run/staticcallstack002.hs
- testsuite/tests/profiling/should_run/staticcallstack002.stdout


Changes:

=====================================
testsuite/tests/profiling/should_run/staticcallstack001.hs
=====================================
@@ -13,7 +13,7 @@ qq x = D x
 caf = D 5
 
 main = do
-  print =<< whereFrom (D 5)
-  print =<< whereFrom caf
-  print =<< whereFrom (id (D 5))
+  print . tail =<< whereFrom (D 5)
+  print . tail =<< whereFrom caf
+  print . tail =<< whereFrom (id (D 5))
 


=====================================
testsuite/tests/profiling/should_run/staticcallstack001.stdout
=====================================
@@ -1,3 +1,3 @@
-["D_Main_4_con_info","0","","main","Main","staticcallstack001.hs:16:13-27"]
-["D_Main_2_con_info","0","","caf","Main","staticcallstack001.hs:13:1-9"]
-["sat_sZR_info","15","D","main","Main","staticcallstack001.hs:18:23-32"]
+["0","","main","Main","staticcallstack001.hs:16:20-34"]
+["0","","caf","Main","staticcallstack001.hs:13:1-9"]
+["15","D","main","Main","staticcallstack001.hs:18:30-39"]


=====================================
testsuite/tests/profiling/should_run/staticcallstack002.hs
=====================================
@@ -7,8 +7,8 @@ import GHC.Stack.CCS
 -- a special case to not generate distinct info tables for unboxed
 -- constructors.
 main = do
-  print =<< whereFrom (undefined (# #))
-  print =<< whereFrom (undefined (# () #))
-  print =<< whereFrom (undefined (# (), () #))
-  print =<< whereFrom (undefined (# | () #))
+  print . tail =<< whereFrom (undefined (# #))
+  print . tail =<< whereFrom (undefined (# () #))
+  print . tail =<< whereFrom (undefined (# (), () #))
+  print . tail =<< whereFrom (undefined (# | () #))
 


=====================================
testsuite/tests/profiling/should_run/staticcallstack002.stdout
=====================================
@@ -1,4 +1,4 @@
-["sat_sZt_info","15","main","Main","staticcallstack002.hs:10:23-39"]
-["sat_sZJ_info","15","main","Main","staticcallstack002.hs:11:23-42"]
-["sat_sZZ_info","15","main","Main","staticcallstack002.hs:12:23-46"]
-["sat_s10f_info","15","main","Main","staticcallstack002.hs:13:23-44"]
+["15","Any","main","Main","staticcallstack002.hs:10:30-46"]
+["15","Any","main","Main","staticcallstack002.hs:11:30-49"]
+["15","Any","main","Main","staticcallstack002.hs:12:30-53"]
+["15","Any","main","Main","staticcallstack002.hs:13:30-51"]



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/cc717d630a86502f1a204783215ce5f304113ce3

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/cc717d630a86502f1a204783215ce5f304113ce3
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20201106/6005d820/attachment-0001.html>