Rename and add "other package" tests.

aadler · May 16, 2024 · 775a36f · 775a36f
1 parent 0e39759
commit 775a36f
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 10 deletions.
diff --git a/inst/tinytest/test_package_metadata.R b/inst/tinytest/test_package_metadata.R
@@ -0,0 +1,20 @@
+# Copyright Avraham Adler (c) 2024
+# SPDX-License-Identifier: MPL-2.0+
+
+pV <- packageVersion("MBBEFDLite")
+myOtherPkgs <- c("Delaporte", "lamW", "Pade", "revss", "minimaxApprox")
+
+
+# Test CITATION has most recent package version
+expect_true(any(grepl(pV, toBibtex(citation("MBBEFDLite")), fixed = TRUE)))
+
+# Test NEWS has most recent package version
+expect_true(any(grepl(pV, news(package = "MBBEFDLite"), fixed = TRUE)))
+
+# Test that CITATION doesn't contain the name of any other of my packages
+expect_false(any(sapply(myOtherPkgs, grepl,
+                       x = toBibtex(citation("MBBEFDLite"), fixed = TRUE))))
+
+# Test that NEWS doesn't contain the name of any other of my packages
+expect_false(any(sapply(myOtherPkgs, grepl,
+                        x = news(package = "MBBEFDLite"), fixed = TRUE)))
diff --git a/inst/tinytest/test_version.R b/inst/tinytest/test_version.R