tests/testthat/test-helper_get.R

test_that("test getXXX helpers", {
    pp <- make_kdset("ath00010")
    gg <- make_mgraph(pp)
    expect_equal(Organism(pp), "ath")
    expect_equal(Organism(gg), "ath")
    expect_equal(Chemicals(pp), Chemicals(gg))
    expect_equal(Genes(pp), Genes(gg))
})
zgzhao/gmetab documentation built on Dec. 23, 2021, 9:17 p.m.