tests/testthat/test-visit.R

In r-simmer/simmer.bricks: Helper Methods for 'simmer' Trajectories

context("visit")

test_that("visit generates the correct sequence of activities", {
  t <- trajectory() %>%
    visit("dummy", 5, 3)

  expect_equal(length(t), 3)
  expect_equal(get_n_activities(t), 3)
  expect_output(print(t[[1]]), "Seize.*dummy.*3")
  expect_output(print(t[[2]]), "Timeout.*5")
  expect_output(print(t[[3]]), "Release.*dummy.*3")

  t <- trajectory() %>%
    visit_selected(5, 3, id=18)

  expect_equal(length(t), 3)
  expect_equal(get_n_activities(t), 3)
  expect_output(print(t[[1]]), "Seize.*\\[[18]*\\].*3")
  expect_output(print(t[[2]]), "Timeout.*5")
  expect_output(print(t[[3]]), "Release.*\\[[18]*\\].*3")
})