diff options
| author | Vaibhav Sagar <vaibhavsagar@gmail.com> | 2019-11-12 14:01:42 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-12-14 20:50:08 -0500 |
| commit | 9ff54ea8260b1b1508a19e968eb4584cb5cef93c (patch) | |
| tree | 3a656beeddb8a5c1c2e0e0d2ac72a82e6a5e6adb /testsuite/tests | |
| parent | c43ee6b81bd544ae338f9287a7b1edb646d51531 (diff) | |
| download | haskell-9ff54ea8260b1b1508a19e968eb4584cb5cef93c.tar.gz | |
Data.Functor.Classes: fix Ord1 instance for Down
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/lib/base/T17472.hs | 8 | ||||
| -rw-r--r-- | testsuite/tests/lib/base/T17472.stdout | 1 | ||||
| -rw-r--r-- | testsuite/tests/lib/base/all.T | 1 |
3 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/lib/base/T17472.hs b/testsuite/tests/lib/base/T17472.hs new file mode 100644 index 0000000000..cc4e9d6f35 --- /dev/null +++ b/testsuite/tests/lib/base/T17472.hs @@ -0,0 +1,8 @@ +module Main where + +import Data.Ord +import Data.Functor.Classes + +-- Should print GT +main :: IO () +main = print $ compare1 (Down 1) (Down 2) diff --git a/testsuite/tests/lib/base/T17472.stdout b/testsuite/tests/lib/base/T17472.stdout new file mode 100644 index 0000000000..c81edbdc6a --- /dev/null +++ b/testsuite/tests/lib/base/T17472.stdout @@ -0,0 +1 @@ +GT diff --git a/testsuite/tests/lib/base/all.T b/testsuite/tests/lib/base/all.T index e92af6d57c..3322f68a1c 100644 --- a/testsuite/tests/lib/base/all.T +++ b/testsuite/tests/lib/base/all.T @@ -5,3 +5,4 @@ test('T16916', when(opsys('mingw32'), skip), compile_and_run, ['-O2 -threaded -w test('T17310', normal, compile, ['']) test('T19691', normal, compile, ['']) test('executablePath', extra_run_opts(config.os), compile_and_run, ['']) +test('T17472', normal, compile_and_run, ['']) |