Add tests for armadillo_version_typed()

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,7 @@
+2025-10-21  Dirk Eddelbuettel  <[email protected]>
+
+	* inst/tinytest/test_misc.R: Tests for armadillo_version_typed()
+
 2025-10-20  Dirk Eddelbuettel  <[email protected]>
 
 	* DESCRIPTION (Version, Date): RcppArmadillo 15.2.0-0

inst/tinytest/test_misc.R

@@ -1,6 +1,6 @@
 #!/usr/bin/r -t
 #
-# Copyright (C) 2021-2023  Dirk Eddelbuettel
+# Copyright (C) 2021-2025  Dirk Eddelbuettel
 #
 # This file is part of RcppArmadillo.
 #
@@ -23,9 +23,14 @@ library(RcppArmadillo)
 arma <- armadillo_version(FALSE)
 expect_equal(length(arma), 3)           # major minor patch
 expect_equal(names(arma), c("major","minor","patch"))
+av <- as.package_version(paste(arma, collapse="."))
 arma <- armadillo_version(TRUE)
 expect_equal(class(arma), "integer")
 expect_equal(length(arma), 1L)
+pv <- armadillo_version_typed()
+expect_inherits(pv, "package_version")
+expect_inherits(pv, "numeric_version")
+expect_equal(pv, av)
 
 ## no tests as we have no (current) accessor as we prefer R RNGs
 expect_warning(armadillo_set_seed_random())