Made lexer unit tests compilable

fudge-chez.ss

@@ -4,6 +4,7 @@
   (lambda (file)
     (let ([c (lookahead-char file)])
       (cond
+        [(eof-object? c) ""]
         [(char-alphabetic? c)
          (get-char file)
          (string-append (string c) (get-word file))]
@@ -55,13 +56,46 @@
     (let ([file (open-input-file filename)])
       (get-tokens file))))
 
+(define test-lexer-fail
+  (lambda (input want got)
+    (display "text-lexer-fail: input=")
+    (write input)
+    (display "; want: ")
+    (write want)
+    (display "; got: ")
+    (write got)
+    (display ".")
+    (newline)))
+
+(define test-lexer-success
+  (lambda (input got)
+    (display "text-lexer-success: input=")
+    (write input)
+    (display "; got: ")
+    (write got)
+    (display ".")
+    (newline)))
+
 (define test-lexer
   (lambda (input want)
     (let ([port (open-string-input-port input)])
-      (let ([got (get-tokens port)])
-        (unless (eq? got want)
-          (text-lexer-fail input want got))))))
+      (call/cc
+        (lambda (i-got-exception)
+          (with-exception-handler
+            (lambda (x)
+              (display "test-lexer-fail: input ")
+              (write input)
+              (display " throws ")
+              (write x)
+              (display ".")
+              (newline)
+              (i-got-exception x))
+            (lambda ()
+              (let ([got (get-tokens port)])
+                (if (equal? got want)
+                (test-lexer-success input got)
+                (test-lexer-fail input want got))))))))))
 
 (test-lexer "hello world" '("hello" "world"))
-(test-lexer "+ * / -", '(+ * / -))
-(test-lexer "identifier = 14", '("identifier" = 14))
+(test-lexer "+ * / -" '(+ * / -))
+(test-lexer "identifier = 14" '("identifier" = 14))