tests/testthat/test_access_citation.R

In BIDMCDigitalPsychiatry/LAMP-r: API Client for LAMP Platform

# Automatically generated
# Please update as you see appropriate

context("Test AccessCitation")

model.instance <- AccessCitation$new()

test_that("in", {
  # tests for the property `in` (character)

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

test_that("at", {
  # tests for the property `at` (character)

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

test_that("on", {
  # tests for the property `on` (numeric)
  # The UNIX Epoch date-time representation: number of milliseconds since 1/1/1970 12:00 AM.

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

test_that("by", {
  # tests for the property `by` (character)

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