Whitespace and Dupe+ tests.

Author: dvanhorn

dupe-plus/test/test-runner.rkt

@@ -34,5 +34,26 @@
     (check-equal? (run '(if #f 3 4)) 4)
     (check-equal? (run '(if  0 3 4)) 3)
     (check-equal? (run '(zero? 4)) #f)
-    (check-equal? (run '(zero? 0)) #t)))
+    (check-equal? (run '(zero? 0)) #t))
+
+  (begin ;; Dupe+
+      (check-equal? (run '(not #t)) #f)
+      (check-equal? (run '(not #f)) #t)
+      (check-equal? (run '(not 7)) #f)
+      (check-equal? (run '(cond [else #t])) #t)
+      (check-equal? (run '(cond [(not #t) 2] [else 3])) 3)
+      (check-equal? (run '(cond [(if #t #t #f) 2] [else 3])) 2)
+      (check-equal? (run '(cond [(zero? 1) 2] [(if (not (zero? (sub1 2))) #t #f) 4] [else 3])) 4)
+      (check-equal? (run '(cond [#t 1] [else 2])) 1)
+      (check-equal? (run '(cond [1 1] [else 2])) 1)
+      (check-equal? (run '(case 2 [else 1])) 1)
+      (check-equal? (run '(case 2 [() 3] [else 1])) 1)
+      (check-equal? (run '(case 2 [(2) 3] [else 1])) 3)
+      (check-equal? (run '(case 4 [(2) 3] [else 1])) 1)
+      (check-equal? (run '(case 2 [(7 2) 3] [else 1])) 3)
+      (check-equal? (run '(case 4 [(7 2) 3] [else 1])) 1)
+      (check-equal? (run '(case 2 [(7 2 #t) 3] [else 1])) 3)
+      (check-equal? (run '(case 4 [(7 2 #t) 3] [else 1])) 1)
+      (check-equal? (run '(case #t [(7 2 #t) 3] [else 1])) 3)
+      (check-equal? (run '(case #f [(7 2 #t) 3] [else 1])) 1)))
 

hoax-plus/test/test-runner.rkt

@@ -93,7 +93,7 @@
     (check-equal? (run '(= (add1 4) 5)) #t)
     (check-equal? (run '(< 5 5)) #f)
     (check-equal? (run '(< 4 5)) #t)
-    (check-equal? (run '(< (add1 4) 5)) #f))            
+    (check-equal? (run '(< (add1 4) 5)) #f))
 
   (begin ;; Hustle
     (check-equal? (run '(empty? (cons 1 2))) #f)

iniquity-plus/test/test-runner.rkt

@@ -93,7 +93,7 @@
     (check-equal? (run '(= (add1 4) 5)) #t)
     (check-equal? (run '(< 5 5)) #f)
     (check-equal? (run '(< 4 5)) #t)
-    (check-equal? (run '(< (add1 4) 5)) #f))            
+    (check-equal? (run '(< (add1 4) 5)) #f))
 
   (begin ;; Hustle
     (check-equal? (run '(empty? (cons 1 2))) #f)

knock-plus/test/test-runner.rkt

@@ -93,7 +93,7 @@
     (check-equal? (run '(= (add1 4) 5)) #t)
     (check-equal? (run '(< 5 5)) #f)
     (check-equal? (run '(< 4 5)) #t)
-    (check-equal? (run '(< (add1 4) 5)) #f))            
+    (check-equal? (run '(< (add1 4) 5)) #f))
 
   (begin ;; Hustle
     (check-equal? (run '(empty? (cons 1 2))) #f)

loot-bignums/test/test-runner.rkt

@@ -93,7 +93,7 @@
     (check-equal? (run '(= (add1 4) 5)) #t)
     (check-equal? (run '(< 5 5)) #f)
     (check-equal? (run '(< 4 5)) #t)
-    (check-equal? (run '(< (add1 4) 5)) #f))            
+    (check-equal? (run '(< (add1 4) 5)) #f))
 
   (begin ;; Hustle
     (check-equal? (run '(empty? (cons 1 2))) #f)

loot-exceptions/interpreter/interp.rkt

@@ -84,17 +84,13 @@
        (with-handlers ([(λ (v) #t)
                         (λ (v)
                           (cond
-                            ; Errors are automatically re-raised.
                             [(eq? v 'err)
                              (raise 'err)]
-                            ; The predicate and handler exprs must be functions.
                             [(or (not (procedure? p))
                                  (not (procedure? f)))
                              (raise 'err)]
-                            ; If the predicate succeeds, apply the handler.
                             [(p v)
                              (f v)]
-                            ; Otherwise, re-raise.
                             [else (raise v)]))])
          (interp-e e r ds)))]))
 
@@ -156,3 +152,4 @@
     [((cons x xs) (cons y ys))
      (cons (list x y)
            (zip xs ys))]))
+

loot-exceptions/test/test-runner.rkt

@@ -93,7 +93,7 @@
     (check-equal? (run '(= (add1 4) 5)) #t)
     (check-equal? (run '(< 5 5)) #f)
     (check-equal? (run '(< 4 5)) #t)
-    (check-equal? (run '(< (add1 4) 5)) #f))            
+    (check-equal? (run '(< (add1 4) 5)) #f))
 
   (begin ;; Hustle
     (check-equal? (run '(empty? (cons 1 2))) #f)