Fix test

Author: r-ash

R/deduplicate.R

@@ -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",

tests/testthat/test-deduplicate.R

@@ -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", {