digestive-functors-aeson 1.1.2 → 1.1.3

raw patch · 2 files changed

+22/−21 lines, 2 filesdep +tastydep +tasty-hunitdep −test-frameworkdep −test-framework-hunitdep ~digestive-functors-aeson

Dependencies added: tasty, tasty-hunit

Dependencies removed: test-framework, test-framework-hunit

Dependency ranges changed: digestive-functors-aeson

Files

• digestive-functors-aeson.cabal +5/−4
• test/Tests.hs +17/−17

@@ -1,6 +1,6 @@ name: digestive-functors-aeson category: Web, JSON-version: 1.1.2+version: 1.1.3 license: GPL-3 license-file: LICENSE author: Oliver Charles@@ -43,13 +43,14 @@   hs-source-dirs: test   main-is: Tests.hs   build-depends:+    digestive-functors-aeson,+     aeson,     base >= 4.5 && < 4.7,     bytestring >= 0.9,     digestive-functors >= 0.6,-    digestive-functors-aeson ==1.1,     HUnit >= 1.2,     mtl,-    test-framework >= 0.6,-    test-framework-hunit,+    tasty >= 0.1,+    tasty-hunit >= 0.1,     text >= 0.11

@@ -1,16 +1,16 @@ {-# LANGUAGE OverloadedStrings #-} module Main where -import           Control.Applicative-import           Control.Monad.Identity (runIdentity)-import           Data.Aeson (decode)-import           Data.ByteString.Lazy.Char8 ()-import           Data.Text-import           Test.Framework (Test, defaultMain, testGroup)-import           Test.Framework.Providers.HUnit (testCase)-import           Test.HUnit ((@?=))-import           Text.Digestive (Form, (.:), check, text, listOf)-import           Text.Digestive.Aeson (digestJSON, jsonErrors)+import Control.Applicative+import Control.Monad.Identity (runIdentity)+import Data.Aeson (decode)+import Data.ByteString.Lazy.Char8 ()+import Data.Text (Text)+import Test.HUnit ((@?=))+import Text.Digestive (Form, (.:), check, text, listOf)+import Text.Digestive.Aeson (digestJSON, jsonErrors)+import Test.Tasty (TestTree, defaultMain, testGroup)+import Test.Tasty.HUnit (testCase)  import qualified Data.Text as T @@ -31,7 +31,7 @@   ---------------------------------------------------------------------------------testPokemon :: Test+testPokemon :: TestTree testPokemon = testGroup "Pokemon tests" [ testPokemonOk, testPokemonInvalid ]   where     testPokemonOk = testCase "Submit pokeForm with valid data" $@@ -53,7 +53,7 @@   ---------------------------------------------------------------------------------testPokedex :: Test+testPokedex :: TestTree testPokedex = testGroup "Pokedex tests"                 [ testPokedexSingle                 , testPokedexMany@@ -101,7 +101,7 @@   ---------------------------------------------------------------------------------testTopLevelLists :: Test+testTopLevelLists :: TestTree testTopLevelLists = testCase "Top level lists" $ do   let (Just json) = decode "[\"hello\", \"world\"]"   (runIdentity $ snd <$> digestJSON (listOf text Nothing) json)@@ -110,8 +110,8 @@  -------------------------------------------------------------------------------- main :: IO ()-main = defaultMain [ testPokemon-                   , testPokedex-                   , testTopLevelLists-                   ]+main = defaultMain $ testGroup "Tests" [ testPokemon+                                       , testPokedex+                                       , testTopLevelLists+                                       ]