tests/testthat/test_projentity.R

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

context("test project management entity")

test_that("Test agronomic exp. details version 0233", {
  
  test_v0233 <- AgProjEntity$new(serverURL = "https://research.cip.cgiar.org/agrofims/api/dev",
                                 version ="/0233/r") #,endPoint= "/proj-entity/getAll?id=")
  out_test <- test_v0233$ag_get_projentity_studyId(studyDbId= 3, format="data.frame")
  testthat::expect_equal(object = nrow(out_test),expected = 0)
  
})


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

})


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