persistent-test 2.13.0.2 → 2.13.0.3
raw patch · 4 files changed
+13/−12 lines, 4 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- PersistentTestModels: [dudeWeirdColumnsAge] :: DudeWeirdColumnsGeneric backend -> !Int
- PersistentTestModels: instance Database.Persist.Class.PersistEntity.SymbolToField "age" (PersistentTestModels.DudeWeirdColumnsGeneric backend) GHC.Types.Int
- PersistentTestModels: DudeWeirdColumns :: !Text -> !Int -> DudeWeirdColumnsGeneric backend
+ PersistentTestModels: DudeWeirdColumns :: !Text -> DudeWeirdColumnsGeneric backend
Files
- ChangeLog.md +4/−0
- persistent-test.cabal +1/−1
- src/PersistentTest.hs +5/−7
- src/PersistentTestModels.hs +3/−4
ChangeLog.md view
@@ -1,5 +1,9 @@ ## Unreleased changes +## 2.13.0.3++* Accidentally released 2.13.0.2 with some testing changes.+ ## 2.13.0.2 * [#1275](https://github.com/yesodweb/persistent/pull/1275)
persistent-test.cabal view
@@ -1,5 +1,5 @@ name: persistent-test-version: 2.13.0.2+version: 2.13.0.3 license: MIT license-file: LICENSE author: Michael Snoyman <michael@snoyman.com>
src/PersistentTest.hs view
@@ -76,21 +76,19 @@ safeToRemoveSpec :: forall backend m. Runner backend m => RunDb backend m -> Spec safeToRemoveSpec runDb = do- fdescribe "DudeWeirdColumns" $ do+ describe "DudeWeirdColumns" $ do it "can insert and get" $ do- let m = DudeWeirdColumns "hello" 50+ let m = DudeWeirdColumns "hello" runDb $ do k <- insert m mval <- get k liftIO $ fmap dudeWeirdColumnsName mval `shouldBe` Just "hello" it "can putMany" $ do let ms =- [ DudeWeirdColumns "hello" 32- , DudeWeirdColumns "goodbyue" 60+ [ DudeWeirdColumns "hello"+ , DudeWeirdColumns "goodbyue" ]- runDb $ do- putMany ms- putMany ms+ runDb $ putMany ms specsWith :: forall backend m. Runner backend m => RunDb backend m -> Spec specsWith runDb = describe "persistent" $ do
src/PersistentTestModels.hs view
@@ -19,7 +19,7 @@ -- just need to ensure this compiles import PersistentTestModelsImports() -share [mkPersist persistSettings { mpsGeneric = True }, mkMigrate "testMigrate"] [persistLowerCase|+share [mkPersist persistSettings { mpsGeneric = True }, mkMigrate "testMigrate"] [persistUpperCase| -- Dedented comment -- Header-level comment@@ -100,9 +100,8 @@ DudeWeirdColumns name Text- age Int- -- foo Int Maybe MigrationOnly- removedColumn String SafeToRemove+ foo Int Maybe MigrationOnly+ bar Double SafeToRemove UniqueName name deriving Eq Show