blob: c84bbf871836df10d6bd456122ff6ef18d187e96 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
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))
|