16 lines
333 B
Perl
16 lines
333 B
Perl
(let ((a 5) (b 6))
|
|
(expect "a is 5" (= a 5))
|
|
(expect "b is 6" (= b 6))
|
|
)
|
|
|
|
(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))))
|