Merge branch 'master' of github.com:RGLab/CytoML

RGLab · Apr 9, 2020 · 1010dc6 · 1010dc6
2 parents b629fcb + b33badb
commit 1010dc6
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/tests/testthat/flowjo2gs_internalTestSuite.R b/tests/testthat/flowjo2gs_internalTestSuite.R
@@ -808,3 +808,12 @@ test_that("search_for_fcs logic", {
 
 })
 
+test_that("magnetic gates", {
+  thisPath <- file.path(path, "magnetic")
+  ws <- open_flowjo_xml(file.path(thisPath, "2020-03-11 CyTOF gating strategy_dummy.wsp"))
+  gs <- flowjo_to_gatingset(ws, name = 1)
+  thisCounts <- gh_pop_compare_stats(gs[[1]])
+  # Give a little cushion to frequency tolerance due to small subsample
+  expect_equal(thisCounts[, xml.freq], thisCounts[, openCyto.freq], tol = 2e-2)
+})
+