1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
From 7688a75dedf52b4e1ae20cc5017afa042caad909 Mon Sep 17 00:00:00 2001
From: Bodigrim <andrew.lelechenko@gmail.com>
Date: Wed, 12 Oct 2022 21:14:27 +0100
Subject: [PATCH] Fix tests on i386
---
test-suite/Math/NumberTheory/Roots/GeneralTests.hs | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
Index: b/test-suite/Math/NumberTheory/Roots/GeneralTests.hs
===================================================================
--- a/test-suite/Math/NumberTheory/Roots/GeneralTests.hs
+++ b/test-suite/Math/NumberTheory/Roots/GeneralTests.hs
@@ -13,6 +13,7 @@ module Math.NumberTheory.Roots.GeneralTe
( testSuite
) where
+import Data.Bits
import Test.Tasty
import Test.Tasty.HUnit
import Test.Tasty.QuickCheck as QC
@@ -90,9 +91,9 @@ highestPowerSpecialCases =
, 3
, 2)
- , a ( -2 ^ 63 :: Int
+ , a ( minBound :: Int
, -2 :: Int
- , 63)
+ , fromIntegral (finiteBitSize (0 :: Int) - 1))
, a ( (2 ^ 63 - 1) ^ 21
, 2 ^ 63 - 1
|
