tests/testthat/test_research_purpose.R

In vjcitn/terraClientR: R Package Client for FireCloud

# Automatically generated by openapi-generator (https://openapi-generator.tech)
# Please update as you see appropriate

context("Test ResearchPurpose")

model.instance <- ResearchPurpose$new()

test_that("DS", {
  # tests for the property `DS` (array[character])
  # Disease focused research. Values are DOID ontology node ids in the form http://purl.obolibrary.org/obo/DOID_NNN. Specify an empty array if this is not disease focused research. 

  # uncomment below to test the property 
  #expect_equal(model.instance$`DS`, "EXPECTED_RESULT")
})

test_that("NMDS", {
  # tests for the property `NMDS` (character)
  # Methods development/Validation study

  # uncomment below to test the property 
  #expect_equal(model.instance$`NMDS`, "EXPECTED_RESULT")
})

test_that("NCTRL", {
  # tests for the property `NCTRL` (character)
  # Control set

  # uncomment below to test the property 
  #expect_equal(model.instance$`NCTRL`, "EXPECTED_RESULT")
})

test_that("NAGR", {
  # tests for the property `NAGR` (character)
  # Aggregate analysis to understand variation in the general population

  # uncomment below to test the property 
  #expect_equal(model.instance$`NAGR`, "EXPECTED_RESULT")
})

test_that("POA", {
  # tests for the property `POA` (character)
  # Study population origins or ancestry

  # uncomment below to test the property 
  #expect_equal(model.instance$`POA`, "EXPECTED_RESULT")
})

test_that("NCU", {
  # tests for the property `NCU` (character)
  # Commercial purpose/by a commercial entity

  # uncomment below to test the property 
  #expect_equal(model.instance$`NCU`, "EXPECTED_RESULT")
})