Add test for package version and run it before the main test so as no…

…t to confuse the seed report.
aadler · Feb 1, 2024 · ab25fb9 · ab25fb9
1 parent 1fa0374
commit ab25fb9
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/inst/tinytest/test_1version.R b/inst/tinytest/test_1version.R
@@ -0,0 +1,14 @@
+# Copyright Avraham Adler (c) 2023
+# SPDX-License-Identifier: MPL-2.0+
+
+pV <- packageVersion("revss")
+
+# Test CITATION has most recent package version
+expect_true(any(grepl(pV, toBibtex(citation("revss")), fixed = TRUE)))
+
+# Test NEWS has most recent package version
+expect_true(any(grepl(pV, news(package = "revss"), fixed = TRUE)))
+
+# Test that NEWS has an entry with DESCRIPTION's Date
+expect_true(any(grepl(packageDate("revss"),
+                      news(package = "revss"), fixed = TRUE)))
diff --git a/inst/tinytest/test_revss.R → inst/tinytest/test_2revss.R b/inst/tinytest/test_revss.R → inst/tinytest/test_2revss.R