[Git][ghc/ghc][master] testsuite: Add test for :steplocal performance

[Marge Bot (@marge-bot)]

Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC


Commits:
7f358f25 by Matthew Pickering at 2025-02-27T04:49:06-05:00
testsuite: Add test for :steplocal performance

This adds a simple test which exercises #25779

- - - - -


4 changed files:

- testsuite/tests/perf/compiler/all.T
- + testsuite/tests/perf/compiler/interpreter_steplocal.hs
- + testsuite/tests/perf/compiler/interpreter_steplocal.script
- + testsuite/tests/perf/compiler/interpreter_steplocal.stdout


Changes:

=====================================
testsuite/tests/perf/compiler/all.T
=====================================
@@ -788,3 +788,9 @@ test ('T24984',
       [ collect_compiler_stats('bytes allocated',5) ],
       compile,
       ['-O'])
+
+test('interpreter_steplocal',
+     [ collect_compiler_stats('bytes allocated', 5)
+     ],
+     ghci_script,
+     ['interpreter_steplocal.script'])


=====================================
testsuite/tests/perf/compiler/interpreter_steplocal.hs
=====================================
@@ -0,0 +1,7 @@
+module Main where
+
+main = print $ fib 20
+
+fib 0 = 0
+fib 1 = 1
+fib n = fib (n-1) + fib (n-2)


=====================================
testsuite/tests/perf/compiler/interpreter_steplocal.script
=====================================
@@ -0,0 +1,5 @@
+:l interpreter_steplocal.hs
+:break main
+main
+:steplocal
+:steplocal


=====================================
testsuite/tests/perf/compiler/interpreter_steplocal.stdout
=====================================
@@ -0,0 +1,6 @@
+Breakpoint 0 activated at interpreter_steplocal.hs:3:8-21
+Stopped in Main.main, interpreter_steplocal.hs:3:8-21
+_result :: IO () = _
+Stopped in Main.main, interpreter_steplocal.hs:3:16-21
+_result :: Integer = _
+6765



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/7f358f25ad5604c6e6053f880ca7057690ebd864
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/20250227/63553f2b/attachment-0001.html>