tests/testthat/test-gantt_verify.R

In giocomai/ganttrify: Create beautiful Gantt charts with ggplot2

test_that("NAs are caught by gantt_verify", {
  expect_warning(object = {
    project <- data.frame(
      wp = letters[1:3],
      activity = month.name[1:3],
      start_date = 1:3,
      end_date = 4:6
    )

    project[2, 2] <- NA_character_
    gantt_verify(project)
  })

  expect_identical(
    object = {
      project <- data.frame(
        wp = letters[1:3],
        activity = month.name[1:3],
        start_date = 1:3,
        end_date = 4:6
      )

      project[2, 2] <- NA_character_

      suppressWarnings(nrow(gantt_verify(project)))
    },
    expected = 2L
  )



  expect_identical(
    object = {
      project <- data.frame(
        wp = letters[1:3],
        activity = month.name[1:3],
        start_date = 1:3,
        end_date = 4:6
      )

      project[2:3, 2] <- NA_character_

      suppressWarnings(nrow(gantt_verify(project)))
    },
    expected = 1L
  )
})


test_that("Standard inputs are returned correctly", {
  expect_equal(
    object = ganttrify::gantt_verify(ganttrify::test_project),
    expected = tibble::as_tibble(ganttrify::test_project)
  )

  expect_equal(
    object = ganttrify::gantt_verify(ganttrify::test_project_date_month,
      by_date = TRUE
    ),
    expected = tibble::as_tibble(ganttrify::test_project_date_month)
  )

  expect_equal(
    object = ganttrify::gantt_verify(ganttrify::test_project_date_day,
      by_date = TRUE,
      exact_date = TRUE
    ),
    expected = tibble::as_tibble(ganttrify::test_project_date_day %>%
      dplyr::mutate(
        start_date = lubridate::as_date(start_date),
        end_date = lubridate::as_date(end_date)
      ))
  )
})