persistent-template 1.0.0.1 → 1.0.0.2

raw patch · 2 files changed

+5/−8 lines, 2 filesdep −HUnitdep ~hspec

Dependencies removed: HUnit

Dependency ranges changed: hspec

Files

• persistent-template.cabal +2/−3
• test/main.hs +3/−5

@@ -1,5 +1,5 @@ name:            persistent-template-version:         1.0.0.1+version:         1.0.0.2 license:         MIT license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>@@ -35,11 +35,10 @@     build-depends:   base >= 4 && < 5                    , persistent-template                    , aeson-                   , hspec+                   , hspec >= 1.3                    , text                    , persistent                    , bytestring-                   , HUnit                    , QuickCheck  source-repository head

@@ -1,9 +1,7 @@ {-# LANGUAGE OverloadedStrings, QuasiQuotes, TemplateHaskell, TypeFamilies, GADTs #-} {-# LANGUAGE EmptyDataDecls #-}-import Test.Hspec.Monadic+import Test.Hspec import Test.Hspec.QuickCheck-import Test.Hspec.HUnit()-import Test.HUnit import Data.ByteString.Lazy.Char8 () import Test.QuickCheck.Arbitrary import Control.Applicative ((<$>), (<*>))@@ -43,10 +41,10 @@     arbitrary = Address <$> arbitraryT <*> arbitraryT <*> arbitrary  main :: IO ()-main = hspecX $ do+main = hspec $ do     describe "JSON serialization" $ do         prop "to/from is idempotent" $ \person ->             decode (encode person) == Just (person :: Person)         it "decode" $-            decode "{\"name\":\"Michael\",\"age\":27,\"address\":{\"street\":\"Narkis\",\"city\":\"Maalot\"}}" @?= Just+            decode "{\"name\":\"Michael\",\"age\":27,\"address\":{\"street\":\"Narkis\",\"city\":\"Maalot\"}}" `shouldBe` Just                 (Person "Michael" (Just 27) $ Address "Narkis" "Maalot" Nothing)