tests/testthat/test_geneEndpoint.R

In oganm/gemmaAPI: A wrapper for Gemma's restful API

context("gene endpoints")
httr::set_config(httr::config(ssl_verifypeer = 0L)) 


testthat::test_that('geneInfo',{
    testthat::expect_is(geneInfo('1859'),'list')
    testthat::expect_length(geneInfo('1859'),1)
    testthat::expect_true(length(geneInfo('Eno2'))>1)
    
    testthat::expect_is(geneInfo('1859','evidence'),'list')
    testthat::expect_is(geneInfo('1859','locations'),'list')
    testthat::expect_is(geneInfo('1859','probes'),'list')
    testthat::expect_is(geneInfo('1859','probes',limit= 0),'list') # fix this test after gemma fixes
    
    geneInfo('1859','goTerms')
    testthat::expect_is(geneInfo('1859','goTerms'),'list')
    
    testthat::expect_is(geneInfo('1859','coexpression',with= '1859'),'list')
    
    # memoise test. memoised function should be faster
    time = microbenchmark::microbenchmark(geneInfo('1859'),times = 10,unit = 'ms') %>% summary
    timeMemo = microbenchmark::microbenchmark(geneInfo('1859',memoised = TRUE),times = 10,unit = 'ms') %>% summary
    testthat::expect_lt(timeMemo$median,time$median)
})