guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 01/47: tests: Use 'pass-if-equal' in web-http chunked en


From: Andy Wingo
Subject: [Guile-commits] 01/47: tests: Use 'pass-if-equal' in web-http chunked encoding tests.
Date: Sun, 22 May 2016 18:23:03 +0000 (UTC)

wingo pushed a commit to branch master
in repository guile.

commit c6d88d12345a3722bf78b124c69f15d73da23dc0
Author: Ludovic Court├Ęs <address@hidden>
Date:   Sun Mar 1 22:46:55 2015 +0100

    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.
---
 test-suite/tests/web-http.test |   31 ++++++++++++++++---------------
 1 file changed, 16 insertions(+), 15 deletions(-)

diff --git a/test-suite/tests/web-http.test b/test-suite/tests/web-http.test
index f01a832..09b0290 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"))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]