
context("Properties")

test_that("properties can be read successfully", {

  data <- '# This is a comment.\nKey: Value'

  path <- renv_scope_tempfile("renv-properties-")
  writeLines(data, con = path)

  # trim whitespace by default
  props <- renv_properties_read(path = path)
  expect_identical(props, list(Key = "Value"))

  # without trimming whitespace
  props <- renv_properties_read(path = path, trim = FALSE)
  expect_identical(props, list(Key = " Value"))

})

test_that("quoted properties are unquoted", {

  props <- renv_properties_read(
    path      = "resources/properties.txt",
    delimiter = "=",
    dequote   = TRUE
  )

  expected <- list(
    Key1 = "Value 1",
    Key2 = 'Value "2"',
    Key3 = "Value '3'"
  )

  expect_identical(props, expected)

})
