test_that("basic functionality is working", {
  expect_true(log_info("info"))
  expect_false(log_trace("trace"))
  expect_output(log_info("INFO"))
  expect_silent(log_trace("TRACE"))
})

test_that("default functionality is OK", {
  Sys.unsetenv("LOG_LEVEL")
  expect_true(log_fatal("FATAL"))
  expect_true(log_error("ERROR"))
  expect_true(log_warn("WARN"))
  expect_output(log_info("INFO"))
  expect_silent(log_debug("DEBUG"))
  expect_silent(log_trace("TRACE"))
})

test_that("default functionality is OK", {
  Sys.setenv("LOG_LEVEL" = "TRACE")
  expect_true(log_fatal("FATAL"))
  expect_true(log_error("ERROR"))
  expect_true(log_warn("WARN"))
  expect_output(log_info("INFO"))
  expect_output(log_debug("DEBUG"))
  expect_output(log_trace("TRACE"))
})

test_that("output is going going to the correct stdout/stderr", {
  expect_match(capture.output(log_warn("warn"), type = "message"), "warn$")
  expect_match(capture.output(log_error("error"), type = "message"), "error$")
  expect_match(capture.output(log_fatal("fatal"), type = "message"), "fatal$")
})

test_that("multi-part messages render as expected", {
  test_var1 <- "hats"
  test_var2 <- "shoes"
  test_var3 <- c("trilby", "porkpie", "fez")
  expect_output(log_info("my message", test_var1, test_var2, "end"))
  expect_match(capture_output(log_info("my message", test_var1, test_var2, "end")), "my message hats shoes end$")
  expect_match(capture_output(log_info("my message", test_var3)), 'my message c[(]\"trilby\", \"porkpie\", \"fez\"[)]$')
})