tests/testthat/test_kmer.R

In compbiocore/qckitfastq: FASTQ Quality Control

testthat::test_that("Test kmer",{

  kmer<-seqTools::fastqKmerLocs(system.file("extdata", "10^5_reads_test.fq.gz", package = "qckitfastq"),k=6)
  #check the dimension of the kmer count
  testthat::expect_equal(dim(kmer[[1]]),c(4096,95))
  #check the kmer sequence
  testthat::expect_equal(rownames(kmer[[1]])[1:4],c("AAAAAA","AAAAAC","AAAAAG","AAAAAT"))

})