update travis.
This commit is contained in:
parent
a64557ede7
commit
08973f15ba
7
.travis-script.sh
Normal file
7
.travis-script.sh
Normal file
@ -0,0 +1,7 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
|
||||||
|
memcached &
|
||||||
|
|
||||||
|
cabal configure --enable-tests
|
||||||
|
cabal build
|
||||||
|
cabal test
|
||||||
@ -2,3 +2,4 @@ language: haskell
|
|||||||
ghc:
|
ghc:
|
||||||
- 7.8
|
- 7.8
|
||||||
- 7.6
|
- 7.6
|
||||||
|
script: bash -eu .travis-script.sh
|
||||||
|
|||||||
@ -28,3 +28,16 @@ library
|
|||||||
ghc-options: -Wall -O2
|
ghc-options: -Wall -O2
|
||||||
hs-source-dirs: src
|
hs-source-dirs: src
|
||||||
default-language: Haskell2010
|
default-language: Haskell2010
|
||||||
|
|
||||||
|
test-suite test
|
||||||
|
type: exitcode-stdio-1.0
|
||||||
|
hs-source-dirs: test
|
||||||
|
main-is: test.hs
|
||||||
|
ghc-options: -Wall -O2
|
||||||
|
build-depends: base >=4.6 && <4.8
|
||||||
|
, memcached-binary
|
||||||
|
, test-framework >=0.8 && <0.9
|
||||||
|
, test-framework-hunit >=0.3 && <0.4
|
||||||
|
, process >=1.2 && <1.3
|
||||||
|
, network >=2.6 && <2.7
|
||||||
|
default-language: Haskell2010
|
||||||
|
|||||||
24
test/test.hs
Normal file
24
test/test.hs
Normal file
@ -0,0 +1,24 @@
|
|||||||
|
{-# LANGUAGE ScopedTypeVariables #-}
|
||||||
|
import Control.Exception
|
||||||
|
import Control.Concurrent
|
||||||
|
import Control.Monad
|
||||||
|
import Network
|
||||||
|
import System.Process
|
||||||
|
import Database.Memcached.Binary
|
||||||
|
import Test.Framework
|
||||||
|
import Test.Framework.Providers.HUnit
|
||||||
|
|
||||||
|
startMemcached :: IO ProcessHandle
|
||||||
|
startMemcached = do
|
||||||
|
h <- spawnProcess "memcached" []
|
||||||
|
wait (100 :: Int)
|
||||||
|
return h
|
||||||
|
where
|
||||||
|
wait 0 = fail "cannot start server"
|
||||||
|
wait i = handle (\(_ ::SomeException) -> threadDelay 100000 >> wait (i-1)) $
|
||||||
|
void $ connectTo "localhost" $ PortNumber 11211
|
||||||
|
|
||||||
|
main :: IO ()
|
||||||
|
main = bracket startMemcached terminateProcess $ \_ -> defaultMain
|
||||||
|
[ testCase "version" . void $ withConnection def version
|
||||||
|
]
|
||||||
Loading…
Reference in New Issue
Block a user