initial commit of rabbit port of lambdanative

tests/run.scm

@@ -0,0 +1,32 @@
+(use rabbit srfi-4 test)
+
+(randomize)
+
+(define (random-blob n)
+  (let ((v (make-u8vector n)))
+    (let loop ((n n))
+      (if (> n 0)
+          (begin 
+            (u8vector-set! v (- n 1) (random 255))
+            (loop (- n 1)))
+          (u8vector->blob v)))
+    ))
+                       
+(test-group "rabbit 1000 random vectors" 
+  (let loop ((n 1000))
+    (test-assert
+      (if (= n 0) #t 
+          (if (let* (
+                     (keylen (+ (random 10) 24))
+                     (key (random-blob keylen))
+                     (datalen (random 100000))
+                     (data (random-blob datalen))
+                     (ctx (rabbit-make key))
+                     )
+                (let ((res (not (equal? data (rabbit-decode! ctx (rabbit-encode! ctx data))))))
+                  (rabbit-destroy! ctx)
+                  res))
+              #f 
+              (loop (- n 1)))))))
+
+;; eof