Minilisp.pm/t/keyword.t
2021-04-09 00:01:27 +02:00

7 lines
195 B
Perl

(plan 3)
(let ((a 'a)
(b 'b))
(expect "equal to itself" (equal a a))
(expect "equal to identical keyword" (equal a 'a))
(expect "not equal to different keyword" (not (equal a 'b))))