tests/testthat/test-modelling_groups.R

In vimc/montagu-r: Interface with 'montagu'

context("modelling_groups")

test_that("download modelling_group list (admin)", {
  location <- montagu_test_server_admin()
  dat <- montagu_modelling_groups(location = location)
  expect_is(dat, "data.frame")
  expect_equal(names(dat), c("id", "description"))
})

test_that("download modelling_group list (user - insufficient permissions)", {
  location <- montagu_test_server_user()
  expect_error(montagu_modelling_groups(location = location),
    paste0("You do not have sufficient permissions to access this resource. ",
           "Missing these permissions: \\*/modelling-groups.read"),
    class = "montagu_api_error")

})

test_that("download correct modelling_group (admin)", {
  location <- montagu_test_server_admin()
  dat <- montagu_modelling_group(modelling_group_id = "IC-Garske", location = location)
  expect_is(dat, "list")
  expect_equal(names(dat), c("id", "description"))
  expect_equal(dat$id, "IC-Garske")
})

test_that("download correct modelling_group (user - insufficient permissions)", {
  location <- montagu_test_server_user()
  expect_error(montagu_modelling_group(modelling_group_id = "IC-Garske", location = location),
    paste0("You do not have sufficient permissions to access this resource. ",
           "Missing these permissions: \\*/modelling-groups.read"),
    class = "montagu_api_error")

})


test_that("download incorrect modelling_group id", {
  location <- montagu_test_server_admin()
  expect_error(montagu_modelling_group(modelling_group_id = "IC-GarskeZZZ", location = location),
               "Unknown modelling-group with id 'IC-GarskeZZZ'",
               class = "montagu_api_error")

  location <- montagu_test_server_user()
  expect_error(montagu_modelling_group(modelling_group_id = "IC-GarskeZZZ", location = location),
    paste0("You do not have sufficient permissions to access this resource. ",
           "Missing these permissions: \\*/modelling-groups.read"),
    class = "montagu_api_error")
})

test_that("download model list - incorrect modelling_group_id", {
  location <- montagu_test_server_admin()

  expect_error(montagu_model_list(modelling_group_id = "IC-GarskeZZZ", location = location),
    "Unknown modelling-group with id 'IC-GarskeZZZ'",
    class = "montagu_api_error")

  location <- montagu_test_server_user()

  expect_error(montagu_model_list(modelling_group_id = "IC-GarskeZZZ", location = location),
    paste0("You do not have sufficient permissions to access this resource. ",
           "Missing these permissions: \\*/modelling-groups.read"),
      class = "montagu_api_error")
})

test_that("download model list - result no models", {
  location <- montagu_test_server_admin()
  dat <- montagu_model_list(modelling_group_id = "VIMC", location = location)
  expect_is(dat, "data.frame")
  expect_equal(names(dat), c("id", "description", "citation", "modelling_group"))
  expect_equal(nrow(dat), 0)
})

test_that("download model list - result one model", {
  location <- montagu_test_server_admin()
  dat <- montagu_model_list(modelling_group_id = "IC-Garske", location = location)
  expect_is(dat, "data.frame")
  expect_equal(names(dat), c("id", "description", "citation", "modelling_group"))
  expect_equal(nrow(dat), 1)
})

test_that("download model list - result multiple models", {
  location <- montagu_test_server_admin()
  dat <- montagu_model_list(modelling_group_id = "LSHTM-Clark", location = location)
  expect_is(dat, "data.frame")
  expect_equal(names(dat), c("id", "description", "citation", "modelling_group"))
  expect_gt(nrow(dat), 1)
})

test_that("download members - correct modelling_group_id", {
  location <- montagu_test_server_admin()
  dat <- montagu_modelling_group_members(modelling_group_id = "VIMC", location = location)
  expect_is(dat, "character")
})