conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

unlock exception tests

This commit is contained in:
Yuichi Nishiwaki 2014-07-27 18:32:04 +09:00
parent 730a827d0e
commit 87604a4cb8
1 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
t/r7rs-tests.scm
View File

@ -1627,10 +1627,10 @@
(test #t (test #t
(error-object? (guard (exn (else exn)) (error "BOOM!" 1 2 3)))) (error-object? (guard (exn (else exn)) (error "BOOM!" 1 2 3))))
;; (test "BOOM!" (test "BOOM!"
;; (error-object-message (guard (exn (else exn)) (error "BOOM!" 1 2 3)))) (error-object-message (guard (exn (else exn)) (error "BOOM!" 1 2 3))))
;; (test '(1 2 3) (test '(1 2 3)
;; (error-object-irritants (guard (exn (else exn)) (error "BOOM!" 1 2 3)))) (error-object-irritants (guard (exn (else exn)) (error "BOOM!" 1 2 3))))
(test #f (test #f
(file-error? (guard (exn (else exn)) (error "BOOM!")))) (file-error? (guard (exn (else exn)) (error "BOOM!"))))
@ -1737,30 +1737,30 @@
(test "reraised 0!" (get-output-string out)) (test "reraised 0!" (get-output-string out))
(test 'zero value)) (test 'zero value))
;; ;; From SRFI-34 "Examples" section - #8 ;; From SRFI-34 "Examples" section - #8
;; (test 42 (test 42
;; (guard (condition (guard (condition
;; ((assq 'a condition) => cdr) ((assq 'a condition) => cdr)
;; ((assq 'b condition))) ((assq 'b condition)))
;; (raise (list (cons 'a 42))))) (raise (list (cons 'a 42)))))
;; ;; From SRFI-34 "Examples" section - #9 ;; From SRFI-34 "Examples" section - #9
;; (test '(b . 23) (test '(b . 23)
;; (guard (condition (guard (condition
;; ((assq 'a condition) => cdr) ((assq 'a condition) => cdr)
;; ((assq 'b condition))) ((assq 'b condition)))
;; (raise (list (cons 'b 23))))) (raise (list (cons 'b 23)))))
;; (test 'caught-d (test 'caught-d
;; (guard (condition (guard (condition
;; ((assq 'c condition) 'caught-c) ((assq 'c condition) 'caught-c)
;; ((assq 'd condition) 'caught-d)) ((assq 'd condition) 'caught-d))
;; (list (list
;; (sqrt 8) (sqrt 8)
;; (guard (condition (guard (condition
;; ((assq 'a condition) => cdr) ((assq 'a condition) => cdr)
;; ((assq 'b condition))) ((assq 'b condition)))
;; (raise (list (cons 'd 24))))))) (raise (list (cons 'd 24)))))))
(test-end) (test-end)