Simply test of getService

fastly.cabal

@@ -37,6 +37,7 @@ test-suite fastly-test
  main-is: Spec.hs
  build-depends: base
  , fastly
+ , text
  ghc-options: -threaded -rtsopts -with-rtsopts=-N
  default-language: Haskell2010
 

src/Network/Fastly.hs

@@ -1,12 +1,14 @@
 {-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
+
 module Network.Fastly
  ( FastlyAuth(..)
  , Username(..)
  , Password(..)
  , FastlyClient
  , fastlyClient
+ , fastly
  , FastlyResponse(..)
  -- Account
  {-
@@ -112,6 +114,8 @@ module Network.Fastly
  , getServiceDetails
  , getServiceByName
  , getService
+ , ServiceId(..)
+ , Service(..)
  {-
  , createService
  , deleteService

test/Spec.hs

@@ -1,2 +1,26 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+import qualified Network.Fastly as F
+import qualified System.Environment as Env
+import qualified Data.Text as T
+import qualified Data.Text.IO as T
+
+testGetService token serviceId = do
+ r <- F.fastly token (\client -> F.getService client serviceId)
+ case r of
+ Left err ->
+ T.putStrLn (T.intercalate " " ["Error: ", T.pack (show err)])
+ Right service ->
+ T.putStrLn (T.intercalate " " ["Service name: ", F.serviceName service])
+
+tests token serviceId = do
+ testGetService token serviceId
+
 main :: IO ()
-main = putStrLn "Test suite not yet implemented"
+main = do
+ args <- Env.getArgs
+ case args of
+ [token, serviceId] -> tests (T.pack token) (F.ServiceId (T.pack serviceId))
+ _ -> do
+ progName <- Env.getProgName
+ putStrLn ("usage: " ++ progName ++ " <token> <serviceId>")