tests/testthat/test-util.R

In reside-ic/traduire: Internationalisation on the Fly

context("util")

test_that("null-or-value works", {
  expect_equal(1 %||% NULL, 1)
  expect_equal(1 %||% 2, 1)
  expect_equal(NULL %||% NULL, NULL)
  expect_equal(NULL %||% 2, 2)
})


test_that("sensible errors on missing files", {
  input <- tempfile(fileext = ".json")
  expect_error(read_input(input),
               "'input' looks like a filename but does not exist")
})


test_that("read_input passes json through", {
  dat <- '{"a" : "b"}'
  expect_equal(read_input(dat), jsonlite::unbox(dat))
})


test_that("expand_paths expands paths", {
  expect_setequal(
    expand_paths(traduire_file("hello/R")),
    c(traduire_file("hello/R/api.R"),
      traduire_file("hello/R/hello.R")))
})


test_that("browse_html", {
  code <- "hello world"
  mock_browser <- mockery::mock()
  mockery::stub(
    browse_html,
    "utils::browseURL",
    mock_browser)
  res <- withVisible(browse_html(code))
  expect_false(res$visible)
  expect_true(file.exists(res$value))
  expect_equal(readLines(res$value), code)
  mockery::expect_called(mock_browser, 1)
  mockery::expect_call(mock_browser, 1, utils::browseURL(file))
})


test_that("parse data match call", {
  ## TODO (reside-95): this is probably a bit implementation
  ## dependent. We should compute the positions of these characters
  ## rather than encoding them here.  Marked as skip_on_cran to
  ## indicate that it's too implementation dependent.
  skip_on_cran()
  data <- parse_data(parse(text = "f('a', b = 2, 'c')", keep.source = TRUE))
  i <- which(data$text == "f")[[1]]
  expect_equal(parse_data_match_call(i, data, function(a, b, c) {}),
               list(a = list(name = NULL, value = 5:6),
                    b = list(name = 8, value = 10:11),
                    c = list(name = NULL, value = 13:14)))
  expect_equal(parse_data_match_call(i, data, function(x, y, b) {}),
               list(x = list(name = NULL, value = 5:6),
                    y = list(name = NULL, value = 13:14),
                    b = list(name = 8, value = 10:11)))
})