Skip to content

Commit

Permalink
Fix test
Browse files Browse the repository at this point in the history
  • Loading branch information
r-ash committed Dec 23, 2021
1 parent 6c4530e commit 9fd642d
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 3 deletions.
2 changes: 1 addition & 1 deletion R/deduplicate.R
Original file line number Diff line number Diff line change
Expand Up @@ -104,7 +104,7 @@ orderly_deduplicate_info <- function(config) {

## Quick check:
can_deduplicate <- all(vlapply(split(files, files$hash), function(x) {
all(x$inode_first == x$inode[[1]])
isTRUE(all(x$inode_first == x$inode[[1]]))
}))
if (!can_deduplicate) {
stop(paste("Cannot deduplicate archive as database references files",
Expand Down
4 changes: 2 additions & 2 deletions tests/testthat/test-deduplicate.R
Original file line number Diff line number Diff line change
Expand Up @@ -184,9 +184,9 @@ test_that("deduplicate fails if file is missing", {

unlink(file.path(path, "archive", "minimal", id1, "script.R"))

expect_error(orderly_deduplicate_info(orderly_config(path), paste(
expect_error(orderly_deduplicate_info(orderly_config(path)), paste(
"Cannot deduplicate archive as database references files",
"which don't exist.")))
"which don't exist."))
})

test_that("deduplicate fails if report pulled from remote recursive FALSE", {
Expand Down

0 comments on commit 9fd642d

Please sign in to comment.