Test case inserts failing checks into my production consul

[nh2]

This test code

consul-haskell/tests/Main.hs

Lines 308 to 323 in 85bf68a

	testRunServiceTtl :: TestTree
	testRunServiceTtl = testCase "testRunServiceTtl" $ do
	client@ConsulClient{..} <- newClient
	let register = RegisterService Nothing "testRunServiceTtl" [] (Just 8000) $ Just $ Ttl "10s"
	runService client register (action client) Nothing
	where
	action client = do
	threadDelay 15000000
	mHealth <- getServiceHealth client "testRunServiceTtl"
	case mHealth of
	Nothing -> assertFailure "testRunServiceTtl: No healthcheck was found"
	Just [x] -> do
	let checks = hChecks x
	mapM_ (testCheck) checks
	testCheck check = do
	assertBool "testRunServiceTtl: Check not passing" $ cStatus check == Passing

connects to consul on port 8500 and inserts a TTL check.

When you build the package with tests enabled (which is what many build tools, in my case nix, do by default), this will mess with the consul on your machine.

It doesn't even delete the TTL check, so after the test executable runs, the TTL check will swiftly fail, possibly even paging you.

[nh2]

I think if anything, the tests should pull up a throwaway consul and use that.

[nh2]

I've made a commit that fixes this: nh2@63d9f0a

But first: #23

[nh2]

Subsumed by #25, where I've cherry-picked the relevant commit and made it compile with other recent PRs.