From 770405359e748b8064f9a8ace44cf7b4dfed8b7f Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 3 Oct 2009 19:33:54 -0500
Subject: [PATCH] better tests for stream-tell

---
 basis/io/streams/limited/limited-tests.factor | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/basis/io/streams/limited/limited-tests.factor b/basis/io/streams/limited/limited-tests.factor
index bc9125dd62..022d20eb5e 100644
--- a/basis/io/streams/limited/limited-tests.factor
+++ b/basis/io/streams/limited/limited-tests.factor
@@ -2,7 +2,7 @@ USING: accessors continuations destructors io io.encodings
 io.encodings.8-bit io.encodings.ascii io.encodings.binary
 io.encodings.string io.encodings.utf8 io.files io.pipes
 io.streams.byte-array io.streams.limited io.streams.string
-kernel namespaces strings tools.test ;
+kernel namespaces strings tools.test system ;
 IN: io.streams.limited.tests
 
 [ ] [
@@ -200,3 +200,17 @@ IN: io.streams.limited.tests
     [ 2 seek-absolute rot in>> stream-seek ] [ drop ] recover
     2 swap stream-read
 ] unit-test
+
+[ 7 ] [
+    image binary stream-throws <limited-file-reader> [
+        7 read drop
+        tell-input
+    ] with-input-stream
+] unit-test
+
+[ 70000 ] [
+    image binary stream-throws <limited-file-reader> [
+        70000 read drop
+        tell-input
+    ] with-input-stream
+] unit-test