cras_table <- template_create(authors = c("ABC", "DEF", "HIJ", "KLM"))
cras_table$Conceptualization <- c(1,0,0,0)
cras_table$Methodology <- c(0,1,0,1)
cras_table$Resources <- c(0,0,0,1)
cras_table$`Writing - original draft` <- c(1,0,0,0)
cras_table$`Writing - review & editing` <- c(0,1,0,1)
cras_table$`Funding acquisition` <- c(0,0,0,1)

cras <- paste0("ABC: ", roles_get()[[1]], ", ", roles_get()[[9]], ". ",
               "DEF: ", roles_get()[[2]], ", ", roles_get()[[10]], ". ",
               "KLM: ", roles_get()[[2]], ", ", roles_get()[[7]], ", ",
               roles_get()[[10]], ", ", roles_get()[[14]], "."
)

test_that("cras_write works as expected in raw text", {
  file <- tempfile()
  cras_write(cras_table, file, markdown = FALSE, quiet = TRUE)
  expect_equal(readLines(file), cras)
})

cras_md <- sub("ABC:", "**ABC:**", cras)
cras_md <- sub("DEF:", "**DEF:**", cras_md)
cras_md <- sub("KLM:", "**KLM:**", cras_md)

test_that("cras_write works as expected in markdown text", {
  file <- tempfile()
  cras_write(cras_table, file, markdown = TRUE, quiet = TRUE)
  expect_equal(readLines(file), cras_md)
})

test_that("authors are not dropped when drop_authors is false", {
  expect_gt(grep("HIJ", cras_write(cras_table, drop_authors = FALSE)), 0)
})

test_that("cras_write returns vector when file is missing",{
  expect_equal(cras_write(cras_table, quiet = TRUE,), cras_md)
})

test_that("do not overwrite the file", {
  file <- tempfile()
  cras_write(cras_table, file, quiet = TRUE)
  expect_error(cras_write(cras_table, file, quiet = TRUE))
})

test_that("do overwrite the file", {
  file <- tempfile()
  cras_write(cras_table, file, quiet = TRUE)
  expect_invisible(cras_write(cras_table, file, overwrite = TRUE, quiet = TRUE))
})

test_that("raise warning when authors are dropped", {
  expect_warning(cras_write(cras_table, tempfile()))
})

test_that("raise error if all authors are dropped", {
  expect_error(cras_write(template_create(c("a", "b")), tempfile()))
})

test_that("raise error if file is not NULL or string", {
  expect_error(cras_write(cras_table, file = 1223, quiet = TRUE))
})

test_that("raise error if file length is gt 1", {
  expect_error(cras_write(cras_table, file = c("a", "b"), quiet = TRUE))
})