summaryrefslogtreecommitdiff
path: root/testsuite/driver
diff options
context:
space:
mode:
authorSylvain Henry <sylvain@haskus.fr>2020-07-09 16:55:45 +0200
committerMarge Bot <ben+marge-bot@smart-cactus.org>2020-07-22 20:21:11 -0400
commitff1b7710c9975a3cc1025cb5b9d29197a5f1a98a (patch)
tree080f2bef5be139ff47efb1823fe4ca9ef890ea78 /testsuite/driver
parent15ce1804d2b87ac7bd55632957a4cb897decbbee (diff)
downloadhaskell-ff1b7710c9975a3cc1025cb5b9d29197a5f1a98a.tar.gz
Add test for #18064
It has been fixed by 0effc57d48ace6b719a9f4cbeac67c95ad55010b
Diffstat (limited to 'testsuite/driver')
-rw-r--r--testsuite/driver/testglobals.py3
-rw-r--r--testsuite/driver/testlib.py5
2 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/driver/testglobals.py b/testsuite/driver/testglobals.py
index 13e22d5329..c358a660d9 100644
--- a/testsuite/driver/testglobals.py
+++ b/testsuite/driver/testglobals.py
@@ -148,6 +148,9 @@ class TestConfig:
# Is the compiler dynamically linked?
self.ghc_dynamic = False
+ # Do symbols use leading underscores?
+ self.leading_underscore = False
+
# the timeout program
self.timeout_prog = ''
self.timeout = 300
diff --git a/testsuite/driver/testlib.py b/testsuite/driver/testlib.py
index 9d6fc27b95..a6ff229c06 100644
--- a/testsuite/driver/testlib.py
+++ b/testsuite/driver/testlib.py
@@ -501,6 +501,11 @@ def doing_ghci() -> bool:
def ghc_dynamic() -> bool:
return config.ghc_dynamic
+# Symbols have a leading underscore
+def leading_underscore() -> bool:
+ return config.leading_underscore
+
+
def fast() -> bool:
return config.speed == 2