for (i in c(6, 12, 24, 48, 96, 384, 1536)) {
  path <- paste0("test_data/", i, "/")

  test_that("check_plate guesses the correct plate type", {
    csv_file <- paste0(path, "allWellIds.csv")

    expect_message(check_plate(csv_file), paste0("allWellIds.csv: OK; Plate type: ", i, "-well"))
  })

  test_that("check_plate throws error when plate format is not correct", {
    csv_file_1 <- paste0(path, "extraCol.csv")
    csv_file_2 <- paste0(path, "twoPlatesExtraCol.csv")
    xlsx_file_1 <- paste0(path, "extraCol.xlsx")
    xlsx_file_2 <- paste0(path, "twoPlatesExtraCol.xlsx")

    expect_error(
      check_plate(csv_file_1, well_id = "wells"),
      regexp = "is not a valid input file"
    )
    expect_error(
      check_plate(csv_file_2, well_id = "wells"),
      regexp = "is not a valid input file"
      )
    expect_error(
      check_plate(xlsx_file_1, well_id = "wells"),
      regexp = "is not a valid input file"
    )
    expect_error(
      check_plate(xlsx_file_2, well_id = "wells"),
      regexp = "is not a valid input file"
    )
  })

  test_that("check_plate throws error when well_id argument matches plate names", {
    csv_file <- paste0(path, "oneFullOnePartEmpty.csv")
    xlsx_file <- paste0(path, "oneFullOnePartEmpty.xlsx")

    expect_error(
      check_plate(csv_file, well_id = "full"),
      regexp = "`well_id` value is invalid"
    )
    expect_error(
      check_plate(xlsx_file, well_id = "full"),
      regexp = "`well_id` value is invalid"
    )
  })

  test_that("check_plate throws error when plate names are empty", {

    csv_file_1 <- paste0(path, "noName.csv")
    xlsx_file_1 <- paste0(path, "noName.xlsx")

    expect_error(
      check_plate(csv_file_1, well_id = "wells"),
      regexp = "Empty (blank or NA) plate name(s) found in", fixed = TRUE)
    expect_error(
      check_plate(xlsx_file_1, well_id = "wells"),
      regexp = "Empty (blank or NA) plate name(s) found in", fixed = TRUE)
  })

  test_that("check_plate throws error when plate names are not unique", {
    csv_file_1 <- paste0(path, "sameNames.csv")
    xlsx_file_1 <- paste0(path, "sameNames.xlsx")

    expect_error(
      check_plate(csv_file_1, well_id = "wells"),
      regexp = "Duplicated plate name(s) found in", fixed = TRUE)

    expect_error(
      check_plate(xlsx_file_1, well_id = "wells"),
      regexp = "Duplicated plate name(s) found in", fixed = TRUE)
  })

  test_that("check_plate throws error when row and column ids are empty or bad", {
    csv_file_1 <- paste0(path, "badColRowName.csv")
    xlsx_file_1 <- paste0(path, "badColRowName.xlsx")
    csv_file_2 <- paste0(path, "emptyColRowName.csv")
    xlsx_file_2 <- paste0(path, "emptyColRowName.xlsx")

    expect_error(
      check_plate(csv_file_1, well_id = "wells"),
      "Verify row and column ids in badColRowName.csv.", fixed = TRUE
    )
    expect_error(
      check_plate(xlsx_file_1, well_id = "wells"),
      "Verify row and column ids in badColRowName.xlsx.", fixed = TRUE
    )
    expect_error(
      check_plate(csv_file_2, well_id = "wells"),
      "Verify row and column ids in emptyColRowName.csv.", fixed = TRUE
    )
    expect_error(
      check_plate(xlsx_file_2, well_id = "wells"),
      "Verify row and column ids in emptyColRowName.xlsx.", fixed = TRUE
    )
  })

  test_that("check_plate throws error when row id(s) are empty or bad", {
    csv_file_1 <- paste0(path, "badRowName.csv")
    xlsx_file_1 <- paste0(path, "badRowName.xlsx")
    csv_file_2 <- paste0(path, "emptyRowName.csv")
    xlsx_file_2 <- paste0(path, "emptyRowName.xlsx")

    expect_error(tidy_plate(csv_file_1, well_id = "wells"),
                 regexp = "Verify row ids in ")
    expect_error(tidy_plate(xlsx_file_1, well_id = "wells"),
                 regexp = "Verify row ids in ")
    expect_error(tidy_plate(csv_file_2, well_id = "wells"),
                 regexp = "Verify row ids in ")
    expect_error(tidy_plate(xlsx_file_2, well_id = "wells"),
                 regexp = "Verify row ids in ")
  })

  test_that("check_plate throws error when column id(s) are empty or bad", {
    csv_file_1 <- paste0(path, "badColName.csv")
    xlsx_file_1 <- paste0(path, "badColName.xlsx")
    csv_file_2 <- paste0(path, "emptyColName.csv")
    xlsx_file_2 <- paste0(path, "emptyColName.xlsx")

    expect_error(check_plate(csv_file_1, well_id = "wells"),
                 regexp = "Verify column id(s) in ")
    expect_error(check_plate(xlsx_file_1, well_id = "wells"),
                 regexp = "Verify column id(s) in ")
    expect_error(check_plate(csv_file_2, well_id = "wells"),
                 regexp = "Verify column id(s) in ")
    expect_error(check_plate(xlsx_file_2, well_id = "wells"),
                 regexp = "Verify column id(s) in ")
  })
}


test_that("check_plate throws an error when user inputs more than one file", {
  file_1 <- "test_data/allWellIds.csv"
  file_2 <- "test_data/oneFullOnePartEmpty.csv"

  expect_error(
    check_plate(file = c(file_1, file_2)),
    "Invalid input: More than one file provided."
  )
})

test_that("check_plate throws an error when `well_id` argument not a character vector of length 1", {
  file <- "test_data/allWellIds.csv"

  expect_error(check_plate(file, well_id = 1), "`well_id` should be a character vector of length 1")
  expect_error(check_plate(file, well_id = 1L), "`well_id` should be a character vector of length 1")
  expect_error(check_plate(file, well_id = c("xxx", "yyy")), "`well_id` should be a character vector of length 1")
  expect_error(check_plate(file, well_id = TRUE), "`well_id` should be a character vector of length 1")
})

# Test for filenames extraction

test_that("check_plate throws an error when input file is non existant", {
  csv_file <- "test_data/doesNotExist.csv"
  xlsx_file <- "test_data/doesNotExist.xlsx"

  expect_error(check_plate(csv_file), "doesNotExist.csv does not exist!")
  expect_error(check_plate(xlsx_file), "doesNotExist.xlsx does not exist!")
})

test_that("check_plate throws an error when input file is not csv or xlsx", {
  file <- "test_data/badFileType.txt"

  expect_error(check_plate(file),
               regexp = "Unsupported file format. Please use CSV or Excel ")
})

test_that("check_plate throws an error when input file is empty", {
  csv_file <- "test_data/emptyFile.csv"

  expect_error(check_plate(csv_file, "emptyFile.csv"),
               regexp = "file is empty")
})