tests/testthat/test-argument-string.R

In openeo: Client Interface for 'openEO' Servers

test_that("privacy of strings", {
  tmp = tempfile()
  cat("privacy issue",file=tmp)
  
  string_arg = openeo:::String$new()
  string_arg$setValue(tmp)
  
  expect(string_arg$serialize() != "privacy issue",failure_message = "String parameter opens file.")
})