add test with crew workers

njtierney · Apr 5, 2024 · 2d7c43f · 2d7c43f
1 parent 1c5abb8
commit 2d7c43f
Showing 1 changed file with 22 additions and 0 deletions.
diff --git a/tests/testthat/test-geotargets-option.R b/tests/testthat/test-geotargets-option.R
@@ -0,0 +1,22 @@
+# test_that("geotargets_options_get() retrieves options in correct priority", {
+#     withr::with_envvar(
+#
+#     )
+# })
+
+targets::tar_test("options are distributed to workers", {
+    targets::tar_script({
+        options("geotargets.gdal.raster.driver" = "GeoJSON")
+        targets::tar_option_set(
+            controller = crew::crew_controller_local(workers = 2)
+        )
+        list(
+            targets::tar_target(
+                opt,
+                getOption("geotargets.gdal.raster.driver")
+            )
+        )
+    })
+    targets::tar_make()
+    expect_equal(targets::tar_read(opt), "GeoJSON")
+})