tests/testthat/test_b_read.R

In configr: An Implementation of Parsing and Writing Configuration File (JSON/INI/YAML/TOML)

config.json <- system.file("extdata", "config.json", package = "configr")
config.yaml <- system.file("extdata", "config.yaml", package = "configr")
config.ini <- system.file("extdata", "config.ini", package = "configr")
config.toml <- system.file("extdata", "config.toml", package = "configr")
config.error.toml <- system.file("extdata", "config.error.toml", package = "configr")
config.list <- list(json = config.json, yaml = config.yaml, ini = config.ini, toml = config.toml)

test_that("read.config Function", {
  config.opts <- c("json", "ini", "yaml", "toml")
  for (i in config.opts) {
    x <- read.config(config.list[[i]])
    expect_that(is.list(x) && length(x) >= 1, equals(TRUE))
  }
})

test_that("read.config using extra.list parse", {
  config.opts <- c("json", "ini", "yaml", "toml")
  for (i in config.opts) {
    x <- read.config(config.list[[i]], extra.list = list(debug = "TRUE"))
    expect_that(is.list(x) && length(x) >= 1, equals(TRUE))
    parsed.value <- x$default$debug
    expect_that(parsed.value, equals("TRUE {{debug2}}"))
  }
})

test_that("eval.config Function", {
  config.opts <- c("json", "ini", "yaml", "toml")
  for (i in config.opts) {
    x <- eval.config(file = config.list[[i]])
    expect_that(is.list(x) && length(x) >= 1, equals(TRUE))
    expect_that(attributes(x)$config, equals("default"))
    expect_that(attributes(x)$configtype, equals(i))
    file.attr <- attributes(x)$file
    expect_that(is.character(file.attr), equals(TRUE))
    expect_that(file.attr, equals(config.list[[i]]))
  }
})

test_that("eval.config using extra.list parse", {
  config.opts <- c("json", "ini", "yaml", "toml")
  for (i in config.opts) {
    x <- eval.config(file = config.list[[i]], extra.list = list(debug = "TRUE"))
    expect_that(is.list(x) && length(x) >= 1, equals(TRUE))
    parsed.value <- x$debug
    expect_that(parsed.value, equals("TRUE {{debug2}}"))
  }
})

test_that("eval.config.sections Function", {
  config.opts <- c("json", "ini", "yaml", "toml")
  for (i in config.opts) {
    x <- eval.config.sections(config.list[[i]])
    expect_that(length(x) > 1, equals(TRUE))
    expect_that("default" %in% x, equals(TRUE))
  }
})

test_that("eval.config and eval.config.sections Exception Handling", {
  suppressWarnings(x <- read.config(file = "unknow"))
  expect_that(x, equals(FALSE))
  suppressWarnings(x <- read.config(file = config.error.toml))
  expect_that(x, equals(FALSE))
  suppressWarnings(x <- read.config(file = config.error.toml))
  expect_that(x, equals(FALSE))
  suppressWarnings(x <- eval.config(file = "unknow"))
  expect_that(x, equals(FALSE))
  suppressWarnings(x <- eval.config(file = config.error.toml))
  expect_that(x, equals(FALSE))
  suppressWarnings(x <- eval.config.sections(file = "unknow"))
  expect_that(x, equals(FALSE))
  suppressWarnings(x <- eval.config.sections(file = config.error.toml))
  expect_that(x, equals(FALSE))
})

test_that("str2config", {
  json_string <- '{"city" : "Z\\u00FCrich"}\n'
  x <- str2config(json_string)
  expect_that(is.list(x), equals(TRUE))
  expect_that(names(x), equals("city"))
  yaml_string <- 'foo: 123\n'
  x <- str2config(yaml_string)
  expect_that(is.list(x), equals(TRUE))
  expect_that(names(x), equals("foo"))
})