tests/testthat/test_diopt.R

In oganm/homologene: Quick Access to Homologene and Gene Annotation Updates

context('diopt')


test_that('DIOPT',{
    httr::set_config(httr::config(ssl_verifypeer = 0L))
    
    out = diopt(c('GZMH'),inTax = 9606, outTax = 10090)
    
    expect_true(all(c('Gzmd','Gzme','Gzmg','Gzmf') %in% out$`Mouse Symbol`))
})