tests/testthat/test-apply_changes.R

In origin: Explicitly Qualifying Namespaces by Automatically Adding 'pkg::' to Functions

testthat::test_that("apply_changes", {

  # everything remains as before
  result <- list(to_write = letters)
  testthat::expect_message(
    testthat::expect_equal(apply_changes(result = result,
                                         init_script = letters),
                           NULL)
  )
})