# 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")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.