mes: with-input-from-string: peek fix.
[mes.git] / tests / guile.test
index 4a3366be45bd71e2cd0adf17e17658a73a0bcf3a..0af3b35e8175f2fed5e469202d4e7fecd5e9f4e0 100755 (executable)
@@ -112,4 +112,9 @@ exit $?
     (push-input sp)
     (and (pop-input) (not (pop-input)))))
 
+(pass-if-equal "with-input-from-string peek"
+               #\X
+               (with-input-from-string "X"
+                 (lambda () (peek-char))))
+
 (result 'report)