context("Read all DLBCL classifications")
data(DLBCL_overview)

test_that("readDACData returns a data.frame", {
  for (gse in DLBCL_overview$GSE) {
    if (gse == "GSE11318") {
      next
    }
    expect_true(is.data.frame(readDACData(gse)))
  }
})

test_that("readDACData returns null GSE11318 and other names ", {
  expect_null(readDACData("GSE11318"))
  expect_null(readDACData("someothername"))
})