diff --git a/inst/tests/IO-testSuite.R b/inst/tests/IO-testSuite.R index cb157e4..dc03b09 100644 --- 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)) }) \ No newline at end of file diff --git a/inst/tests/expectResults.rds b/inst/tests/expectResults.rds index 10a5f25..f23590c 100644 Binary files a/inst/tests/expectResults.rds and b/inst/tests/expectResults.rds differ