tests/testthat/test_query_template.R

In hdar: 'REST' API Client for Accessing Data on 'WEkEO HDA V2'

library("testthat")
library("hdar")
library("httr2")
library("jsonlite")

check_if_placeholders_exist <- function(query_template) {
  template <- fromJSON(query_template)
  for (param in names(template))
  {
    value <- template[[param]]
    if (is_placeholder(value)) {
      return(TRUE)
    }
  }
  FALSE
}

test_that("Template - Generate Query Template", {
  client <- Client$new()

  query_template <- client$generate_query_template("EO:CRYO:DAT:HRSI:FSC")
  # print(query_template)

  usable_query_template <- strip_off_template_placeholders(query_template)
  # print(usable_query_template)

  expect_true(check_if_placeholders_exist(query_template))
  expect_false(check_if_placeholders_exist(usable_query_template))
})