tests/testthat/test-readGAF.R

In mgsa: Model-based gene set analysis

test_that("readGAF() works", {
  d<-readGAF("gene_association_head.goa_ref_human.gz")
  expect_equal(d@numberOfItems, 184)
})

test_that("readGAF() with aspect works", {
  d<-readGAF("gene_association_head.goa_ref_human.gz",aspect="C")
  expect_equal(d@numberOfItems, 149)
})