print test file names

.github/workflows/test-coverage.yaml

@@ -29,7 +29,7 @@ jobs:
 
       - uses: r-lib/actions/setup-r-dependencies@v2
         with:
-          extra-packages: any::covr
+          extra-packages: any::covr, any::scriptName
           needs: coverage
 
       - name: Java sanity check

tests/testthat/test-assertions.R

@@ -1,3 +1,5 @@
+print(basename(scriptName::current_source_filename()$value))
+
 test_that("types are evaluated in error messages", {
   expect_error(assert_that(is_integerish(NULL)), regexp = "of type NULL")
   expect_error(assert_that(is_true_or_false("test")), regexp = "of type character")

tests/testthat/test-jar.R

@@ -1,3 +1,5 @@
+print(basename(scriptName::current_source_filename()$value))
+
 test_that("properly stops without java", {
   expect_error(with_mocked_bindings(
     has_util = function(...) FALSE,
@@ -13,35 +15,23 @@ ors <- local_ors_instance(type = "jar", verbose = FALSE)
 
 test_that("jar setup works", {
   # service not started - should return false
-  print(1)
   expect_false(ors$is_init())
-  print(2)
   expect_false(ors$is_running())
-  print(3)
   expect_false(ors$is_ready())
-  print(4)
   expect_true(ors$is_mounted())
-  print(5)
 
   # check if service is startable
   ors$set_extract(file = system.file("setup/monaco.pbf", package = "rors"))
-  print(6)
   ors$set_port()
-  print(7)
   ors$up()
-  print(8)
 
   # service is started - should return true
   expect_true(ors$is_init())
-  print(9)
   expect_true(ors$is_running())
-  print(10)
   expect_true(ors$is_ready())
-  print(11)
 
   # stop
   ors$stop()
-  print(12)
   expect_false(ors$is_running())
   expect_true(ors$is_init())
 })

tests/testthat/test-local-parse.R

@@ -1,3 +1,5 @@
+print(basename(scriptName::current_source_filename()$value))
+
 skip_if_offline("github.com")
 
 ors <- local_ors_instance(verbose = FALSE, dry = TRUE)

tests/testthat/test-local-write.R

@@ -1,3 +1,5 @@
+print(basename(scriptName::current_source_filename()$value))
+
 test_that("env files are written correctly", {
   lst <- list(
     test1 = NULL,

tests/testthat/test-params.R

@@ -19,6 +19,8 @@ test_that("fails early", {
   expect_error(prepare_ors_params(p3, "driving-car"), class =  "ors_param_invalid_child_error")
 })
 
+print(basename(scriptName::current_source_filename()$value))
+
 test_that("param checking works", {
   v1 <- list(geometry_simplify = TRUE)
   v2 <- list(geometry_simplify = c(TRUE, TRUE))

tests/testthat/test-remote.R

@@ -1,3 +1,5 @@
+print(basename(scriptName::current_source_filename()$value))
+
 test_that("ors_token() works", {
   withr::with_envvar(
     c(ORS_TOKEN = ""),

tests/testthat/test-requests.R

@@ -1,3 +1,5 @@
+print(basename(scriptName::current_source_filename()$value))
+
 # this test file is both the core part and the part that is causing the
 # biggest headache! If not absolutely possible, it only runs on mocks. If not
 # absolutely necessary, it does not run at all. Mocks are fed on local machines

tests/testthat/test-sample.R

@@ -1,3 +1,5 @@
+print(basename(scriptName::current_source_filename()$value))
+
 skip_if_not(sf::sf_extSoftVersion()["GDAL"] > "2.1.0")
 skip_on_cran()
 

tests/testthat/test-utils-ors.R

@@ -1,3 +1,5 @@
+print(basename(scriptName::current_source_filename()$value))
+
 skip_if(!loadable("webfakes"), "webfakes unavailable")
 skip_webfakes <- function(web) {
   failed <- inherits(web, "try-error")

tests/testthat/test-utils.R

@@ -1,3 +1,5 @@
+print(basename(scriptName::current_source_filename()$value))
+
 test_that("%||% works", {
   expect_equal(1 %||% 2, 1)
   expect_equal(NULL %||% 2, 2)