diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-08-18 03:50:16 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2019-08-18 03:50:16 -0400 |
| commit | 7007eccd5b11b79abf266c7be4f6e395c23c7a63 (patch) | |
| tree | 76316fff321b8d78683f358ef279842162156477 | |
| parent | 0b77de55130c51609dec9b6d5de1b34593b66f5d (diff) | |
| download | haskell-7007eccd5b11b79abf266c7be4f6e395c23c7a63.tar.gz | |
testsuite: Add test for #17073
| -rw-r--r-- | testsuite/tests/hpc/Makefile | 6 | ||||
| -rw-r--r-- | testsuite/tests/hpc/T17073.hs | 5 | ||||
| -rw-r--r-- | testsuite/tests/hpc/all.T | 2 |
3 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/tests/hpc/Makefile b/testsuite/tests/hpc/Makefile index 6de7ceefc1..6a705e673d 100644 --- a/testsuite/tests/hpc/Makefile +++ b/testsuite/tests/hpc/Makefile @@ -7,3 +7,9 @@ T11798: "$(TEST_HC)" $(TEST_HC_ARGS) T11798 "$(TEST_HC)" $(TEST_HC_ARGS) T11798 -fhpc test -e .hpc/T11798.mix + +T17073: + LANG=ASCII "$(TEST_HC)" $(TEST_HC_ARGS) T17073.hs -fhpc + ./T17073 + hpc report T17073 + LANG=ASCII hpc markup T17073 diff --git a/testsuite/tests/hpc/T17073.hs b/testsuite/tests/hpc/T17073.hs new file mode 100644 index 0000000000..d1e0a45b9a --- /dev/null +++ b/testsuite/tests/hpc/T17073.hs @@ -0,0 +1,5 @@ +module Main where + +main :: IO () +main = putStrLn "Добрый день" + diff --git a/testsuite/tests/hpc/all.T b/testsuite/tests/hpc/all.T index ed68e29332..b27a98546d 100644 --- a/testsuite/tests/hpc/all.T +++ b/testsuite/tests/hpc/all.T @@ -21,3 +21,5 @@ test('T2991', [cmd_wrapper(T2991), extra_clean(['T2991LiterateModule.hi', 'T2991LiterateModule.o'])], # Run with 'ghc --main'. Do not list other modules explicitly. multimod_compile_and_run, ['T2991', '']) + +test('T17073', normal, makefile_test, []) |