2021-04-09 00:01:27 +02:00
|
|
|
(plan 4)
|
|
|
|
|
|
2021-04-02 20:01:35 +02:00
|
|
|
(let ((a 5) (b 6))
|
|
|
|
|
(expect "a is 5" (= a 5))
|
|
|
|
|
(expect "b is 6" (= b 6))
|
|
|
|
|
)
|
2021-04-05 00:26:23 +02:00
|
|
|
|
|
|
|
|
(let ((a 'top))
|
|
|
|
|
(let ((a 'shadow)
|
|
|
|
|
(b a))
|
|
|
|
|
(expect "let - non incremental context"
|
|
|
|
|
(equal b 'top))))
|
|
|
|
|
|
|
|
|
|
(let ((a 'top))
|
|
|
|
|
(let* ((a 'shadow)
|
|
|
|
|
(b a))
|
|
|
|
|
(expect "let* - Incremental context"
|
|
|
|
|
(equal b 'shadow))))
|
