tests/testthat/test_activity.R

# Automatically generated
# Please update as you see appropriate

context("Test Activity")

model.instance <- Activity$new()

test_that("id", {
  # tests for the property `id` (character)
  # A globally unique reference for objects.

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

test_that("spec", {
  # tests for the property `spec` (character)
  # A globally unique reference for objects.

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

test_that("name", {
  # tests for the property `name` (character)
  # The name of the activity.

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

test_that("schedule", {
  # tests for the property `schedule` (DurationIntervalLegacy)

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

test_that("settings", {
  # tests for the property `settings` (object)
  # The configuration settings for the activity.

  # uncomment below to test the property 
  #expect_equal(model.instance$`settings`, "EXPECTED_RESULT")
})
BIDMCDigitalPsychiatry/LAMP-r documentation built on April 29, 2020, 9:51 a.m.