test_that("test measurement timing", { skip_on_cran() cdm <- testMockCdm() cdm <- copyCdm(cdm) result <- summariseMeasurementUse( cdm = cdm, codes = list("test_codelist" = c(3001467L, 45875977L))) expect_no_error(boxplot1 <- plotMeasurementTimings(result, facet = "cdm_name", colour = NULL)) expect_true(all(c("gg", "ggplot") %in% class(boxplot1))) expect_error(plotMeasurementTimings(result, facet = "h")) expect_error(plotMeasurementTimings(result, colour = "h")) expect_error(plotMeasurementTimings(result, timeScale = "h")) expect_error(plotMeasurementTimings(result, plotType = "h")) })