2014-11-04: added a testrunner using the new wisp-scheme.

added a testrunner using the new wisp-scheme.

diff --git a/testrunner.w b/testrunner.w
new file mode 100755
--- /dev/null
+++ b/testrunner.w
@@ -0,0 +1,34 @@
+#!/bin/bash
+exec guile -L . --language=wisp -s "$0" "$@"
+!#
+
+when : not : = 3 : length : command-line
+   format #t "Usage: ~A <wisp file> <scheme file>\n" : list-ref (command-line) 0
+   exit
+
+define wisp-file : list-ref (command-line) 1
+define scheme-file : list-ref (command-line) 2
+
+use-modules 
+  srfi srfi-1
+  wisp-scheme
+
+
+define : read-all port
+  let readloop : : res : '
+    let : : next : read port
+      if : eof-object? next
+          . res 
+          readloop : append res : list next
+
+
+if
+  equal? 
+       with-input-from-file scheme-file 
+         λ ()
+           read-all : current-input-port
+       with-input-from-file wisp-file
+         λ () 
+           wisp-scheme-read-all : current-input-port
+  format #t "Files ~A and ~A have equivalent content.\n" scheme-file wisp-file
+  format #t "Files ~A and ~A are different!\n" scheme-file wisp-file