Fix test

PRL-PRG · Sep 14, 2024 · 0f2dae0 · 0f2dae0
1 parent 48031ea
commit 0f2dae0
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 7 deletions.
diff --git a/client/rsh/R/rsh.R b/client/rsh/R/rsh.R
@@ -67,6 +67,10 @@ rsh_compile <- function(f, options) {
     options$name <- as.character(substitute(f))
   }
 
+  if (is.null(options$inplace)) {
+    options$inplace <- TRUE
+  }
+
   invisible(.Call(C_compile, f, options))
 }
 

diff --git a/client/rsh/tests/test-remote-compilation.R b/client/rsh/tests/test-remote-compilation.R
@@ -1,7 +1,7 @@
-# f <- function() {
-#   42
-# }
-#
-# rsh::rsh_compile(f)
-# stopifnot(rsh::is_compiled(f))
-# stopifnot(f() == 42)
+f <- function() {
+  42
+}
+
+rsh::rsh_compile(f)
+stopifnot(rsh::is_compiled(f))
+stopifnot(f() == 42)