test_that("reset ini cache", {
  content <- read_ini("data_ini")
  expected_cache <- length(names(ini_cache)) > 0

  paws_reset_cache()

  expected_empty <- length(names(ini_cache)) == 0

  expect_true(expected_cache)
  expect_true(expected_empty)
})

# skip test if not on unix OS
test_that("reset os env cache", {
  skip_if(.Platform$OS.type != "unix")

  os_env_cache[["RANDOM"]] <- paste(sample(letters, 10), collapse = "")

  paws_reset_cache()

  expect_null(os_env_cache[["RANDOM"]])
})

# skip test if not on unix OS
test_that("check if environmental variables are parsed correctly", {
  skip_if(.Platform$OS.type != "unix")
  expect <- sprintf(
    "var1=%s var2=%s var2=%s",
    paste(sample(letters, 10), collapse = ""),
    paste(sample(letters, 10), collapse = ""),
    paste(sample(letters, 10), collapse = "")
  )
  fake_env <- c(
    "ENV_VAR1=foo",
    sprintf("ENV_VAR2=%s",expect),
    "ENV_VAR3=bar"
  )

  mock_system <- mock2(fake_env)
  mockery::stub(set_os_env_cache, "system", mock_system)

  set_os_env_cache()
  expect_equal(os_env_cache[["ENV_VAR1"]], "foo")
  expect_equal(os_env_cache[["ENV_VAR2"]], expect)
  expect_equal(os_env_cache[["ENV_VAR3"]], "bar")
})