test_GsnapParam_constructor <- function() {
   
   fa <- system.file("extdata/hg19.p53.fasta", package="gmapR", mustWork=TRUE)
   fastaFile <- rtracklayer::FastaFile(fa)

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

 
   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"))
 }