[uim-commit] r2114 - branches/r5rs/sigscheme/test

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-11 06:56:56 -0800 (Fri, 11 Nov 2005)
New Revision: 2114

Modified:
   branches/r5rs/sigscheme/test/unittest.scm
Log:
* sigscheme/test/unittest.scm
  - (assert-parse-error, obj->literal, string-read): New procedure


Modified: branches/r5rs/sigscheme/test/unittest.scm
===================================================================
--- branches/r5rs/sigscheme/test/unittest.scm	2005-11-10 12:10:49 UTC (rev 2113)
+++ branches/r5rs/sigscheme/test/unittest.scm	2005-11-11 14:56:56 UTC (rev 2114)
@@ -129,6 +129,10 @@
                                   test-name)))
       (assert err-msg errored))))
 
+(define assert-parse-error
+  (lambda (test-name str)
+    (assert-error test-name (lambda ()
+                              (string-read str)))))
 
 ;;
 ;; misc
@@ -139,5 +143,18 @@
   (lambda ()
     (for-each values ())))
 
+(define obj->literal
+  (lambda (obj)
+    (use srfi-6)
+    (let ((port (open-output-string)))
+      (write obj port)
+      (get-output-string port))))
+
+(define string-read
+  (lambda (str)
+    (use srfi-6)
+    (let ((port (open-input-string str)))
+      (read port))))
+
 (define (eval-counter n)
   (list 'eval-counter (+ n 1)))