mirror of
https://github.com/ilyakooo0/servant-quickcheck.git
synced 2024-08-16 22:00:32 +03:00
base-compat for tests.
And test import cleanup.
This commit is contained in:
parent
eb51069cb5
commit
c5172a1dc5
@ -68,12 +68,13 @@ library
|
||||
|
||||
test-suite spec
|
||||
type: exitcode-stdio-1.0
|
||||
ghc-options: -Wall -O2 -threaded
|
||||
ghc-options: -Wall -threaded
|
||||
default-language: Haskell2010
|
||||
hs-source-dirs: test
|
||||
main-is: Spec.hs
|
||||
other-modules: Servant.QuickCheck.InternalSpec
|
||||
build-depends: base == 4.*
|
||||
, base-compat
|
||||
, servant-quickcheck
|
||||
, hspec
|
||||
, http-client
|
||||
@ -88,5 +89,6 @@ test-suite spec
|
||||
, FlexibleInstances
|
||||
, FlexibleContexts
|
||||
, DataKinds
|
||||
, NoImplicitPrelude
|
||||
if flag(long-tests)
|
||||
cpp-options: -DLONG_TESTS
|
||||
|
@ -1,18 +1,18 @@
|
||||
{-# LANGUAGE CPP #-}
|
||||
{-# LANGUAGE CPP #-}
|
||||
{-# LANGUAGE ScopedTypeVariables #-}
|
||||
module Servant.QuickCheck.InternalSpec (spec) where
|
||||
|
||||
import Control.Concurrent.MVar (newMVar, readMVar, swapMVar)
|
||||
import Control.Monad.IO.Class (liftIO)
|
||||
import Data.Proxy
|
||||
import Servant
|
||||
import Test.Hspec
|
||||
import Test.QuickCheck
|
||||
import Servant.API.Internal.Test.ComprehensiveAPI
|
||||
import Control.Concurrent.MVar (newMVar, readMVar,
|
||||
swapMVar)
|
||||
import Control.Monad.IO.Class (liftIO)
|
||||
import Prelude.Compat
|
||||
import Servant
|
||||
import Servant.API.Internal.Test.ComprehensiveAPI (comprehensiveAPI)
|
||||
import Test.Hspec (Spec, describe, it,
|
||||
shouldBe)
|
||||
|
||||
import Servant.QuickCheck
|
||||
|
||||
import Servant.QuickCheck.Internal (genRequest, serverDoesntSatisfy)
|
||||
import Servant.QuickCheck
|
||||
import Servant.QuickCheck.Internal (genRequest, serverDoesntSatisfy)
|
||||
|
||||
spec :: Spec
|
||||
spec = do
|
||||
@ -79,7 +79,7 @@ ctx = BasicAuthCheck (const . return $ NoSuchUser) :. EmptyContext
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
args :: Args
|
||||
args = stdArgs { maxSuccess = noOfTestCases }
|
||||
args = defaultArgs { maxSuccess = noOfTestCases }
|
||||
|
||||
noOfTestCases :: Int
|
||||
#if LONG_TESTS
|
||||
|
Loading…
Reference in New Issue
Block a user