tests/testthat/test_personnel.R

In AGROFIMS/ragapi: An R-implementation of the Agronomy API standard (AgAPI) used by Agronomy Fieldbook Management System (AGROFIMS) platform

context("test personnel class")


test_that("Test agronomic exp. details version 0233-testq9", {
  
  test_v0233 <- AgPersonnel$new(serverURL = "https://research.cip.cgiar.org/agrofims/api/dev",
                                version ="/0233/r")#, endPoint= "/personnel/getAll?id=")
  out_test <- test_v0233$ag_get_personnel_studyId( studyDbId= 8, format="data.frame")
  testthat::expect_equal(object = nrow(out_test),expected =1)
  
})


test_that("Test agronomic exp. details version 0135", {
  
  test_v0135 <- AgPersonnel$new(serverURL = "https://research.cip.cgiar.org/agrofims/api/dev",
                                      version ="/0135/r")#, endPoint= "/personnel/getAll?id=")
  out_test <- test_v0135$ag_get_personnel_studyId( studyDbId= 18, format="data.frame")
  testthat::expect_equal(object = nrow(out_test),expected =2)
  
})

test_that("Test agronomic exp. details version 0118", {
  
  test_v0118 <- AgPersonnel$new(serverURL = "https://research.cip.cgiar.org/agrofims/api/dev",
                                      version ="/0118/r")#, endPoint= "/personnel/getAll?id=")
  out_test <- test_v0118$ag_get_personnel_studyId( studyDbId= 6, format="data.frame")
  testthat::expect_equal(object = nrow(out_test),expected =1)
  
})