test-suite/standalone/test-language.el

   1 ;; Sample Elisp code for `test-language'.
   2
   3 (defun fib (n)
   4   "Anything but a fib."
   5   (if (<= n 1)
   6       n
   7     (+ (fib (- n 1))
   8        (fib (- n 2)))))
   9
  10 (or (= 13 (fib 7))
  11     (error "Something's wrong!"))