Minilisp.pm/t/keyword.t

6 lines
185 B
Perl
Raw Normal View History

2021-04-02 20:53:59 +02:00
(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))))