Newlines at EOFs
svn: r15380 original commit: a70bf64fd9d68487c128282ca85a8964e1592711
This commit is contained in:
parent
0d7e729c8b
commit
b6f7d53d13
|
@ -13,4 +13,4 @@
|
|||
scribble/manual)
|
||||
(for-label (all-from-out scheme/base
|
||||
schemeunit
|
||||
schemeunit/text-ui)))
|
||||
schemeunit/text-ui)))
|
||||
|
|
|
@ -51,4 +51,4 @@
|
|||
;; This check should display "I didn't run"
|
||||
(parameterize
|
||||
([current-check-around (lambda (t) (display "I didn't run\n"))])
|
||||
(check = 1 1 0.0))
|
||||
(check = 1 1 0.0))
|
||||
|
|
|
@ -17,4 +17,4 @@
|
|||
|
||||
;; Thesse should raise failures
|
||||
(test-begin (check-eq? 1 2))
|
||||
(test-case "failure" (check-eq? 1 2))
|
||||
(test-case "failure" (check-eq? 1 2))
|
||||
|
|
|
@ -54,4 +54,4 @@
|
|||
(define yes #t)
|
||||
(check-true yes)))))))
|
||||
|
||||
))
|
||||
))
|
||||
|
|
|
@ -68,4 +68,4 @@
|
|||
|
||||
|
||||
|
||||
(provide test-suite-tests)
|
||||
(provide test-suite-tests)
|
||||
|
|
|
@ -290,4 +290,3 @@
|
|||
(run-test
|
||||
(make-test-case "dummy" (lambda () (check-true #t)))))))
|
||||
))
|
||||
|
Loading…
Reference in New Issue
Block a user