tests/testthat/test-methods.R

In wilsontom/metabolighteR: Interface to the 'Metabolights' REST API

context('test-methods')

test_that('tokenless-get-methods', {
  skip_on_cran()
  expect_true(is.list(get_webservice()))
  expect_true(tibble::is_tibble(all_get_methods()))
  expect_error(mtbls_key(100))
  expect_true(tibble::is_tibble(get_studies()))
  expect_true(tibble::is_tibble(get_study_tech()))
  expect_true(tibble::is_tibble(get_study_contacts('MTBLS968')))
  expect_true(is.character(get_study_desc('MTBLS968')))
  expect_true(tibble::is_tibble(get_study_descriptors('MTBLS968')))
  expect_true(tibble::is_tibble(get_study_factors('MTBLS968')))
  expect_true(tibble::is_tibble(get_study_files('MTBLS968')))
  expect_true(tibble::is_tibble(get_study_meta('MTBLS968')))
  expect_true(tibble::is_tibble(get_study_protocols('MTBLS968')))
  expect_true(tibble::is_tibble(get_study_org('MTBLS375')))
  expect_true(tibble::is_tibble(get_study_pubs('MTBLS968')))
  expect_true(tibble::is_tibble(get_study_samples('MTBLS968')))
  expect_true(tibble::is_tibble(get_study_files('MTBLS375', raw_data = FALSE)))
  expect_true(is.character(get_study_title('MTBLS968')))
  #expect_true(is.character(get_isa_investigation('MTBLS375')))

})