mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-28 22:10:29 +02:00
Placate a number of `syntax-check' verifications.
- "filesystem" -> "file system" - remove doubled words - use EXIT_* macros instead of literal numbers - update `syntax-check' exclusion files
This commit is contained in:
parent
a3989357b3
commit
b3da54d181
29 changed files with 57 additions and 32 deletions
|
@ -119,7 +119,7 @@
|
|||
;;;;
|
||||
;;;; * (pass-if-exception name exception body) will pass if the execution of
|
||||
;;;; body causes the given exception to be thrown. If no exception is
|
||||
;;;; thrown, the test fails. If some other exception is thrown, is is an
|
||||
;;;; thrown, the test fails. If some other exception is thrown, it is an
|
||||
;;;; error.
|
||||
;;;; * (expect-fail-exception name exception body) will pass unexpectedly if
|
||||
;;;; the execution of body causes the given exception to be thrown. If no
|
||||
|
|
|
@ -35,7 +35,7 @@
|
|||
;;;; Author: Aubrey Jaffer
|
||||
;;;; Modified: Mikael Djurfeldt
|
||||
;;;; Removed tests which Guile deliberately
|
||||
;;;; won't pass. Made the the tests (test-cont), (test-sc4), and
|
||||
;;;; won't pass. Made the tests (test-cont), (test-sc4), and
|
||||
;;;; (test-delay) start to run automatically.
|
||||
;;;; Modified: Jim Blandy
|
||||
;;;; adapted to new Guile test suite framework
|
||||
|
|
|
@ -36,7 +36,7 @@
|
|||
; Test engine
|
||||
; ===========
|
||||
;
|
||||
; We use an extended version of the the checker of SRFI-42 (with
|
||||
; We use an extended version of the checker of SRFI-42 (with
|
||||
; Felix' reduction on codesize) for running a batch of tests for
|
||||
; the various procedures of 'compare.scm'. Moreover, we use the
|
||||
; comprehensions of SRFI-42 to generate examples systematically.
|
||||
|
|
|
@ -75,7 +75,7 @@
|
|||
|
||||
(let ((drift-fraction (/ max-diff average)))
|
||||
(or (< drift-fraction max-allowed-drift)
|
||||
;; don't stop the the test suite for what statistically is
|
||||
;; don't stop the test suite for what statistically is
|
||||
;; bound to happen.
|
||||
(throw 'unresolved (pk average drift-fraction))))))))
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue