tests/fct-verif_source/fct-verif_source.R

In INESSS-QC/admissibilite1: Admissibilité des individus

# Créer fichier pour test
library(testthat)

file.create("tests/fct-verif_source/fichier1.txt")

# Créer information du dataset
object <- data.table(
  Name = "fichier1.txt",
  Size = file.info("tests/fct-verif_source/fichier1.txt")$size,
  Date = file.info("tests/fct-verif_source/fichier1.txt")$mtime
)
# Créer la même chose -> s'il n'y a pas de modification
expected <- copy(object)
# Vérifier s'il y a des différences
expect_equal(object, expected)  # pas de message
capture_error(expect_equal(object, expected))
# Modifier le fichier et enregistrer les nouvelles infos dans expected
file.edit("tests/fct-verif_source/fichier1.txt")
    # Écriture : Modification1 + save
# Enregistrer les nouvelles informations
expected <- data.table(
  Name = "fichier1.txt",
  Size = file.info("tests/fct-verif_source/fichier1.txt")$size,
  Date = file.info("tests/fct-verif_source/fichier1.txt")$mtime
)
# Vérifier les différences
expect_equal(object, expected)
# Essayer de capturer les erreurs
capture_error(expect_equal(object, expected))