hook-tests.yaml

on:
  push:
    branches:
      - master
  pull_request:
    branches:
      - master

name: Hook tests

jobs:
  hook-test:
    runs-on: ${{ matrix.config.os }}

    name: ${{ matrix.config.os }} (${{ matrix.config.r }})

    strategy:
      fail-fast: false
      matrix:
        config:
          - {os: macOS-latest,   r: 'release'}
          - {os: windows-latest, r: 'release'}
          - {os: ubuntu-18.04,   r: 'release', rspm: "https://packagemanager.rstudio.com/cran/__linux__/bionic/latest", http-user-agent: "R/4.0.0 (ubuntu-18.04) R (4.0.0 x86_64-pc-linux-gnu x86_64 linux-gnu) on GitHub Actions" }
    env:
      RSPM: ${{ matrix.config.rspm }}
      GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}

    steps:
      - uses: actions/checkout@v2
      - uses: r-lib/actions/setup-r@master
        with:
          r-version: ${{ matrix.config.r }}
          http-user-agent: ${{ matrix.config.http-user-agent }}
      - name: Query dependencies
        run: |
          writeLines(sprintf("R-%i.%i", getRversion()$major, getRversion()$minor), ".github/R-version")
        shell: Rscript {0}
      - name: Cache R packages (macOs)
        if: startsWith(runner.os, 'macOS')
        uses: actions/cache@v2
        with:
          path: ~/Library/Application Support/renv
          key: ${{ runner.os }}-${{ hashFiles('.github/R-version') }}-1-${{ hashFiles('renv.lock') }}
          restore-keys: ${{ runner.os }}-${{ hashFiles('.github/R-version') }}-1-
      - name: Cache R packages (Linux)
        if: startsWith(runner.os, 'Linux')
        uses: actions/cache@v2
        with:
          path: ~/.local/share/renv
          key: ${{ runner.os }}-${{ hashFiles('.github/R-version') }}-1-${{ hashFiles('renv.lock') }}
          restore-keys: ${{ runner.os }}-${{ hashFiles('.github/R-version') }}-1-
      - name: Cache R packages (Windows)
        if: startsWith(runner.os, 'Windows')
        uses: actions/cache@v2
        with:
          path: ~\AppData\Local\renv
          key: ${{ runner.os }}-${{ hashFiles('.github/R-version') }}-1-${{ hashFiles('renv.lock') }}
          restore-keys: ${{ runner.os }}-${{ hashFiles('.github/R-version') }}-1-

      - name: Install system dependencies (Linux)
        if: runner.os == 'Linux'
        run: |
          Rscript -e "install.packages('remotes', repos = Sys.getenv('RSPM'))"
          while read -r cmd
          do
            eval sudo $cmd
          done < <(Rscript -e 'cat(remotes::system_requirements("ubuntu", "18.04"), sep = "\n")')
      - name: Prepare hook environment
        run: |
          source('renv/activate.R')
          renv::restore()
          renv::install(getwd(), dependencies = FALSE) 
          # needed to make sure renv is activated in run_test() 
          activate <- c(
            "if (nzchar(Sys.getenv('R_PRECOMMIT_HOOK_ENV')))",
            paste0("renv::load('", getwd(), "')")
          )
          writeLines(activate, '~/.Rprofile') 
        shell: Rscript {0}
      - name: Perpare testing environment
        run: |
          # testing dependencies (incl. {precommit}) live in global R library, 
          # hook dependencies in renv, which is only activated when child R
          # process is invoked, e.g. as in run_test()
          if (!requireNamespace("renv", quietly = TRUE)) {
            install.packages("renv", repos = c(CRAN = "https://cloud.r-project.org"))
          }
          renv::install(c('testthat', 'devtools'))
          # some testing infrastructure we need is in R/testing.R
          renv::install(getwd(), dependencies = TRUE) 
        shell: Rscript {0}
      - name: Session info (testing environment)
        run: |
          renv::install('sessioninfo', repos = 'cloud.r-project.org')
          options(width = 100)
          pkgs <- installed.packages()[, "Package"]
          sessioninfo::session_info(pkgs, include_base = TRUE)
        shell: Rscript {0}
      - name: Test
        run: |
          devtools::load_all()
          testthat::test_file(
            "tests/testthat/test-hooks.R",
            reporter = testthat::MultiReporter$new(list(
              testthat::CheckReporter$new(), testthat::FailReporter$new()
            ))
          )
        shell: Rscript {0}
      - name: Show testthat output
        if: always()
        run: find check -name 'testthat.Rout*' -exec cat '{}' \; || true
        shell: bash
      - name: Assert no leakage from testing to hook env (1/2)
        run: |
          Rscript -e "renv::install('usethis'); path_pkg <- file.path(tempdir(), 'someP'); usethis::create_package(path_pkg); renv::install(path_pkg)"
      - name: Assert no leakage from testing to hook env (2/2)
        env: 
            R_PRECOMMIT_HOOK_ENV: "1"
        run: |
          Rscript -e "if ('someP' %in% rownames(installed.packages())) stop('environment isolation not working: You installed a package into the testing environment and it is available in the hook environment')"
      - name: Upload check results
        if: failure()
        uses: actions/upload-artifact@main
        with:
          name: ${{ runner.os }}-r${{ matrix.config.r }}-results
          path: check