Minilisp.pm/t/keyword.t

5 lines
185 B
Perl

(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))))