@@ -2,7 +2,7 @@ test_GsnapParam_constructor <- function() {

   fa <- system.file("extdata/hg19.p53.fasta", package="gmapR", mustWork=TRUE)

   fastaFile <- rtracklayer::FastaFile(fa)

-  gmapGenome <- GmapGenome(fastaFile, create=TRUE)

+  gmapGenome <- GmapGenome(fastaFile, create=TRUE, k = 12)

   gsnapParam <- GsnapParam(genome = gmapGenome,

                            unique_only = FALSE,

new file mode 100644

@@ -0,0 +1,17 @@

+test_GsnapParam_constructor <- function() {

+  

+  fa <- system.file("extdata/hg19.p53.fasta", package="gmapR", mustWork=TRUE)

+  fastaFile <- rtracklayer::FastaFile(fa)

+  gmapGenome <- GmapGenome(fastaFile, create=TRUE)

+

+  gsnapParam <- GsnapParam(genome = gmapGenome,

+                           unique_only = FALSE,

+                           max_mismatches = NULL,

+                           suboptimal_levels = 0L, mode = "standard",

+                           npaths = 10L,

+                           novelsplicing = FALSE, splicing = NULL, 

+                           nthreads = 1L,

+                           batch = "2")

+

+  checkTrue(is(gsnapParam, "GsnapParam"))

+}