
R Under development (unstable) (2021-07-17 r80639) -- "Unsuffered Consequences"
Copyright (C) 2021 The R Foundation for Statistical Computing
Platform: x86_64-apple-darwin17.0 (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> source(file.path("_helper", "init.R"))
> 
> # - "Test Error Diffs" ---------------------------------------------------------
> 
> diffs <- new(
+   "unitizerItemTestsErrorsDiffs",
+   value = new("unitizerItemTestsErrorsDiff",
+   txt = "value", err = TRUE, diff = diffobj::diffChr(1, 2))
+ )
> diffs$value@diff@target
[1] 1
> diffs$value@diff@current
[1] 2
> try(diffs$values)
Error in .local(x, i, j, ...) : 
  Argument `i` must be one of c("value", "conditions", "output", "message", "aborted", "state")
> try(diffs[[NA]])
Error in .local(x, i, j, ...) : 
  Argument `i` must be character(1L) and not NA
> err <- new(
+   "unitizerItemTestsErrors", 
+   value = new(
+     "unitizerItemTestError", compare.err = TRUE, value = c("compare", "error")
+ ) )
> # - "Show Test Error" ----------------------------------------------------------
> 
> is(unitizer:::as.Diffs(err)@value, "unitizerItemTestsErrorsDiff")
[1] TRUE
> 
> proc.time()
   user  system elapsed 
  0.891   0.137   1.072 
