tests/testthat/test_duration_interval_legacy.R

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

# Automatically generated
# Please update as you see appropriate

context("Test DurationIntervalLegacy")

model.instance <- DurationIntervalLegacy$new()

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

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

test_that("date", {
  # tests for the property `date` (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$`date`, "EXPECTED_RESULT")
})

test_that("custom_times", {
  # tests for the property `custom_times` (array[object])

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