diff options
author | Sylvain Henry <sylvain@haskus.fr> | 2023-04-18 18:19:46 +0200 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2023-04-19 20:04:35 -0400 |
commit | d442ac053f9ac7dbcc32318802daf686f377fe3d (patch) | |
tree | 0052ad88f5ba0c63ed53cbf29a049a5c462034c6 /libraries | |
parent | df1a581188694479a583270548896245fc23b525 (diff) | |
download | haskell-d442ac053f9ac7dbcc32318802daf686f377fe3d.tar.gz |
JS: fix thread-related primops
Diffstat (limited to 'libraries')
-rw-r--r-- | libraries/base/tests/all.T | 3 | ||||
-rw-r--r-- | libraries/base/tests/listThreads1.hs | 6 | ||||
-rw-r--r-- | libraries/base/tests/listThreads1.stdout | 1 |
3 files changed, 9 insertions, 1 deletions
diff --git a/libraries/base/tests/all.T b/libraries/base/tests/all.T index fbe628793c..d5eba40dff 100644 --- a/libraries/base/tests/all.T +++ b/libraries/base/tests/all.T @@ -294,6 +294,7 @@ test('T19719', normal, compile_and_run, ['']) test('T20107', extra_run_opts('+RTS -M50M'), compile_and_run, ['-package bytestring']) test('T22816', normal, compile_and_run, ['']) test('trace', normal, compile_and_run, ['']) -test('listThreads', js_broken(22261), compile_and_run, ['']) +test('listThreads', normal, compile_and_run, ['']) +test('listThreads1', normal, compile_and_run, ['']) test('inits1tails1', normal, compile_and_run, ['']) test('CLC149', normal, compile, ['']) diff --git a/libraries/base/tests/listThreads1.hs b/libraries/base/tests/listThreads1.hs new file mode 100644 index 0000000000..97e852b3ee --- /dev/null +++ b/libraries/base/tests/listThreads1.hs @@ -0,0 +1,6 @@ +module Main where + +import GHC.Conc.Sync + +main :: IO () +main = listThreads >>= print diff --git a/libraries/base/tests/listThreads1.stdout b/libraries/base/tests/listThreads1.stdout new file mode 100644 index 0000000000..d9ec042039 --- /dev/null +++ b/libraries/base/tests/listThreads1.stdout @@ -0,0 +1 @@ +[ThreadId 1] |