tests/testthat/test-level.R

In bmoretz/dyn.log: Dynamic Logging for R Inspired by Configuration Driven Development

testthat::test_that(
  desc = "standard_levels_exist",
  code = {
    log_levels <- log_levels()

    expect_true(any(match(log_levels, "trace")))
    expect_true(any(match(log_levels, "debug")))
    expect_true(any(match(log_levels, "info")))
    expect_true(any(match(log_levels, "success")))
    expect_true(any(match(log_levels, "warn")))
    expect_true(any(match(log_levels, "error")))
    expect_true(any(match(log_levels, "fatal")))
  }
)

testthat::test_that(
  desc = "can_get_log_levels",
  code = {
    levels <- log_levels()

    expect_true(!is.null(levels))

    # base log levels
    expect_gte(length(levels), 7)
  }
)

testthat::test_that(
  desc = "can_get_log_levels_generic",
  code = {
    levels <- log_levels()

    expect_true(!is.null(levels))

    # base log levels
    expect_gte(length(levels), 7)
  }
)

testthat::test_that(
  desc = "can_get_log_levels",
  code = {
    levels <- log_levels()

    expect_true(!is.null(levels))

    # base log levels
    expect_gte(length(levels), 7)

    expect_true(!is.null(log_levels("fatal")))
    expect_true(!is.null(log_levels("error")))
    expect_true(!is.null(log_levels("warn")))
    expect_true(!is.null(log_levels("success")))
    expect_true(!is.null(log_levels("info")))
    expect_true(!is.null(log_levels("debug")))
    expect_true(!is.null(log_levels("debug")))
  }
)

testthat::test_that(
  desc = "get_name_works",
  code = {
    level <- new_log_level("TEST", "test level", 10L)

    actual <- level_name(level)

    expect_equal(actual, "TEST")

    # clean-up test level
    log_levels("test", level = NA)

    all_levels <- log_levels()
    expect_true(all(is.na(match(all_levels, "test"))))
  }
)

testthat::test_that(
  desc = "cast_level_name_works",
  code = {
    level <- new_log_level("TEST", "test level", 10L)

    actual <- as.character(level)

    expect_equal(actual, "TEST")

    # clean-up test level
    log_levels("test", level = NA)

    all_levels <- log_levels()
    expect_true(all(is.na(match(all_levels, "test"))))
  }
)

testthat::test_that(
  desc = "get_severity_works",
  code = {
    level <- new_log_level("TEST", "test level", 10L)

    actual <- level_severity(level)

    expect_equal(actual, 10L)

    # clean-up test level
    log_levels("test", level = NA)

    all_levels <- log_levels()
    expect_true(all(is.na(match(all_levels, "test"))))
  }
)

testthat::test_that(
  desc = "cast_level_severity_works",
  code = {
    level <- new_log_level(
      "TEST",
      "test level",
      10L
    )

    actual <- as.integer(level)

    expect_equal(actual, 10L)

    # clean-up test level
    log_levels("test", level = NA)

    all_levels <- log_levels()
    expect_true(all(is.na(match(all_levels, "test"))))
  }
)

testthat::test_that(
  desc = "can_create_log_level",
  code = {
    level <- new_log_level("TEST", "test level", 10L)

    expect_true(!is.null(level))
    expect_equal(class(level), c("level_TEST", "log_level"))

    # clean-up test level
    log_levels("test", level = NA)
  }
)

testthat::test_that(
  desc = "can_remove_log_level",
  code = {
    lvl <- new_log_level(name = "TEST",
                         description = "for testing",
                         severity = 42L,
                         log_style = crayon::blue,
                         msg_style = crayon::silver)

    all_levels <- log_levels()

    expect_true(any(!is.na(match(all_levels, tolower(level_name(lvl))))))

    log_levels("TEST", level = NA)

    all_levels <- log_levels()
    expect_true(all(is.na(match(all_levels, tolower(level_name(lvl))))))
  }
)

testthat::test_that(
  desc = "can_get_log_level_by_name",
  code = {
    level_names <- log_levels()

    matches <- sapply(level_names, function(lvl_name) {
      lvl <- log_levels(lvl_name)
      any(match(class(lvl), "log_level"))
    })

    expect_true(all(matches))
  }
)

testthat::test_that(
  desc = "can_get_lvl_info_by_name",
  code = {
    lvl_info <- lapply(log_levels(), function(lvl_name) {
      lvl <- log_levels(lvl_name)
      info <- level_info(lvl)
    })

    expect_true(all(!is.null(lvl_info)))
  }
)

testthat::test_that(
  desc = "invalid_log_level_detail_stops",
  code = {
    expect_error({
      level_info("ffdsa134")
    })
  }
)