Minilisp.pm/t/context.t

15 lines
298 B
Perl
Raw Normal View History

2021-04-09 00:01:27 +02:00
(plan 3)
2021-04-04 23:13:17 +02:00
(let ((a 2))
(let ((a 10))
(expect "Inner variable shadows outer" (= a 10)))
(expect "Outer is not overriden" (= a 2)))
(let ((pings 0))
(defun ping ()
(set pings (+ pings 1)))
(ping) (ping) (ping)
(expect "setting variables in outside context works" (= pings 3)))