6 lines
185 B
Perl
6 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))))
|