Added Iniquity test files and test harness

Author: Temur Saidkhodjaev

langs/iniquity/test/all.rkt

@@ -0,0 +1,5 @@
+#lang racket
+
+;; run command line compiler and compare against Racket as refernece implementation
+(require rackunit "../../test-programs/get-progs.rkt")
+(for-each test-prog (get-progs "iniquity"))

langs/test-programs/iniquity/build-list-cons-rec.rkt

@@ -0,0 +1,8 @@
+#lang racket
+(begin
+    (define (repeat n v)
+        (if (zero? n)
+            '()
+            (cons v (repeat (sub1 n) v))))
+    (repeat 10 42))
+

langs/test-programs/iniquity/even-odd-mutual-rec.rkt

@@ -0,0 +1,12 @@
+#lang racket
+(begin
+    (define (even? x)
+        (if (zero? x)
+            #t
+            (odd? (sub1 x))))
+    (define (odd? x)
+        (if (zero? x)
+            #f
+            (even? (sub1 x))))
+    (even? 42))
+

langs/test-programs/iniquity/id-def-call.rkt

@@ -0,0 +1,5 @@
+#lang racket
+(begin
+    (define (f x) x)
+    (f 5))
+

langs/test-programs/iniquity/map-add1-cons.rkt

@@ -0,0 +1,9 @@
+#lang racket
+(begin
+    (define (map-add1 xs)
+        (if (empty? xs)
+            '()
+            (cons (add1 (car xs))
+                  (map-add1 (cdr xs)))))
+    (map-add1 (cons 1 (cons 2 (cons 3 '())))))
+

langs/test-programs/iniquity/multiple-defs.rkt

@@ -0,0 +1,8 @@
+#lang racket
+(begin
+    (define (f x) x)
+    (define (g y) (+ y 5))
+    (define (h x y z) (+ (- x y) z))
+    (define (unused x y) 42)
+    (h (f 5) (g 42) 31))
+

langs/test-programs/iniquity/print-alphabet.rkt

@@ -0,0 +1,8 @@
+#lang racket
+(begin
+    (define (print-alphabet i)
+        (if (zero? i)
+            (void)
+            (begin (write-byte (- 123 i))
+                   (print-alphabet (sub1 i)))))
+    (print-alphabet 26))

langs/test-programs/iniquity/read-int-list.in

@@ -0,0 +1,8 @@
+1
+2
+3
+4
+5
+6
+7
+

langs/test-programs/iniquity/read-int-list.rkt

@@ -0,0 +1,9 @@
+#lang racket
+(begin
+    (define (read-int-list)
+        (let ([x (read-byte)])
+             (if (eof-object? x)
+                 '()
+                 (cons x (read-int-list)))))
+    (read-int-list))
+

langs/test-programs/iniquity/triangular-nums-rec.rkt

@@ -0,0 +1,8 @@
+#lang racket
+(begin
+    (define (tri x)
+        (if (zero? x)
+            0
+            (+ x (tri (sub1 x)))))
+    (tri 9))
+