@@ -28,6 +28,7 @@ import Network.Connection (TLSSettings (..))
2828import Network.HTTP.Client (newManager)
2929import Network.HTTP.Client.TLS
3030import Network.HTTP.Types.Status
31+import System.Environment (lookupEnv)
3132import System.Process (system)
3233
3334import Docker.Client
@@ -186,5 +187,10 @@ fromRight (Right r) = return r
186187
187188main :: IO ()
188189main = do
189− setup
190− defaultMain $ testGroup "Tests" [jsonTests, integrationTests]
190+ stackage <- lookupEnv "RUN_INTEGRATION_TESTS"
191+ case stackage of
192+ Nothing -> defaultMain $ testGroup "Tests" [jsonTests]
193+ Just _ -> do
194+ setup
195+ defaultMain $ testGroup "Tests" [jsonTests, integrationTests]
196+