[Git][haskell-team/DHG_packages][master] persistent: Fix tests on 32-bit arches (Closes: #1017571)
Scott Talbert (@swt2c)
gitlab at salsa.debian.org
Wed Oct 12 03:22:39 BST 2022
Scott Talbert pushed to branch master at Debian Haskell Group / DHG_packages
Commits:
0eb633ce by Scott Talbert at 2022-10-11T22:14:11-04:00
persistent: Fix tests on 32-bit arches (Closes: #1017571)
- - - - -
3 changed files:
- p/haskell-persistent/debian/changelog
- + p/haskell-persistent/debian/patches/fix-tests-32-bit
- + p/haskell-persistent/debian/patches/series
Changes:
=====================================
p/haskell-persistent/debian/changelog
=====================================
@@ -1,3 +1,9 @@
+haskell-persistent (2.13.3.5-2) unstable; urgency=medium
+
+ * Fix tests on 32-bit arches (Closes: #1017571)
+
+ -- Scott Talbert <swt at techie.net> Tue, 11 Oct 2022 22:14:00 -0400
+
haskell-persistent (2.13.3.5-1) unstable; urgency=medium
[ Ilias Tsitsimpis ]
=====================================
p/haskell-persistent/debian/patches/fix-tests-32-bit
=====================================
@@ -0,0 +1,24 @@
+Inspired by: https://github.com/yesodweb/persistent/pull/1429
+
+--- a/test/Database/Persist/THSpec.hs
++++ b/test/Database/Persist/THSpec.hs
+@@ -25,6 +25,7 @@ module Database.Persist.THSpec where
+
+ import Control.Applicative (Const(..))
+ import Data.Aeson (decode, encode)
++import Data.Bits (bitSizeMaybe)
+ import Data.ByteString.Lazy.Char8 ()
+ import Data.Coerce
+ import Data.Functor.Identity (Identity(..))
+@@ -237,7 +238,10 @@ spec = describe "THSpec" $ do
+ it "should have usual haskell name" $ do
+ fieldHaskell `shouldBe` FieldNameHS "Id"
+ it "should have correct underlying sql type" $ do
+- fieldSqlType `shouldBe` SqlInt64
++ fieldSqlType `shouldBe`
++ if bitSizeMaybe (0 :: Int) <= Just 32
++ then SqlInt32
++ else SqlInt64
+ it "should have correct haskell type" $ do
+ fieldType `shouldBe` FTTypeCon Nothing "Int"
+
=====================================
p/haskell-persistent/debian/patches/series
=====================================
@@ -0,0 +1 @@
+fix-tests-32-bit
View it on GitLab: https://salsa.debian.org/haskell-team/DHG_packages/-/commit/0eb633ce5d6306ae7e746749bde802c062fb8a77
--
View it on GitLab: https://salsa.debian.org/haskell-team/DHG_packages/-/commit/0eb633ce5d6306ae7e746749bde802c062fb8a77
You're receiving this email because of your account on salsa.debian.org.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://alioth-lists.debian.net/pipermail/pkg-haskell-commits/attachments/20221012/1a09db0b/attachment-0001.htm>
More information about the Pkg-haskell-commits
mailing list