diff options
author | Sebastian Graf <sebastian.graf@kit.edu> | 2020-12-14 08:31:53 +0100 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2020-12-15 10:53:31 -0500 |
commit | 3ee696ccf55c306f6d9887436cfec579f5dde8a0 (patch) | |
tree | 5f4828c445e9ef8f6ea623b271d82c85cf2f1dff | |
parent | 6c2eb2232b39ff4720fda0a4a009fb6afbc9dcea (diff) | |
download | haskell-3ee696ccf55c306f6d9887436cfec579f5dde8a0.tar.gz |
Add regression test for #19053
-rw-r--r-- | testsuite/tests/stranal/should_run/T19053.hs | 8 | ||||
-rw-r--r-- | testsuite/tests/stranal/should_run/all.T | 1 |
2 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/stranal/should_run/T19053.hs b/testsuite/tests/stranal/should_run/T19053.hs new file mode 100644 index 0000000000..883a4ec86c --- /dev/null +++ b/testsuite/tests/stranal/should_run/T19053.hs @@ -0,0 +1,8 @@ +import Data.List (group) +import System.Exit (exitFailure, exitSuccess) + +main :: IO () +main = do + _ <- getContents + if last (group "a") == "a" then exitSuccess else exitFailure + diff --git a/testsuite/tests/stranal/should_run/all.T b/testsuite/tests/stranal/should_run/all.T index 341d8e2639..e28b0ef7ee 100644 --- a/testsuite/tests/stranal/should_run/all.T +++ b/testsuite/tests/stranal/should_run/all.T @@ -26,3 +26,4 @@ test('T14171', [expect_broken(14171), exit_code(1)], compile_and_run, ['']) test('T14290', normal, compile_and_run, ['']) test('T14285', normal, multimod_compile_and_run, ['T14285', '']) test('T17676', normal, compile_and_run, ['']) +test('T19053', normal, compile_and_run, ['']) |