Enable tests on Github actions using secrets

.github/workflows/R-CMD-check.yaml

@@ -44,6 +44,17 @@ jobs:
           extra-packages: any::rcmdcheck
           needs: check
 
+      - name: Setup .Renviron for testing
+        run: |
+          echo OPENMPP_REMOTE_URL="$OPENMPP_REMOTE_URL" >> ~/.Renviron
+          echo OPENMPP_REMOTE_USER="$OPENMPP_REMOTE_USER" >> ~/.Renviron
+          echo OPENMPP_REMOTE_PWD="$OPENMPP_REMOTE_PWD" >> ~/.Renviron
+        shell: bash
+        env:
+          OPENMPP_REMOTE_URL: ${{ secrets.OPENMPP_REMOTE_URL }}
+          OPENMPP_REMOTE_USER: ${{ secrets.OPENMPP_REMOTE_USER }}
+          OPENMPP_REMOTE_PWD: ${{ secrets.OPENMPP_REMOTE_PWD }}
+
       - uses: r-lib/actions/check-r-package@v2
         with:
           upload-snapshots: true

tests/testthat/test-APIConnections.R

@@ -5,7 +5,6 @@ test_that("Should fail with no API connection", {
 
 test_that("Should work with no API connection", {
   skip_on_cran()
-  skip_on_ci()
   use_OpenMpp_remote()
   expect_no_error(get_models())
   expect_no_error(get_models_list())

tests/testthat/test-ClassModel.R

@@ -1,6 +1,5 @@
 test_that("Tests OpenMppModel class", {
   skip_on_cran()
-  skip_on_ci()
 
   # Setup
   use_OpenMpp_remote()

tests/testthat/test-ClassModelRun.R

@@ -1,6 +1,5 @@
 test_that("Tests OpenMppModelRun class", {
   skip_on_cran()
-  skip_on_ci()
 
   # Setup
   use_OpenMpp_remote()

tests/testthat/test-ClassModelRunSet.R

@@ -1,6 +1,5 @@
 test_that("Tests OpenMppModelRunSet class", {
   skip_on_cran()
-  skip_on_ci()
 
   # Setup
   use_OpenMpp_remote()

tests/testthat/test-ClassWorkset.R

@@ -1,6 +1,5 @@
 test_that("Tests OpenMppWorkset class", {
   skip_on_cran()
-  skip_on_ci()
 
   # Setup
   use_OpenMpp_remote()

tests/testthat/test-ModelMetadata.R

@@ -1,6 +1,5 @@
 test_that("Get model", {
   skip_on_cran()
-  skip_on_ci()
   model_name <- get_models()$Name[[1]]
   expect_type(get_model(model_name), 'list')
 })

tests/testthat/test-ModelRuns.R

@@ -1,6 +1,5 @@
 test_that("Test model run accessors", {
   skip_on_cran()
-  skip_on_ci()
   model_name <- get_models()$Name[[1]]
   run_name <- get_model_runs(model_name)$Name[[1]]
   expect_type(get_run(model_name, run_name), 'list')

tests/testthat/test-ModelWorkset.R

@@ -1,6 +1,5 @@
 test_that("Get workset", {
   skip_on_cran()
-  skip_on_ci()
   model_name <- get_models()$Name[[1]]
   workset_name <- get_worksets(model_name)$Name[[1]]
   expect_type(get_workset(model_name, workset_name), 'list')

tests/testthat/test-RunOptions.R

@@ -1,6 +1,5 @@
 test_that("Test run options", {
   skip_on_cran()
-  skip_on_ci()
   opts <- opts_run()
   expect_s3_class(opts, c("OpenMppRunOpts", "list"))
   expect_output(print(opts))