diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2018-03-27 02:03:40 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2018-03-27 03:30:04 +0200 |
| commit | d8127a386c4474543c17d0641ed0fd2f1b21f97b (patch) | |
| tree | 442d779c3e35296b6a7f84ad636cce30bd55927a | |
| parent | 729bae0c984021b6b0b18aecc76408bd52f9e6ad (diff) | |
| download | mcron-d8127a386c4474543c17d0641ed0fd2f1b21f97b.tar.gz mcron-d8127a386c4474543c17d0641ed0fd2f1b21f97b.tar.bz2 mcron-d8127a386c4474543c17d0641ed0fd2f1b21f97b.zip | |
utils: Check 'show-version' and 'show-package-information'
* tests/utils.scm ("show-package-information")
("show-version"): New tests.
| -rw-r--r-- | tests/utils.scm | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/tests/utils.scm b/tests/utils.scm index fbd32e1..0625850 100644 --- a/tests/utils.scm +++ b/tests/utils.scm @@ -19,6 +19,7 @@ (use-modules (ice-9 match) (ice-9 rdelim) (srfi srfi-64) + (mcron config) (mcron utils)) (test-begin "utils") @@ -63,6 +64,23 @@ (with-output-to-string (λ () (mcron-error 0 "foo" "bar")))) +;;; +;;; Check user interface conformance to GNU Coding Standards +;;; + +(test-assert "show-version" + (let ((out (with-output-to-string (λ () (show-version "dummy"))))) + (and (string-contains out config-package-version) + (string-contains out config-package-name)))) + +(test-assert "show-package-information" + (let ((out (with-output-to-string (λ () (show-package-information))))) + (string-contains out config-package-bugreport))) + +;;; +;;; Check 'get-user' +;;; + (define entry ;; Random user entry. (getpw)) |