testthat::test_that("to_flextable: supported class `data.frame`", {
  data_frame <- data.frame(A = 1:3, B = 4:6)
  flextable_output <- to_flextable(data_frame)
  testthat::expect_s3_class(flextable_output, "flextable")
})

testthat::test_that("to_flextable: supported class `rtables`", {
  tbl <- rtables::basic_table() %>%
    rtables::analyze("AGE", afun = mean) %>%
    rtables::build_table(formatters::DM)
  flextable_output <- to_flextable(tbl)
  testthat::expect_s3_class(flextable_output, "flextable")
})

testthat::test_that("to_flextable: supported class `listing_df`", {
  lsting <- rlistings::as_listing(formatters::ex_adae[1:50, ])
  flextable_output <- to_flextable(lsting)
  testthat::expect_s3_class(flextable_output, "flextable")
})

testthat::test_that("to_flextable: unsupported class", {
  unsupported_data <- list(a = 1, b = 2)
  testthat::expect_error(to_flextable(unsupported_data), "Unsupported class")
})

testthat::test_that("split_text_block - splits text block into blocks no longer than n lines", {
  l <- 5
  block_text <- paste(paste(rep("Line", l), seq_len(l)), collapse = "\n")
  n <- 2
  result <- split_text_block(block_text, n)
  result_lines <- lapply(result, function(x) strsplit(x, "\n")[[1]])
  lapply(result_lines, function(x) testthat::expect_lte(length(x), n))

  n <- 5
  result <- split_text_block(block_text, n)
  testthat::expect_equal(result, list(block_text))
})

testthat::describe("format.code_chunk", {
  it("generates the corresponding R language chunk", {
    chunk_str <- format(code_chunk("1+1", lang = "R"))
    testthat::expect_match(chunk_str, "^```\\{R\\}.*```$")
  })
  it("generates the corresponding yaml language chunk", {
    chunk_str <- format(code_chunk("1+1", lang = "yaml"))
    testthat::expect_match(chunk_str, "^```yaml.*```$")
  })
  it("generates the corresponding parameters", {
    chunk_str <- format(code_chunk("1+1", echo = TRUE))
    testthat::expect_match(chunk_str, "^```\\{R, echo=TRUE\\}.*```$")
  })
  it("generates the corresponding multiple parameters", {
    chunk_str <- format(code_chunk("1+1", echo = TRUE, another = "\"param\""))
    testthat::expect_match(chunk_str, "^```\\{R, echo=TRUE, another=\\\"param\\\"\\}.*```$")
  })
})

testthat::test_that("global_knitr_details returns a string with description", {
  result <- global_knitr_details()
  checkmate::expect_string(result, "character")
  testthat::expect_match(result, "tidy.opts = ")
  testthat::expect_match(result, "echo = ")
  testthat::expect_match(result, "tidy = ")
})

testthat::test_that("dummy function returns a function used to fix note about function use in R6", {
  checkmate::expect_function(dummy())
})