check for windows unit test (no-check)

This commit is contained in:
dr. M.S. (Matthijs) Berends 2024-06-23 16:18:42 +02:00
parent 82585901a7
commit 4f9db23684
3 changed files with 15 additions and 66 deletions

View File

@ -1,57 +0,0 @@
#!/bin/bash
# ==================================================================== #
# TITLE: #
# AMR: An R Package for Working with Antimicrobial Resistance Data #
# #
# SOURCE CODE: #
# https://github.com/msberends/AMR #
# #
# PLEASE CITE THIS SOFTWARE AS: #
# Berends MS, Luz CF, Friedrich AW, Sinha BNM, Albers CJ, Glasner C #
# (2022). AMR: An R Package for Working with Antimicrobial Resistance #
# Data. Journal of Statistical Software, 104(3), 1-31. #
# https://doi.org/10.18637/jss.v104.i03 #
# #
# Developed at the University of Groningen and the University Medical #
# Center Groningen in The Netherlands, in collaboration with many #
# colleagues from around the world, see our website. #
# #
# This R package is free software; you can freely use and distribute #
# it for both personal and commercial purposes under the terms of the #
# GNU General Public License version 2.0 (GNU GPL-2), as published by #
# the Free Software Foundation. #
# We created this package for both routine data analysis and academic #
# research and it was publicly released in the hope that it will be #
# useful, but it comes WITHOUT ANY WARRANTY OR LIABILITY. #
# #
# Visit our website for the full manual and a complete tutorial about #
# how to conduct AMR data analysis: https://msberends.github.io/AMR/ #
# ==================================================================== #
#######################################
# This script runs on commit-msg hook #
#######################################
# Path to the commit message file
COMMIT_MSG_FILE=$1
# Read the current commit message
COMMIT_MSG=$(cat "$COMMIT_MSG_FILE")
# check the commit message, cancel commit if needed
if [[ "$COMMIT_MSG" =~ \(no-check\)|\(no-checks\)|\(no-verify\) ]]; then
exit 0
fi
# Path to the DESCRIPTION file
DESCRIPTION_FILE="DESCRIPTION"
# Read the version number from the DESCRIPTION file
if [ -f "$DESCRIPTION_FILE" ]; then
currentversion=$(grep "^Version:" "$DESCRIPTION_FILE" | awk '{print $2}')
else
echo "Error: DESCRIPTION file not found. Unable to prepend version number."
exit 1
fi
# Prepend the version number to the commit message
echo "(v${currentversion}) ${COMMIT_MSG}" > "$COMMIT_MSG_FILE"

View File

@ -33,23 +33,25 @@
# This script runs before every commit # # This script runs before every commit #
######################################## ########################################
# try to fetch the commit message from the standard location COMMIT_MSG_FILE=".git/COMMIT_EDITMSG"
COMMIT_MSG_PATH=".git/COMMIT_EDITMSG"
if [ -f "$COMMIT_MSG_PATH" ]; then # Read the commit message
COMMIT_MSG=$(cat "$COMMIT_MSG_PATH") if [ -f "$COMMIT_MSG_FILE" ]; then
COMMIT_MSG=$(cat "$COMMIT_MSG_FILE")
else else
echo "Commit message file not found." echo "Commit message file not found."
exit 1 exit 1
fi fi
# check the commit message, cancel commit if needed
if [[ "$COMMIT_MSG" =~ \(no-check\)|\(no-checks\)|\(no-verify\) ]]; then # Check the commit message and skip checks if needed
echo "Not running pre-commit checks:" if [[ "$COMMIT_MSG" =~ no-?checks?|no-?verify ]]; then
echo "Commit message contains '(no-check)', '(no-checks)', or '(no-verify)." echo "Not running prehook:"
echo "Commit message contains 'no-check' or 'no-verify'."
echo "" echo ""
exit 0 exit 0
fi fi
echo "Running pre-commit checks..." echo "Running prehook..."
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ # ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
if command -v Rscript > /dev/null; then if command -v Rscript > /dev/null; then
@ -119,3 +121,6 @@ else
echo "- no NEWS.md found!" echo "- no NEWS.md found!"
fi fi
echo "" echo ""
# Prepend the version number to the commit message
echo "(v${currentversion}) ${COMMIT_MSG}" > "$COMMIT_MSG_FILE"

View File

@ -326,6 +326,7 @@ expect_identical(out_vet$PRA, rep(NA_sir_, 11))
expect_identical(out_vet$FLR, as.sir(c("S", "S", NA, "S", "S", NA, "I", "R", NA, "R", "R"))) expect_identical(out_vet$FLR, as.sir(c("S", "S", NA, "S", "S", NA, "I", "R", NA, "R", "R")))
sir_history <- sir_interpretation_history() sir_history <- sir_interpretation_history()
print(sir_history$host)
expect_identical(sir_history$host, expect_identical(sir_history$host,
c("poultry", "cattle", "poultry", "cattle", "cattle", "cattle", "cattle", "cattle", "cattle", "cattle", "dogs", "horse", "dogs", "horse", "horse", "horse", "cattle", "horse", "cattle", "cattle", "cattle", c("poultry", "cattle", "poultry", "cattle", "cattle", "cattle", "cattle", "cattle", "cattle", "cattle", "dogs", "horse", "dogs", "horse", "horse", "horse", "cattle", "horse", "cattle", "cattle", "cattle",
"cattle", "cattle", "cattle", "cattle", "dogs", "dogs", "dogs", "dogs", "dogs", "dogs", "cattle", "dogs", "cattle", "cattle", "cattle", "cattle", "cattle", "cattle", "cattle", "cats", "cats", "cattle", "cattle", "cattle", "cattle", "dogs", "dogs", "dogs", "dogs", "dogs", "dogs", "cattle", "dogs", "cattle", "cattle", "cattle", "cattle", "cattle", "cattle", "cattle", "cats", "cats",