testthat::test_that("FASTA parser joins wrapped records", {
  f <- tempfile(fileext = ".fa")
  writeLines(c(">id1 description", "AUG", "CU", "", ">id2", "GGCA"), f)
  x <- aslncr_read_fasta(f)
  testthat::expect_equal(x$sequence_id, c("id1 description", "id2"))
  testthat::expect_equal(x$sequence, c("AUGCU", "GGCA"))
  unlink(f)
})

testthat::test_that("RNA validation rejects non-standard symbols", {
  x <- aslncr_validate_sequences(c("AUGC", "AUGT", "AUGN", ""))
  testthat::expect_equal(x$valid, c(TRUE, FALSE, FALSE, FALSE))
})

testthat::test_that("feature matrix has 5460 columns", {
  f <- aslncr_features(c("AUGCU", "GGCAU"))
  testthat::expect_equal(ncol(f), 5460L)
  testthat::expect_equal(nrow(f), 2L)
})