Add tests for (calp) module.

1 files changed, 13 insertions, 0 deletions

diff --git a/tests/unit/calp/calp.scm b/tests/unit/calp/calp.scm
new file mode 100644
index 00000000..c84bbf87
--- /dev/null
+++ b/tests/unit/calp/calp.scm
@@ -0,0 +1,13 @@
+(define-module (test calp)
+  :use-module (srfi srfi-64)
+  :use-module (ice-9 regex)
+  :use-module (calp))
+
+(test-assert "Calp version is a proper version string"
+             (string-match "^[0-9]+[.][0-9]+([.][0-9]+)?(-.*)?$"
+                          version))
+
+(test-assert "Prodid returns a string"
+             (string? (prodid)))
+
+'((calp))