5 lines
140 B
Common Lisp
5 lines
140 B
Common Lisp
(in-package :panettone.tests)
|
|
(declaim (optimize (safety 3)))
|
|
|
|
(test noping-test
|
|
(is (not (equal "grfn" (panettone.irc:noping "grfn")))))
|