Fix unit tests

db4
Slava Pestov 2008-06-12 03:58:33 -05:00
parent b01d1f8a56
commit d4d81da0a0
2 changed files with 6 additions and 5 deletions

View File

@ -1,5 +1,6 @@
USING: http tools.test multiline tuple-syntax
io.streams.string io.encodings.utf8 kernel arrays splitting sequences
io.streams.string io.encodings.utf8 io.encodings.string
kernel arrays splitting sequences
assocs io.sockets db db.sqlite continuations urls hashtables ;
IN: http.tests
@ -160,7 +161,7 @@ test-db [
[ t ] [
"resource:extra/http/test/foo.html" ascii file-contents
"http://localhost:1237/nested/foo.html" http-get nip =
"http://localhost:1237/nested/foo.html" http-get nip ascii decode =
] unit-test
[ "http://localhost:1237/redirect-loop" http-get nip ]

View File

@ -6,14 +6,14 @@ IN: io.streams.limited
TUPLE: limited-stream stream count limit ;
: <limited-stream> ( limit stream -- stream' )
: <limited-stream> ( stream limit -- stream' )
limited-stream new
swap >>stream
swap >>limit
swap >>stream
0 >>count ;
: limit-input ( limit -- )
input-stream [ <limited-stream> ] change ;
input-stream [ swap <limited-stream> ] change ;
ERROR: limit-exceeded ;