diff options
| -rw-r--r-- | Makefile.am | 2 | ||||
| -rw-r--r-- | tests/utils.scm | 108 |
2 files changed, 109 insertions, 1 deletions
diff --git a/Makefile.am b/Makefile.am index 21e9b8d..5c39805 100644 --- a/Makefile.am +++ b/Makefile.am @@ -74,7 +74,7 @@ bin_SCRIPTS = scripts/ccwl SOURCES = ccwl/ccwl.scm ccwl/yaml.scm ccwl/utils.scm TEST_EXTENSIONS = .scm -SCM_TESTS = tests/ccwl.scm tests/yaml.scm +SCM_TESTS = tests/ccwl.scm tests/utils.scm tests/yaml.scm TESTS = $(SCM_TESTS) SCM_LOG_DRIVER = \ diff --git a/tests/utils.scm b/tests/utils.scm new file mode 100644 index 0000000..6b38708 --- /dev/null +++ b/tests/utils.scm @@ -0,0 +1,108 @@ +;;; ccwl --- Concise Common Workflow Language +;;; Copyright © 2021 Arun Isaac <arunisaac@systemreboot.net> +;;; +;;; This file is part of ccwl. +;;; +;;; ccwl is free software: you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation, either version 3 of the License, or +;;; (at your option) any later version. +;;; +;;; ccwl is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with ccwl. If not, see <https://www.gnu.org/licenses/>. + +(use-modules (srfi srfi-64) + (srfi srfi-71) + (ccwl utils)) + +(test-begin "utils") + +(test-equal "pairify" + '((1 . 2) (3 . 4) (5 . 6)) + (pairify (list 1 2 3 4 5 6))) + +(test-equal "plist->alist" + '((spam . 1) (ham . 2) (eggs . 3)) + (plist->alist (list #:spam 1 #:ham 2 #:eggs 3))) + +(define plist-ref + (@@ (ccwl utils) plist-ref)) + +(test-equal "plist-ref" + 2 + (plist-ref (list #:spam 1 #:ham 2 #:eggs 3) + #:ham)) + +(test-equal "plist-ref with absent key" + #f + (plist-ref (list #:spam 1 #:ham 2 #:eggs 3) + #:foo)) + +(test-equal "group-keyword-arguments" + '(#:spam 1 #:ham (1 2 3) #:eggs (0)) + ((@@ (ccwl utils) group-keyword-arguments) + (list #:spam 1 #:ham 1 2 3 #:eggs 0) + (list #:spam))) + +;; We cannot use test-equal to compare syntax objects, since +;; test-equal does not preserve the lexical contexts of the test +;; expressions. +(test-assert "unsyntax-keywords" + (equal? (list #:ham #'1 #:eggs #'2) + ((module-ref (resolve-module '(ccwl utils)) + 'unsyntax-keywords) + (list #'#:ham #'1 #'#:eggs #'2)))) + +(test-equal "lambda**" + '(1 2 123 (1 2 3)) + ((lambda** (a b #:key foo #:key* bar) + (list a b foo bar)) + 1 2 #:foo 123 #:bar 1 2 3)) + +(test-assert "syntax-lambda**" + (equal? (list #'1 #'2 #'123 (list #'1 #'2 #'3)) + ((syntax-lambda** (a b #:key foo #:key* bar) + (list a b foo bar)) + #'(foo 1 2 #:foo 123 #:bar 1 2 3)))) + +(test-equal "filter-mapi" + '(1 3 5 7 9) + (filter-mapi (lambda (item index) + (and (even? index) + (1+ item))) + (iota 10))) + +(test-equal "mapn" + '((0 1 4 9 16) + (0 1 8 27 64)) + (let ((squares cubes (mapn (lambda (n) + (values (expt n 2) + (expt n 3))) + (iota 5)))) + (list squares cubes))) + +(test-equal "append-mapn" + '((0 0 1 1 2 4 3 9 4 16) + (0 0 1 1 2 8 3 27 4 64)) + (let ((squares cubes (append-mapn (lambda (n) + (values (list n (expt n 2)) + (list n (expt n 3)))) + (iota 5)))) + (list squares cubes))) + +(test-equal "foldn" + '(45 285) + (let ((sum sum-of-squares + (foldn (lambda (n sum sum-of-squares) + (values (+ sum n) + (+ sum-of-squares (expt n 2)))) + (iota 10) + 0 0))) + (list sum sum-of-squares))) + +(test-end "utils") |