mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

* lib.scm (full-reporter): The test name is the cadr of the

Browse source 
result, not the cdr.  I'm not macho enough to handle run-time
typechecking.
This commit is contained in:
Jim Blandy 1999-06-09 08:57:23 +00:00
parent 26425f3d4f
commit 29055e0647
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
test-suite/lib.scm
View file

@ -295,7 +295,7 @@
((error) "ERROR") ((error) "ERROR")
(else #f)))) (else #f))))
(if label (if label
(display-line label ": " (format-test-name (cdr result))) (display-line label ": " (format-test-name (cadr result)))
(error "(test-suite lib) FULL-REPORTER: unrecognized result: " (error "(test-suite lib) FULL-REPORTER: unrecognized result: "
result)))) result))))