coverage

Author: wlandau

Diff for: tests/testthat/test-class_meta.R

@@ -67,6 +67,44 @@ tar_test("builder metadata recording", {
   expect_equal(nrow(db$read_data()), 1L)
 })
 
+tar_test("meta$set_record()", {
+  skip_cran()
+  out <- meta_init()
+  target <- target_init("x", quote(sample.int(100)))
+  pipeline <- pipeline_init(list(target), clone_targets = FALSE)
+  local <- local_init(pipeline)
+  local$run()
+  meta <- local$meta
+  db <- meta$database
+  db$ensure_storage()
+  expect_gt(nrow(db$read_data()), 0L)
+  db$reset_storage()
+  expect_equal(nrow(db$read_data()), 0L)
+  meta$database$lookup <- lookup_new()
+  expect_false(meta$exists_record("x"))
+  meta$set_record(target_produce_record(target, pipeline, meta))
+  expect_true(meta$exists_record("x"))
+})
+
+tar_test("meta$insert_row()", {
+  skip_cran()
+  out <- meta_init()
+  target <- target_init("x", quote(sample.int(100)))
+  pipeline <- pipeline_init(list(target), clone_targets = FALSE)
+  local <- local_init(pipeline)
+  local$run()
+  meta <- local$meta
+  db <- meta$database
+  db$ensure_storage()
+  expect_gt(nrow(db$read_data()), 0L)
+  db$reset_storage()
+  expect_equal(nrow(db$read_data()), 0L)
+  meta$database$lookup <- lookup_new()
+  expect_false(meta$exists_record("x"))
+  meta$insert_row(list(name = "x", data = "y"))
+  expect_true(meta$exists_record("x"))
+})
+
 tar_test("meta$record_imports()", {
   envir <- new.env(parent = emptyenv())
   envir$f <- function(x) g(x) + h(x)

Diff for: tests/testthat/test-tar_visnetwork.R

@@ -10,6 +10,12 @@ tar_test("tar_visnetwork()", {
     )
   })
   out <- tar_visnetwork(
+    label = c(
+      "description",
+      "time",
+      "size",
+      "branches"
+    ),
     callr_function = NULL,
     callr_arguments = list(show = FALSE)
   )