test INSPIRE metadata validator with apiKey

Author: eblondel

.github/workflows/r-cmd-check.yml

@@ -18,9 +18,8 @@ jobs:
           - {os: ubuntu-20.04,   r: '4.0.5', rspm: "https://packagemanager.rstudio.com/cran/__linux__/focal/latest"}
 
     env:
-        #INSPIRE_API_KEY: ${{ secrets.INSPIRE_API_KEY }}
-        #waiting for receiving API key from INSPIRE team
-        INSPIRE_API_KEY: ''
+        INSPIRE_API_ENDPOINT: ${{ secrets.INSPIRE_API_ENDPOINT }}
+        INSPIRE_API_KEY: ${{ secrets.INSPIRE_API_KEY }}
 
     steps:
       - uses: actions/checkout@v2

tests/testthat/test_INSPIREMetadataValidator.R

@@ -18,7 +18,7 @@ test_that("inspire - metadata validator",{
 
   apiKey <- Sys.getenv("INSPIRE_API_KEY")
   if(nzchar(apiKey)){
-    inspireValidator <- INSPIREMetadataValidator$new(apiKey = apiKey)
+    inspireValidator <- INSPIREMetadataValidator$new(url = Sys.getenv("INSPIRE_API_ENDPOINT"), apiKey = apiKey)
     inspireReport <- inspireValidator$getValidationReport(obj = md, raw = TRUE)
     if(inspireValidator$running){
       expect_is(inspireReport, "list")
@@ -27,7 +27,7 @@ test_that("inspire - metadata validator",{
       expect_null(inspireReport)
     }
   }else{
-    inspireValidator <- INSPIREMetadataValidator$new(apiKey = apiKey)
+    inspireValidator <- INSPIREMetadataValidator$new(url = Sys.getenv("INSPIRE_API_ENDPOINT"), apiKey = apiKey)
     expect_error(inspireValidator$getValidationReport(obj = md, raw = TRUE))
   }
 })
@@ -36,7 +36,7 @@ test_that("inspire - metadata validator 'encode' shortcut",{
   testthat::skip_on_cran()
   apiKey <- Sys.getenv("INSPIRE_API_KEY")
   if(nzchar(apiKey)){
-    inspireValidator <- INSPIREMetadataValidator$new(apiKey = apiKey)
+    inspireValidator <- INSPIREMetadataValidator$new(url = Sys.getenv("INSPIRE_API_ENDPOINT"), apiKey = apiKey)
     xml <- md$encode(inspire = TRUE, inspireValidator = inspireValidator)
   }
 })
@@ -45,7 +45,7 @@ test_that("inspire - metadata validator 'save' shortcut",{
   testthat::skip_on_cran()
   apiKey <- Sys.getenv("INSPIRE_API_KEY")
   if(nzchar(apiKey)){
-    inspireValidator <- INSPIREMetadataValidator$new(apiKey = apiKey)
+    inspireValidator <- INSPIREMetadataValidator$new(url = Sys.getenv("INSPIRE_API_ENDPOINT"), apiKey = apiKey)
     md$save("my-metadata.xml", inspire = TRUE, inspireValidator = inspireValidator)
   }
 })