test INSPIRE metadata validator with apiKey

eblondel · Jan 26, 2022 · e3f0f41 · e3f0f41
1 parent 4e9e572
commit e3f0f41
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 7 deletions.
diff --git a/.github/workflows/r-cmd-check.yml b/.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

diff --git a/tests/testthat/test_INSPIREMetadataValidator.R b/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)
   }
 })