testthat::skip_on_cran()
# testthat::skip_on_ci()

test_that("retreive database", {
  # .reset_samples_db()
  # locate inst folder
  x <- system.file("cmpds.yaml", package = "PKbioanalysis") |>
    .parse_cmpds() |>
    suppressWarnings()
  x$method <- "test_method_2"
  .save_cmpd_db(x)
  .get_methodsdb() |> expect_no_error()
  .get_method_transitions(1) |> nrow() |> expect_equal(21)
  .get_method_cmpds(1)$compound |>
    expect_equal(x$compounds$compound)

  # repeat the call on same everything. Error due to duplicated method name
  .save_cmpd_db(x) |> expect_error()

  x$method <- "test_method_3"
  .save_cmpd_db(x) |> expect_no_error()
})


test_that("update_method", {
  x <- system.file("cmpds.yaml", package = "PKbioanalysis") |>
    .parse_cmpds() |>
    suppressWarnings()
  x$compounds$expected_peak_start <- 1
  x$compounds$expected_peak_end <- 2
  modify_method(1, x) |> expect_no_error()

  new_list <- .get_method_cmpds(1)
  new_list$expected_peak_start |> unique() |> expect_equal(1)
  new_list$expected_peak_end |> unique() |> expect_equal(2)
})