library(testthat)
library(R6)
library(shiny)
library(TreatmentPatterns)

test_that("CharacterizationPlots", {
  skip_if_not(ableToRun()$plotting)
  characterizationPlots <- CharacterizationPlots$new("app")
  expect_true(is.R6(characterizationPlots))
})

test_that("UI", {
  skip_if_not(ableToRun()$plotting)
  characterizationPlots <- CharacterizationPlots$new("app")
  
  expect_s3_class(characterizationPlots$uiBody(), "shiny.tag")
  expect_s3_class(characterizationPlots$uiMenu(), "shiny.tag")
})


test_that("server", {
  skip_if_not(ableToRun()$plotting)
  moduleInteractivePlots <- function(id, inputHandler, characterizationPlots) {
    moduleServer(id, function(input, output, session) {
      inputHandler$setDataPath(input = input, path = NULL)
      
      path <- system.file(package = "TreatmentPatterns", "DummyOutput", "output.zip")
      
      session$setInputs(
        uploadField = list(
          datapath = path,
          name = "output.zip"
        )
      )
      
      inputHandler$server(input, output, session)
      characterizationPlots$server(input, output, session, inputHandler)
      
      uiOutput(NS(id, "charAgePlot"))
      uiOutput(NS(id, "charSexPlot"))
      uiOutput(NS(id, "charIndexYearPlot"))
    })
  }
  
  testServer(
    app = moduleInteractivePlots,
    args = list(
      inputHandler = InputHandler$new("app"),
      characterizationPlots = CharacterizationPlots$new("app")), {
        expect_s3_class(output$charAgePlot$html, "html")
        expect_s3_class(output$charSexPlot$html, "html")
        expect_s3_class(output$charIndexYearPlot$html, "html")
      }
  )
})