From fb08397e06fd4de10e474c4af0bbd683d5c6178b Mon Sep 17 00:00:00 2001
From: "Artyom V. Poptsov" <poptsov.artyom@gmail.com>
Date: Sun, 21 Feb 2016 20:27:43 +0300
Subject: tests/server.scm: Use 'test-assert-with-log'

* tests/server.scm: Use 'test-assert-with-log' throughout the test suite.
---
 tests/server.scm | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'tests/server.scm')

diff --git a/tests/server.scm b/tests/server.scm
index 5a2f02c..f0edd7c 100644
--- a/tests/server.scm
+++ b/tests/server.scm
@@ -1,6 +1,6 @@
 ;;; server.scm -- Testing of server procedures without a client.
 
-;; Copyright (C) 2014, 2015 Artyom V. Poptsov <poptsov.artyom@gmail.com>
+;; Copyright (C) 2014, 2015, 2016 Artyom V. Poptsov <poptsov.artyom@gmail.com>
 ;;
 ;; This file is a part of Guile-SSH.
 ;;
@@ -36,19 +36,19 @@
 (test-assert "%make-server"
   (%make-server))
 
-(test-assert "server?"
+(test-assert-with-log "server?"
   (let ((server (%make-server))
         (x      "I'm not a server"))
     (and (server? server)
          (not (server? x)))))
 
-(test-assert "comparison of servers"
+(test-assert-with-log "comparison of servers"
   (let ((s1 (%make-server))
         (s2 (%make-server)))
     (and (equal? s1 s1)
          (not (equal? s1 s2)))))
 
-(test-assert "server-set!, valid values"
+(test-assert-with-log "server-set!, valid values"
   (let* ((server  (%make-server))
          (topdir  (getenv "abs_top_srcdir"))
          (options `((bindaddr      "127.0.0.1")
@@ -79,7 +79,7 @@
      options)
     res))
 
-(test-assert "server-set!, invalid values"
+(test-assert-with-log "server-set!, invalid values"
   (let ((server  (%make-server))
         (options '(;; Errors with wrong IP address format will be
                    ;; caught on `server-listen' call, so that's the
@@ -115,7 +115,7 @@
      options)
     res))
 
-(test-assert "make-server"
+(test-assert-with-log "make-server"
   (let ((topdir  (getenv "abs_top_srcdir")))
     (make-server #:bindaddr      "127.0.0.1"
                  #:bindport      123456
@@ -125,7 +125,7 @@
                  #:log-verbosity 'nolog
                  #:blocking-mode #f)))
 
-(test-assert "server-get"
+(test-assert-with-log "server-get"
   (let* ((topdir        (getenv "abs_top_srcdir"))
          (bindaddr      "127.0.0.1")
          (bindport      123456)
@@ -147,7 +147,7 @@
          (eq? (server-get server 'log-verbosity) log-verbosity)
          (eq? (server-get server 'blocking-mode) blocking-mode))))
 
-(test-assert "server-listen"
+(test-assert-with-log "server-listen"
   (let* ((topdir  (getenv "abs_top_srcdir"))
          (server  (make-server #:bindaddr "127.0.0.1"
                                #:bindport 123456
-- 
cgit v1.2.3