guile-vocabulary-trainer/test/test-alist-procs.scm

(import
 (except (rnrs base) map)
 (only (guile)
       lambda* λ)
 (alist-procs)
 ;; SRFI 1 - list procs
 (srfi srfi-1)
 ;; SRFI 64 - unit testing forms
 (srfi srfi-64))


(test-begin "alist-procs-test")

(test-group
 "alist-set"

 (test-assert "alist-set-01"
   (equal? '((a . 1) (b . 4) (c . 3))
           (alist-set '((a . 1) (b . 2) (c . 3)) 'b 4 #:equal-test equal?)))

 (test-assert "alist-set-02"
   (equal? '((a . 1)
             (b . 2)
             (c . 3)
             (d . 4))
           (alist-set '((a . 1)
                        (b . 2)
                        (c . 3))
                      'd
                      4
                      #:equal-test equal?))))

;; Finish the testsuite, and report results.
(test-end "alist-procs-test")