tests/testthat/test-topic.R

In klmr/roxydoxy: Documentation for non-package R code

context("Topic")

test_that("adding tags merges with existing", {
  rd <- RoxyTopic$new()

  rd$add(roxy_field_simple("x", 1))
  rd$add(roxy_field_simple("x", 2))

  expect_equal(rd$get_field("x")$values, c(1, 2))
})

test_that("unless overwrite = TRUE", {
  rd <- RoxyTopic$new()

  rd$add(roxy_field_simple("x", 1))
  rd$add(roxy_field_simple("x", 2), overwrite = TRUE)

  expect_equal(rd$get_field("x")$values, 2)
})

test_that("can add a complete file", {
  rd1 <- RoxyTopic$new()
  rd2 <- RoxyTopic$new()

  rd1$add(roxy_field_simple("x", 1))
  rd2$add(roxy_field_simple("x", 2))
  rd2$add(rd1)

  expect_equal(rd2$get_field("x")$values, c(2, 1))
})