Skip to content

Commit

Permalink
Migrate through test-class_store_custom.R
Browse files Browse the repository at this point in the history
  • Loading branch information
wlandau-lilly committed Dec 4, 2023
1 parent 4155219 commit 8bf498c
Show file tree
Hide file tree
Showing 3 changed files with 6 additions and 6 deletions.
6 changes: 3 additions & 3 deletions tests/testthat/test-class_patternview.R
Original file line number Diff line number Diff line change
Expand Up @@ -39,7 +39,7 @@ tar_test("progress of a pattern with a canceled branch", {
progress <- local$scheduler$progress$database$read_data()
progress <- as_data_frame(progress)
progress <- progress[progress$name == "map", ]
expect_equal(progress$progress, c("started", "canceled"))
expect_equal(progress$progress, c("dispatched", "canceled"))
})

tar_test("progress of a pattern with a errored branch", {
Expand All @@ -61,7 +61,7 @@ tar_test("progress of a pattern with a errored branch", {
progress <- local$scheduler$progress$database$read_data()
progress <- as_data_frame(progress)
progress <- progress[progress$name == "map", ]
expect_equal(progress$progress, c("started", "errored"))
expect_equal(progress$progress, c("dispatched", "errored"))
})

tar_test("same, but continue on error", {
Expand All @@ -84,7 +84,7 @@ tar_test("same, but continue on error", {
progress <- local$scheduler$progress$database$read_data()
progress <- as_data_frame(progress)
progress <- progress[progress$name == "map", ]
expect_equal(progress$progress, c("started", "errored"))
expect_equal(progress$progress, c("dispatched", "errored"))
})

tar_test("patternview_validate()", {
Expand Down
4 changes: 2 additions & 2 deletions tests/testthat/test-class_stem.R
Original file line number Diff line number Diff line change
Expand Up @@ -409,6 +409,6 @@ tar_test("bootstrap a budding and a non-budding stem for shortcut", {
expect_equal(unname(tar_read(z)), c(3L, 4L))
p <- tar_progress()
expect_equal(nrow(p), 3L)
expect_equal(p$progress[grepl("^z_", p$name)], rep("built", 2L))
expect_equal(p$progress[p$name == "z"], "built")
expect_equal(p$progress[grepl("^z_", p$name)], rep("completed", 2L))
expect_equal(p$progress[p$name == "z"], "completed")
})
2 changes: 1 addition & 1 deletion tests/testthat/test-class_store_custom.R
Original file line number Diff line number Diff line change
Expand Up @@ -52,7 +52,7 @@ tar_test("class_store_custom rds", {
tar_target(x, "value", format = format)
})
tar_make(callr_function = NULL)
expect_equal(tar_progress(x)$progress, "built")
expect_equal(tar_progress(x)$progress, "completed")
expect_equal(tar_read(x), "value")
})

Expand Down

0 comments on commit 8bf498c

Please sign in to comment.