RosettaCodeData/Task/Assertions/Emacs-Lisp/assertions.l

(require 'cl)
(let ((x 41))
  (assert (= x 42) t "the answer is not right"))