tests/testthat/test-gmt2Gmat.R

context("gmt2Gmat")

test_that("G from helper", {
  expect_true(all(G@x == 1))
  expect_equal(sum(G), 6)
  expect_equal(G["d", "pwy1"], 0)
  expect_equal(G["a", "pwy2"], 0)
})
jdreyf/PANTS documentation built on July 18, 2019, 10:12 a.m.