unitizer: Interactive R Unit Tests

source(file.path("_helper", "init.R"))

# - "Rename Works" -------------------------------------------------------------

x <- readRDS("_helper/unitizers/trivial.unitizer/data.rds")
x.edit <- editCalls(x, quote(x), quote(y), interactive.only = FALSE)
x.edit@items.ref.calls.deparse
!identical(x@items.ref.calls.deparse, x.edit@items.ref.calls.deparse)
identical(
  x.edit@items.ref.calls.deparse,
  gsub("\\bx\\b", "y", x@items.ref.calls.deparse)
)

# warn
unitizer:::read_line_set_vals("Y")
x.edit2 <- editCalls(x, quote(x), quote(y), interactive.mode = TRUE)
# message
unitizer:::read_line_set_vals("N")
x.edit3 <- editCalls(x, quote(x), quote(y), interactive.mode = TRUE)
identical(x.edit3, x)

unitizer:::read_line_set_vals(NULL)
x.edit@items.ref.calls.deparse