diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2023-01-23 13:57:05 +0000 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2023-01-23 14:14:55 +0000 |
commit | 8217744ecd2e0a94a9837a84a22bce7520961f0d (patch) | |
tree | 5ed4d1ac35a8ee33b9c90ff4d221b09e3f6c9f9a | |
parent | 82884ce063180a39afed163590738f7095394583 (diff) | |
download | haskell-wip/bignum-2.tar.gz |
Add test for T22671wip/bignum-2
This was fixed by b13c6ea5
Closes #22671
-rw-r--r-- | testsuite/tests/numeric/should_run/T22671.hs | 8 | ||||
-rw-r--r-- | testsuite/tests/numeric/should_run/all.T | 1 |
2 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/numeric/should_run/T22671.hs b/testsuite/tests/numeric/should_run/T22671.hs new file mode 100644 index 0000000000..3756d1aef8 --- /dev/null +++ b/testsuite/tests/numeric/should_run/T22671.hs @@ -0,0 +1,8 @@ +module Main where + +import Data.Bits +import Control.Monad + +main :: IO () +main = unless (length (show (1 `shiftL` (1 `shiftL` 20) :: Integer)) == 315653) + (error "Incorrect result for bignum calculation") diff --git a/testsuite/tests/numeric/should_run/all.T b/testsuite/tests/numeric/should_run/all.T index f2854ff1d4..bf6d59323b 100644 --- a/testsuite/tests/numeric/should_run/all.T +++ b/testsuite/tests/numeric/should_run/all.T @@ -79,4 +79,5 @@ test('IntegerToFloat', normal, compile_and_run, ['']) test('T20291', normal, compile_and_run, ['']) test('T22282', normal, compile_and_run, ['']) +test('T22671', normal, compile_and_run, ['']) test('foundation', normal, compile_and_run, ['-O -package transformers']) |