summaryrefslogtreecommitdiff
path: root/test-suite/tests/web-http.test
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-03-01 22:46:55 +0100
committerAndy Wingo <wingo@pobox.com>2016-05-22 18:40:43 +0200
commitc6d88d12345a3722bf78b124c69f15d73da23dc0 (patch)
tree85dfdd73b4d7fad4414f7ab7a5970a4d8144c9a9 /test-suite/tests/web-http.test
parentfd17cf9f72bcfc1832775c848e678e695d05dbd8 (diff)
downloadguile-c6d88d12345a3722bf78b124c69f15d73da23dc0.tar.gz
tests: Use 'pass-if-equal' in web-http chunked encoding tests.
* test-suite/tests/web-http.test ("chunked encoding"): Use 'pass-if-equal' where appropriate.
Diffstat (limited to 'test-suite/tests/web-http.test')
-rw-r--r--test-suite/tests/web-http.test31
1 files changed, 16 insertions, 15 deletions
diff --git a/test-suite/tests/web-http.test b/test-suite/tests/web-http.test
index f01a8326d..09b029064 100644
--- a/test-suite/tests/web-http.test
+++ b/test-suite/tests/web-http.test
@@ -1,6 +1,6 @@
;;;; web-uri.test --- URI library -*- mode: scheme; coding: utf-8; -*-
;;;;
-;;;; Copyright (C) 2010, 2011, 2014, 2016 Free Software Foundation, Inc.
+;;;; Copyright (C) 2010-2011, 2014-2016 Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -369,18 +369,19 @@
(with-test-prefix "chunked encoding"
(let* ((s "5\r\nFirst\r\nA\r\n line\n Sec\r\n8\r\nond line\r\n0\r\n")
(p (make-chunked-input-port (open-input-string s))))
- (pass-if (equal? "First line\n Second line"
- (get-string-all p)))
+ (pass-if-equal
+ "First line\n Second line"
+ (get-string-all p))
(pass-if (port-eof? (make-chunked-input-port (open-input-string "0\r\n")))))
- (pass-if
- (equal? (call-with-output-string
- (lambda (out-raw)
- (let ((out-chunked (make-chunked-output-port out-raw
- #:keep-alive? #t)))
- (display "First chunk" out-chunked)
- (force-output out-chunked)
- (display "Second chunk" out-chunked)
- (force-output out-chunked)
- (display "Third chunk" out-chunked)
- (close-port out-chunked))))
- "b\r\nFirst chunk\r\nc\r\nSecond chunk\r\nb\r\nThird chunk\r\n0\r\n")))
+ (pass-if-equal
+ (call-with-output-string
+ (lambda (out-raw)
+ (let ((out-chunked (make-chunked-output-port out-raw
+ #:keep-alive? #t)))
+ (display "First chunk" out-chunked)
+ (force-output out-chunked)
+ (display "Second chunk" out-chunked)
+ (force-output out-chunked)
+ (display "Third chunk" out-chunked)
+ (close-port out-chunked))))
+ "b\r\nFirst chunk\r\nc\r\nSecond chunk\r\nb\r\nThird chunk\r\n0\r\n"))