steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/http/http-tests.factor
View File

@ -1,5 +1,6 @@
USING: http tools.test multiline tuple-syntax 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 ; assocs io.sockets db db.sqlite continuations urls hashtables ;
IN: http.tests IN: http.tests
@ -160,7 +161,7 @@ test-db [
[ t ] [ [ t ] [
"resource:extra/http/test/foo.html" ascii file-contents "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 ] unit-test
[ "http://localhost:1237/redirect-loop" http-get nip ] [ "http://localhost:1237/redirect-loop" http-get nip ]

6
extra/io/streams/limited/limited.factor
View File

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