test_that("plotMeasurementValueAsConcept works", {
  cdm <- testMockCdm()
  cdm <- copyCdm(cdm)

  # Summarise measurement use ----
  result <- summariseMeasurementUse(cdm = cdm,
                                    byYear = TRUE,
                                    codes = list("test_codelist" = c(3001467L, 45875977L)))
  # Table types
  expect_no_error(x <- plotMeasurementValueAsConcept(result))
  expect_true(ggplot2::is_ggplot(x))

  # Summarise measurement use ----
  result <- summariseMeasurementUse(cdm = cdm,
                                    byConcept = FALSE,
                                    codes = list("test_codelist" = c(3001467L, 45875977L)))
  # Table types
  expect_no_error(x <- plotMeasurementValueAsConcept(result))
  expect_true(ggplot2::is_ggplot(x))
})