haskell/servant-quickcheck
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

base-compat for tests.

Browse Source 
And test import cleanup.
This commit is contained in:
Julian K. Arni 2016-05-09 17:59:37 +02:00
parent eb51069cb5
commit c5172a1dc5
2 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
servant-quickcheck.cabal
View File

@ -68,12 +68,13 @@ library
test-suite spec test-suite spec
type: exitcode-stdio-1.0 type: exitcode-stdio-1.0
ghc-options: -Wall -O2 -threaded ghc-options: -Wall -threaded
default-language: Haskell2010 default-language: Haskell2010
hs-source-dirs: test hs-source-dirs: test
main-is: Spec.hs main-is: Spec.hs
other-modules: Servant.QuickCheck.InternalSpec other-modules: Servant.QuickCheck.InternalSpec
build-depends: base == 4.* build-depends: base == 4.*
, base-compat
, servant-quickcheck , servant-quickcheck
, hspec , hspec
, http-client , http-client
@ -88,5 +89,6 @@ test-suite spec
, FlexibleInstances , FlexibleInstances
, FlexibleContexts , FlexibleContexts
, DataKinds , DataKinds
, NoImplicitPrelude
if flag(long-tests) if flag(long-tests)
cpp-options: -DLONG_TESTS cpp-options: -DLONG_TESTS

14
test/Servant/QuickCheck/InternalSpec.hs
View File

@ -2,16 +2,16 @@
{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE ScopedTypeVariables #-}
module Servant.QuickCheck.InternalSpec (spec) where module Servant.QuickCheck.InternalSpec (spec) where
import Control.Concurrent.MVar (newMVar, readMVar, swapMVar) import Control.Concurrent.MVar (newMVar, readMVar,
swapMVar)
import Control.Monad.IO.Class (liftIO) import Control.Monad.IO.Class (liftIO)
import Data.Proxy import Prelude.Compat
import Servant import Servant
import Test.Hspec import Servant.API.Internal.Test.ComprehensiveAPI (comprehensiveAPI)
import Test.QuickCheck import Test.Hspec (Spec, describe, it,
import Servant.API.Internal.Test.ComprehensiveAPI shouldBe)
import Servant.QuickCheck import Servant.QuickCheck
import Servant.QuickCheck.Internal (genRequest, serverDoesntSatisfy) import Servant.QuickCheck.Internal (genRequest, serverDoesntSatisfy)
spec :: Spec spec :: Spec
@ -79,7 +79,7 @@ ctx = BasicAuthCheck (const . return $ NoSuchUser) :. EmptyContext
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
args :: Args args :: Args
args = stdArgs { maxSuccess = noOfTestCases } args = defaultArgs { maxSuccess = noOfTestCases }
noOfTestCases :: Int noOfTestCases :: Int
#if LONG_TESTS #if LONG_TESTS