tests/testthat/test-gantt.R

In inSileco/graphicsutils: Collection of graphics utilities

context("Gantt chart")

hid <- ganttChart(dfGantt)

test_that("checking areas", {
  expect_true(all(hid$completed %in% c("M", "C", "I")))
  expect_warning(ganttChart(dfGantt, task_order = FALSE, mstone_add = TRUE) )
  # 2 blocs of mileston
  expect_equal(sum(diff(hid$y)==-2), 1)
})
#