testthat::test_that("exported documentation examples have valid API behavior", {
  x <- aslncr_read_fasta(c("AUGCUU", "GGCAU"))
  testthat::expect_equal(x$sequence, c("AUGCUU", "GGCAU"))

  valid <- aslncr_validate_sequences(c("AUGC", "AUGN"))
  testthat::expect_equal(valid$valid, c(TRUE, FALSE))

  features <- aslncr_features(c("AUGCUU", "GGCAU"))
  testthat::expect_equal(dim(features), c(2L, 5460L))

  files <- aslncr_model_files()
  testthat::expect_true(all(file.exists(files)))

  pred <- aslncr_predict(
    "AUGCUUACGUAGCUAGCUAGCUAGCUAGCUAGCUAGCUAGCUAGCUAGCUAGCUAGCUAGCU"
  )
  testthat::expect_equal(nrow(pred), 1L)
  testthat::expect_true(is.finite(pred$p_stress_lnc))
})