mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Avoid deprecated _IONBF in http tests

Browse source 
* test-suite/tests/web-http.test ("chunked encoding"): Avoid deprecated
  _IONBF.
This commit is contained in:
Andy Wingo 2016-09-14 11:07:40 +02:00
parent b914c518bd
commit 0290b0594a
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test-suite/tests/web-http.test
View file

@ -413,8 +413,8 @@
(input (make-custom-binary-input-port "chunky" read! (input (make-custom-binary-input-port "chunky" read!
#f #f #f)) #f #f #f))
(port (make-chunked-input-port input))) (port (make-chunked-input-port input)))
(setvbuf input _IONBF) (setvbuf input 'none)
(setvbuf port _IONBF) (setvbuf port 'none)
(list (utf8->string (get-bytevector-n port 6)) (list (utf8->string (get-bytevector-n port 6))
(utf8->string (get-bytevector-n port 6)) (utf8->string (get-bytevector-n port 6))
(utf8->string (get-bytevector-n port 7)) (utf8->string (get-bytevector-n port 7))
@ -437,8 +437,8 @@
(input (make-custom-binary-input-port "chunky" read! (input (make-custom-binary-input-port "chunky" read!
#f #f #f)) #f #f #f))
(port (make-chunked-input-port input))) (port (make-chunked-input-port input)))
(setvbuf input _IONBF) (setvbuf input 'none)
(setvbuf port _IONBF) (setvbuf port 'none)
(list (utf8->string (get-bytevector-n port 6)) (list (utf8->string (get-bytevector-n port 6))
(utf8->string (get-bytevector-n port 13)) (utf8->string (get-bytevector-n port 13))
(utf8->string (get-bytevector-n port 6)) (utf8->string (get-bytevector-n port 6))