diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2009-07-15 23:56:27 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2009-07-15 23:56:27 +0200 |
| commit | 10331eac7e3c7b802718af515d17e50dca525b3f (patch) | |
| tree | cfd04c825a7f5048764c0d3b3afd9f178ea11206 | |
| parent | ec99fe8ecb412e49e8e981246eb62ca46b32754b (diff) | |
| download | guile-10331eac7e3c7b802718af515d17e50dca525b3f.tar.gz | |
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.
| -rw-r--r-- | testsuite/run-vm-tests.scm | 7 |
1 files 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 <ludovic.courtes@laas.fr> -;;; +;;; 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) |