From 10331eac7e3c7b802718af515d17e50dca525b3f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 15 Jul 2009 23:56:27 +0200 Subject: [PATCH] Make the non-integrated VM test-suite less verbose. * testsuite/run-vm-tests.scm (run-vm-tests): Don't display the number of tests passed since it's always 1 or 0. --- testsuite/run-vm-tests.scm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/testsuite/run-vm-tests.scm b/testsuite/run-vm-tests.scm index c6c7a5dfe..f7eba40bb 100644 --- a/testsuite/run-vm-tests.scm +++ b/testsuite/run-vm-tests.scm @@ -1,7 +1,6 @@ ;;; run-vm-tests.scm -- Run Guile-VM's test suite. ;;; -;;; Copyright 2005 Ludovic Courtès -;;; +;;; Copyright 2005, 2009 Free Software Foundation, Inc. ;;; ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Lesser General Public License @@ -85,9 +84,7 @@ equal in the sense of @var{equal?}." (failed (length (filter not res)))) (if (= 0 failed) - (begin - (format #t "~%All ~a tests passed~%" total) - (exit 0)) + (exit 0) (begin (format #t "~%~a tests failed out of ~a~%" failed total)