add test function

repl.scm

@@ -16,6 +16,8 @@
 (defprimitive < <)
 (defprimitive = =)
 (defprimitive eq? eq?)
+(defprimitive equal? equal?)
+(defprimitive not not)
 (defprimitive list list)
 (defprimitive null? null?)
 (defprimitive first car)

test/test.lol

@@ -1,4 +1,10 @@
 
+(def (test name expected thunk)
+  (let (res (thunk))
+    (if (not (equal? res expected))
+        (print "[FAIL] " name "    expected " expected " but got " res)
+        (print "[PASS] " name))))
+
 (def (map f l)
   (if (null? l)
     (list)
@@ -16,16 +22,13 @@
     1
     (* n (fact (- n 1)))))
 
-(print (map (compose square fact) (list 3 4 5)))
-
-(def my-hash {:key "first value" :other "second value"})
+(test "compose and map ints" (list 36 576 14400)
+      (fn () (map (compose square fact) (list 3 4 5))))
 
-(print (hash-ref my-hash :key))
-(print (hash-ref my-hash :other))
 
-(def my-vector [1 2 3 4])
+(test "hash-ref" "value" (fn () (hash-ref {:key "value"} :key)))
 
-(print (nth my-vector 2))
+(test "vector nth" 3 (fn () (nth [1 2 3 4] 2)))
 
 (def name "success")
 
@@ -40,6 +43,10 @@
     (print "ok: Non-local return")
     (cc 1)))
 
+;; stupid call/cc test
+(test "simple arithmetic" 2 (fn () (+ 1 1)))
+(test "This should pass" 1 (fn () 1))
+
 (print "Two times:")
 (print (call/cc (fn (c) (set! again c) "- first")))
 (again "- second")