[Git][ghc/ghc][wip/T24403] testsuite: Add test of IPE information for unpackCString#

[Ben Gamari (@bgamari)]

Ben Gamari pushed to branch wip/T24403 at Glasgow Haskell Compiler / GHC


Commits:
9fdecc70 by Ben Gamari at 2024-04-08T14:04:32-04:00
testsuite: Add test of IPE information for unpackCString#

See #24403.

- - - - -


3 changed files:

- + testsuite/tests/rts/T24403.hs
- + testsuite/tests/rts/T24403.stdout
- testsuite/tests/rts/all.T


Changes:

=====================================
testsuite/tests/rts/T24403.hs
=====================================
@@ -0,0 +1,7 @@
+import GHC.InfoProv
+
+hello :: String
+hello = "hello"
+
+main :: IO ()
+main = whereFrom hello >>= print


=====================================
testsuite/tests/rts/T24403.stdout
=====================================
@@ -0,0 +1 @@
+Just (InfoProv {ipName = "stg_unpack_cstring_info", ipDesc = THUNK_STATIC, ipTyDesc = "", ipLabel = "", ipUnitId = "rts", ipMod = "Cmm$rts/StgStdThunks.cmm", ipSrcFile = "", ipSrcSpan = ""})


=====================================
testsuite/tests/rts/all.T
=====================================
@@ -609,3 +609,5 @@ test('T23400', [], compile_and_run, ['-with-rtsopts -A8k'])
 test('IOManager', [js_skip, when(arch('wasm32'), skip), when(opsys('mingw32'), skip),
                    pre_cmd('$MAKE -s --no-print-directory IOManager.hs')],
                   compile_and_run, [''])
+
+test('T24403', only_ways('optasm'), compile_and_run, [''])



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/9fdecc7028e4b75edb04fc7404016027d5816826
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/20240408/eed2fb38/attachment-0001.html>