statsTest :: Test
statsTest = TestCase $ withServerConnection $ \server -> do
  stats <- S.stats server
  assertBool "stats returns multiple stats" (length stats > 10)
statsTest :: Test
statsTest = TestCase $ withServerConnection $ \server -> do
  stats <- S.stats server
  assertBool "stats returns multiple stats" (length stats > 10)
statsTest = TestCase $ withServerConnection $ \server -> do
  stats <- S.stats server
  assertBool "stats returns multiple stats" (length stats > 10)