8 lines
195 B
Perl
8 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))))
|