add functional test for reading diverse-bitwidths file. #46

RGLab · Nov 30, 2015 · c4f32ca · c4f32ca
1 parent 0de96c8
commit c4f32ca
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/inst/tests/IO-testSuite.R b/inst/tests/IO-testSuite.R
@@ -177,4 +177,10 @@ test_that("test integer overflow issue", {
       fr <- read.FCS(file.path(dataPath,"/Beckman_Coulter/MoFlo Astrios EQ 9C bis all.fcs"))
       keyword(fr)[["FILENAME"]] <- "setToDummy"
       expect_equal(expectRes[["read.FCS"]][["MoFlo EQ 9C"]],  digest(fr))
+    })
+
+test_that("test diverse Bitwidths", {
+      fr <- read.FCS(file.path(dataPath, "diverseBitwidths.fcs"))
+      keyword(fr)[["FILENAME"]] <- "setToDummy"
+      expect_equal(expectRes[["read.FCS"]][["diverseBitwidths"]], digest(fr))
     })
diff --git a/inst/tests/expectResults.rds b/inst/tests/expectResults.rds