tests/testthat/test-tidyconfig_functions.R

In wolski/prolfqua: Proteomics Label Free Quantification

context("test-tidyconfig_functions")

test_that("check config", {
  config <- create_config_Skyline()
  config$table$factors[["Time"]] = "Sampling.Time.Point"
  expect_equal(config$table$factor_keys(),"Time")
  expect_equal(config$table$hierarchy_keys(),c("protein_Id","peptide_Id","precursor_Id","fragment_Id"))
})