git.iko.soy/servant
on master help sign in
Move BaseUrlSpec
commit6995e39427c6e4ef1a9f206a4404796c3736e656 authorJulian K. Arni <jkarni@gmail.com> dateThu 7 Sep 2017, 16:17 (9 years ago) parentf44ab3d
3 files changed+12−5
compare with master
unifiedsplit
servant-client-core/servant-client-core.cabal+8 servant-client/test/Servant/Common/BaseUrlSpec.hs → servant-client-core/test/Servant/Client/Core/Internal/BaseUrlSpec.hs+3−5 servant-client-core/test/Spec.hs+1
servant-client-core/servant-client-core.cabal+8
@@ -56,6 +56,14 @@ test-suite spec
5656 default-language: Haskell2010
5757 hs-source-dirs: test
5858 main-is: Spec.hs
59+ build-depends:
60+ base
61+ , base-compat
62+ , deepseq
63+ , servant-client-core
64+ , hspec == 2.*
65+ , QuickCheck >= 2.7 && < 2.10
5966 other-modules:
67+ Servant.Client.Core.Internal.BaseUrlSpec
6068 build-depends:
6169 base == 4.*
servant-client/test/Servant/Common/BaseUrlSpec.hs → servant-client-core/test/Servant/Client/Core/Internal/BaseUrlSpec.hsrenamed+3−5
@@ -1,5 +1,6 @@
11{-# OPTIONS_GHC -fno-warn-orphans #-}
2−module Servant.Common.BaseUrlSpec where
2+module Servant.Client.Core.Internal.BaseUrlSpec (spec) where
3+
34
45import Control.DeepSeq
56import Prelude ()
@@ -7,7 +8,7 @@ import Prelude.Compat
78import Test.Hspec
89import Test.QuickCheck
910
10−import Servant.Common.BaseUrl
11+import Servant.Client.Core.Internal.BaseUrl
1112
1213spec :: Spec
1314spec = do
@@ -78,6 +79,3 @@ instance Arbitrary BaseUrl where
7879 (1, choose (1, 20000)) :
7980 []
8081 pathGen = listOf1 . elements $ letters
81−
82−isLeft :: Either a b -> Bool
83−isLeft = either (const True) (const False)
servant-client-core/test/Spec.hsnew file+1
@@ -0,0 +1 @@
1+{-# OPTIONS_GHC -F -pgmF hspec-discover #-}