tests/testthat/test_general.R

In frequena/rbiolink: Interface with BioLink API using R

context('General testing')



test_that("output is correct", {
  expect_equal(length(biolink_annotate('nlp/annotate', content = 'Marfan syndrome')), 3)
})


test_that('output of biolink_similar is correct',{

  expect_equal(biolink_similarity(ref_id = c('HP:0001166', 'HP:0030029'),
                           query_id = c('HP:0001627', 'HP:0004095'),
                           metric = 'symmetric_resnik')$lcs_ic, 4.93, tolerance = 0.01)
  
  
})

test_that('output of biolink_search_similar is correct',{
  
  expect_equal(nrow(biolink_search_similar(id = c('HP:0001166', 'HP:0030029'),
                              metric = 'symmetric_resnik')), 100)
  expect_equal(ncol(biolink_search_similar(id = c('HP:0001166', 'HP:0030029'),
                                   metric = 'symmetric_resnik')), 8)

})