summaryrefslogtreecommitdiff
path: root/test-suite/standalone/test-language.el
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/standalone/test-language.el')
-rw-r--r--test-suite/standalone/test-language.el11
1 files changed, 11 insertions, 0 deletions
diff --git a/test-suite/standalone/test-language.el b/test-suite/standalone/test-language.el
new file mode 100644
index 000000000..c1f09cc3f
--- /dev/null
+++ b/test-suite/standalone/test-language.el
@@ -0,0 +1,11 @@
+;; Sample Elisp code for `test-language'.
+
+(defun fib (n)
+ "Anything but a fib."
+ (if (<= n 1)
+ n
+ (+ (fib (- n 1))
+ (fib (- n 2)))))
+
+(or (= 13 (fib 7))
+ (error "Something's wrong!"))