Browse code

add test case

mikejiang authored on 19/08/2022 18:25:39
Showing 1 changed files

... ...
@@ -2,6 +2,21 @@ context("parse workspaces of various flowJo versions ")
2 2
 library(data.table)
3 3
 path <- "~/rglab/workspace/CytoML/wsTestSuite"
4 4
 
5
+test_that("ellipsoidGate bug",{
6
+  # ellipse defined on fsc and ssc wasn't properly scaled
7
+  thisPath <- file.path(path, "Cytotrol/NHLBI/")
8
+  wsFile <- file.path(thisPath, "ellipse_bug.wsp")
9
+  
10
+  ws <- open_flowjo_xml(wsFile)
11
+  
12
+  gs <- flowjo_to_gatingset(ws, name = 1, subset = 1)
13
+  
14
+  gh <- gs[[1]]
15
+  
16
+  thisCounts <- gh_pop_compare_stats(gh)
17
+  expect_equal(thisCounts[, xml.freq], thisCounts[, openCyto.freq], tol = 2e-2)
18
+})
19
+
5 20
 test_that("verify the extend logic no longer needed for the gate defined in biexp scale from latest flowjo wsp output",{
6 21
   wsFile <- file.path(path, "gate_negative_area.wsp")
7 22
   ws <- open_flowjo_xml(wsFile)