Merge pull request #169 from mrc-ide/fix-tests-devel

Fix tests on R-devel.
mrc-ide · Sep 2, 2024 · 8acc928 · 8acc928
2 parents 3e9d400 + 9b38e9f
commit 8acc928
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: orderly2
 Title: Orderly Next Generation
-Version: 1.99.28
+Version: 1.99.29
 Authors@R: c(person("Rich", "FitzJohn", role = c("aut", "cre"),
                     email = "[email protected]"),
              person("Robert", "Ashton", role = "aut"),

diff --git a/tests/testthat/test-outpack-root.R b/tests/testthat/test-outpack-root.R
@@ -100,7 +100,7 @@ test_that("Can work out what packets are missing", {
   for (name in c("a", "b")) {
     root[[name]] <- create_temporary_root()
   }
-  ids <- create_random_packet_chain(root$a, 3)
+  ids <- unname(create_random_packet_chain(root$a, 3))
   orderly_location_add("a", "path", list(path = root$a$path), root = root$b)
   orderly_location_pull_metadata(root = root$b)
 
@@ -118,7 +118,7 @@ test_that("Can work out what packets are missing", {
   expect_equal(root_list_unknown_packets(rev(ids_fake), root$a),
                rev(ids_fake))
 
-  ids_all <- sample(c(unname(ids), ids_fake))
+  ids_all <- sample(c(ids, ids_fake))
   expect_equal(root_list_unknown_packets(ids_all, root$a),
                setdiff(ids_all, ids))
   expect_equal(root_list_unknown_packets(ids_all, root$b),