persistent-test 2.13.1.0 → 2.13.1.2
raw patch · 4 files changed
+15/−3 lines, 4 files
Files
- ChangeLog.md +9/−0
- persistent-test.cabal +1/−1
- src/DataTypeTest.hs +1/−1
- src/MigrationIdempotencyTest.hs +4/−1
ChangeLog.md view
@@ -1,5 +1,14 @@ ## Unreleased changes +## 2.13.1.2++* [#1367](https://github.com/yesodweb/persistent/pull/1367),+ [#1366](https://github.com/yesodweb/persistent/pull/1367),+ [#1338](https://github.com/yesodweb/persistent/pull/1338),+ [#1335](https://github.com/yesodweb/persistent/pull/1335)+ * Support GHC 9.2+* Test migration idempotency on additional integer types [#1359](https://github.com/yesodweb/persistent/pull/1359)+ ## 2.13.1.0 * Support `persistent-2.13.3.0` [#1341](https://github.com/yesodweb/persistent/pull/1341)
persistent-test.cabal view
@@ -1,5 +1,5 @@ name: persistent-test-version: 2.13.1.0+version: 2.13.1.2 license: MIT license-file: LICENSE author: Michael Snoyman <michael@snoyman.com>
src/DataTypeTest.hs view
@@ -49,7 +49,7 @@ cleanDB' = deleteWhere ([] :: [Filter (DataTypeTableGeneric backend)]) roundFn :: RealFrac a => a -> Integer-roundFn = round+roundFn = truncate roundTime :: TimeOfDay -> TimeOfDay roundTime t = timeToTimeOfDay $ fromIntegral $ roundFn $ timeOfDayToTime t
src/MigrationIdempotencyTest.hs view
@@ -2,6 +2,7 @@ {-# LANGUAGE UndecidableInstances #-} module MigrationIdempotencyTest where +import Data.Int (Int32, Int64) import qualified Data.Text as T import Database.Persist.TH@@ -9,13 +10,15 @@ share [mkPersist sqlSettings, mkMigrate "migration"] [persistLowerCase| Idempotency- field1 Int+ field1 Int64 field2 T.Text sqltype=varchar(5) field3 T.Text sqltype=mediumtext field4 T.Text sqltype=longtext field5 T.Text sqltype=mediumblob field6 T.Text sqltype=longblob field7 Double sqltype=double(6,5)+ field8 Int32+ field9 Bool |] specsWith :: (MonadIO m) => RunDb SqlBackend m -> Spec