mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Make the non-integrated VM test-suite less verbose.

Browse source 
* testsuite/run-vm-tests.scm (run-vm-tests): Don't display the number of
  tests passed since it's always 1 or 0.
This commit is contained in:
Ludovic Courtès 2009-07-15 23:56:27 +02:00
parent ec99fe8ecb
commit 10331eac7e
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
testsuite/run-vm-tests.scm
View file

@ -1,7 +1,6 @@
;;; run-vm-tests.scm -- Run Guile-VM's test suite. ;;; 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 ;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Lesser General Public License ;;; 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)))) (failed (length (filter not res))))
(if (= 0 failed) (if (= 0 failed)
(begin (exit 0)
(format #t "~%All ~a tests passed~%" total)
(exit 0))
(begin (begin
(format #t "~%~a tests failed out of ~a~%" (format #t "~%~a tests failed out of ~a~%"
failed total) failed total)