some test fixes

rnabioco · Nov 13, 2023 · 13704b2 · 13704b2
1 parent a392955
commit 13704b2
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/tests/testthat/test-calc-gene-usage.R b/tests/testthat/test-calc-gene-usage.R
@@ -77,14 +77,14 @@ test_all_args(
 
   x <- gns |>
     purrr::set_names() |>
-    map(~ {
+    purrr::map(~ {
       dat[[.x]] |>
-        map(stringr::str_split, ";") |>
+        purrr::map(stringr::str_split, ";") |>
         purrr::flatten()
     })
 
   # Get total n cells
-  n_cells <- map_int(x, length) |>
+  n_cells <- purrr::map_int(x, length) |>
     unique()
 
   stopifnot(length(n_cells) == 1)
@@ -94,12 +94,12 @@ test_all_args(
     chns <- x$chains
 
     chns <- chns |>
-      map(~ .x %in% chain)
+      purrr::map(~ .x %in% chain)
 
     x <- x[names(x) != "chains"]
 
     x <- x |>
-      map(~ purrr::map2(.x, chns, ~ .x[.y])) |>
+      purrr::map(~ purrr::map2(.x, chns, ~ .x[.y])) |>
       map(~ map(.x, ~ {
         if (purrr::is_empty(.x)) .x <- "None"
         .x

diff --git a/tests/testthat/test-import-vdj.R b/tests/testthat/test-import-vdj.R
@@ -310,7 +310,7 @@ test_that("import_vdj bad prefixes", {
       import_vdj(vdj_dir = dat)
   }
 
-  expect_error(fn(), "do not match those in the input")
+  expect_error(fn(), "do not match those")
 })
 
 # Check bad separator