From a2138e6dc02571b222eddfc232a4e18279359d7b Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 20 May 2016 22:53:28 -0400
Subject: [PATCH] New file

---
 test-opt2.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 test-opt2.scm

diff --git a/test-opt2.scm b/test-opt2.scm
new file mode 100644
index 00000000..9b247ae2
--- /dev/null
+++ b/test-opt2.scm
@@ -0,0 +1,23 @@
+(import (scheme base)
+        (scheme char)
+        (scheme file)
+        (scheme lazy)
+        (scheme read)
+        (scheme write)
+        (scheme eval)
+)
+
+(define (assert:equal msg actual expected)
+  (if (not (equal? actual expected))
+      (error "Unit test failed [" msg "] actual [" actual "] expected [" expected "]")
+      (set! *num-passed* (+ *num-passed* 1))))
+;; Adder example
+(define (make-adder x)
+  (lambda (y) (+ x  y)))
+(define decrement (make-adder -1))
+(assert:equal "Adder #2" (decrement 42) 41)
+
+(assert:equal "Application example"
+  ((lambda (x) x) (+ 41 1))
+  42)
+