Fix tests and program CI

- Get time before and after job in tests
- Program CI to test for checks overnight

Author: statnmap

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

@@ -5,6 +5,9 @@ on:
     branches: [main, master]
   pull_request:
     branches: [main, master]
+  schedule:
+    # * is a special character in YAML so you have to quote this string
+    - cron:  '59 23,11 * * 3'
 
 name: R-CMD-check
 

.github/workflows/test-coverage.yaml

@@ -5,6 +5,9 @@ on:
     branches: [main, master]
   pull_request:
     branches: [main, master]
+  schedule:
+    # * is a special character in YAML so you have to quote this string
+    - cron:  '59 23,11 * * 3'
 
 name: test-coverage
 

DESCRIPTION

@@ -1,21 +1,14 @@
 Package: gitdown
 Title: Turn Your Git Commit Messages into a HTML Book
-Version: 0.1.4.9000
-Authors@R: 
-    c(person(given = "Sébastien",
-             family = "Rochette",
-             role = c("aut", "cre"),
-             email = "[email protected]",
-             comment = c(ORCID = "0000-0002-1565-9313")),
-      person(given = "Cervan",
-             family = "Girard",
-             role = "aut",
-             email = "[email protected]",
-             comment = c(ORCID = "0000-0002-4816-4624")),
-      person(given = "ThinkR",
-             role = "cph"),
-      person(given = "Institut de Recherches Internationales Servier",
-             role = "spn"))
+Version: 0.1.5
+Authors@R: c(
+    person("Sébastien", "Rochette", , "[email protected]", role = c("aut", "cre"),
+           comment = c(ORCID = "0000-0002-1565-9313")),
+    person("Cervan", "Girard", , "[email protected]", role = "aut",
+           comment = c(ORCID = "0000-0002-4816-4624")),
+    person("ThinkR", role = "cph"),
+    person("Institut de Recherches Internationales Servier", role = "spn")
+  )
 Description: Read all commit messages of your local git repository and
     sort them according to tags or specific text pattern into chapters of
     a HTML book using 'bookdown'. The git history book presentation helps
@@ -41,10 +34,11 @@ Imports:
     tidyr,
     utils
 Suggests: 
-    testthat (>= 2.1.0),
+    testthat (>= 3.0.0),
     withr
 VignetteBuilder: 
     knitr
+Config/testthat/edition: 3
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.1.1
+RoxygenNote: 7.1.2

NEWS.md

@@ -1,4 +1,6 @@
-# gitdown (development version)
+# gitdown 0.1.5
+
+* Change unit tests
 
 # gitdown 0.1.4
 

dev_history.R

@@ -7,6 +7,7 @@ usethis::use_git_ignore("gitdown")
 
 usethis::use_git(message = "init commitdown")
 usethis::use_mit_license("ThinkR")
+usethis::use_testthat(edition = 3)
 
 # Functions ----
 usethis::use_pipe()
@@ -81,14 +82,19 @@ urlchecker::url_check()
 urlchecker::url_update()
 
 # check on other distributions
+Sys.time()
 rcmdcheck::rcmdcheck(args = "--as-cran")
+Sys.time()
+devtools::test()
+Sys.time()
 
 # rhub::validate_email()
 rhub::check_for_cran(show_status = FALSE)
 rhub::check_on_windows(check_args = "--force-multiarch")
 rhub::check_on_fedora()
 rhub::check_on_solaris(show_status = FALSE)
 rhub::check_on_windows()
+rhub::check_on_debian(show_status = FALSE)
 
 devtools::check_win_devel()
 devtools::check_win_release()

tests/testthat/test-get_info_files.R

@@ -1,27 +1,36 @@
+time_before_date <- Sys.Date()
+time_before <- as.character(time_before_date)
+
 repo_pkg <- fake_repo(as.package = TRUE)
 repo_no_pkg <- fake_repo()
 
 # get_info ----
 files <- list.files(repo_pkg, recursive = TRUE)
 infos <- get_info(files[grep("example", files)], repo = repo_pkg)
 infos_not_in_repo <- get_info(files[grep("my_mean", files)], repo = repo_pkg)
-today <- as.character(Sys.Date())
+
 # if check started one day and finishes the other day
-tomorrow <- as.character(Sys.Date() + 1)
+time_after_date <- Sys.Date()
+time_after <- as.character(time_after_date)
 
 test_that("get_info works", {
   expect_true(infos$in_repository)
   expect_equal(infos$file, "example.txt")
+
+  expect_gte(as.Date(infos$last_modif), time_before_date)
+  expect_lte(as.Date(infos$last_modif), time_after_date)
   expect_true(as.character(as.Date(infos$first_modif)) %in%
-                c(setNames(today, "first"), setNames(tomorrow, "first")))
+                c(setNames(time_before, "first"), setNames(time_after, "first")))
   expect_true(as.character(as.Date(infos$last_modif)) %in%
-                c(setNames(today, "last"), setNames(tomorrow, "first")))
+                c(setNames(time_before, "last"), setNames(time_after, "first")))
 
   expect_false(infos_not_in_repo$in_repository)
   expect_equal(infos_not_in_repo$file, "R/my_mean.R")
   expect_true(is.na(infos_not_in_repo$first_modif))
+  expect_gte(as.Date(infos_not_in_repo$last_modif), time_before_date)
+  expect_lte(as.Date(infos_not_in_repo$last_modif), time_after_date)
   expect_true(as.character(as.Date(infos_not_in_repo$last_modif)) %in%
-               c(setNames(today, "last"), setNames(tomorrow, "first")))
+               c(setNames(time_before, "last"), setNames(time_after, "first")))
 })
 
 # get_last_modif ----