Avoid base64 functions in nanonext

wlandau · Jun 18, 2024 · fc5fe45 · fc5fe45
1 parent eafad02
commit fc5fe45
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-crew_controller_local.R b/tests/testthat/test-crew_controller_local.R
@@ -115,13 +115,13 @@ crew_test("crew_controller_local()", {
     expect_false(exists(x = ".crew_y", envir = globalenv()))
     # package task
     x$push(
-      command = base64enc(arg),
+      command = paste0(arg, "y"),
       data = list(arg = "x"),
       packages = "nanonext"
     )
     x$wait(seconds_timeout = 5)
     out <- x$pop()
-    expect_equal(out$result[[1]], nanonext::base64enc("x"))
+    expect_equal(out$result[[1]], "xy")
   }
   # terminate
   handle <- x$launcher$workers$handle[[1]]