blob: 57d2e5382d2c1fc750884c9a8819ec47acdf7b3a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
;;; Commentary:
;; Checks some prodecuders from (calp util)
;;; Code:
(((calp util) filter-sorted set/r!))
(test-equal "Filter sorted"
'(3 4 5)
(filter-sorted (lambda (x) (<= 3 x 5)) (iota 10)))
(test-equal "set/r! = single"
#f
(let ((x #t))
(set/r! x = not)))
(test-error
'syntax-error
(test-read-eval-string "(set/r! x err not)"))
|