Running ‘testthat.R’ [3s/5s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > testthat::test_check("rock");
  Loading required package: rock
  ── 1. Error: an inductive code tree is read correctly (@test-rock-general.R#24) 
  not a function
  1: parse_source(file.path(examplePath, "longer-test.rock"), silent = TRUE) at testthat/test-rock-general.R:24
  2: data.tree::Clone(res$deductiveCodeTrees)
  3: .Clone(node, pruneFun, attributes)
  4: node$clone()
  5: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  6: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 2. Error: a code tree is printed correctly (@test-rock-general.R#39)  ───────
  not a function
  1: parse_source(file.path(examplePath, "longer-test.rock"), silent = TRUE) at testthat/test-rock-general.R:39
  2: data.tree::Clone(res$deductiveCodeTrees)
  3: .Clone(node, pruneFun, attributes)
  4: node$clone()
  5: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  6: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 3. Error: a single deductive code tree is read correctly (@test-rock-general.
  not a function
  1: parse_source(file.path(examplePath, "second-test-file.rock")) at testthat/test-rock-general.R:56
  2: data.tree::Clone(res$deductiveCodeTrees)
  3: .Clone(node, pruneFun, attributes)
  4: node$clone()
  5: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  6: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 4. Error: Multiple sources are read correctly (@test-rock-general.R#70)  ────
  not a function
  1: parse_sources(examplePath, extension = "rock", silent = TRUE) at testthat/test-rock-general.R:70
  2: data.tree::Clone(res$deductiveCodeTrees)
  3: .Clone(node, pruneFun, attributes)
  4: node$clone()
  5: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  6: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 5. Error: A deductive code tree is read correctly from multiple DCT files (@t
  not a function
  1: parse_sources(examplePath, extension = "dct", silent = TRUE) at testthat/test-rock-general.R:98
  2: data.tree::Clone(res$deductiveCodeTrees)
  3: .Clone(node, pruneFun, attributes)
  4: node$clone()
  5: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  6: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 2 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 5 ]
  1. Error: an inductive code tree is read correctly (@test-rock-general.R#24) 
  2. Error: a code tree is printed correctly (@test-rock-general.R#39) 
  3. Error: a single deductive code tree is read correctly (@test-rock-general.R#56) 
  4. Error: Multiple sources are read correctly (@test-rock-general.R#70) 
  5. Error: A deductive code tree is read correctly from multiple DCT files (@test-rock-general.R#98) 
  
  Error: testthat unit tests failed
  Execution halted