tests/testthat/test_duration_interval.R

# Automatically generated
# Please update as you see appropriate

context("Test DurationInterval")

model.instance <- DurationInterval$new()

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

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

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

test_that("repeat_count", {
  # tests for the property `repeat_count` (integer)

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

test_that("end", {
  # tests for the property `end` (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$`end`, "EXPECTED_RESULT")
})
BIDMCDigitalPsychiatry/LAMP-r documentation built on April 29, 2020, 9:51 a.m.