commit 93920509c95d375078fd67fc733a6d8e04b066a8 parent e486f2fd5a6ea811db54db5f051105718b2a9b4f Author: Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com> Date: Sat, 5 Sep 2015 14:17:35 +0200 Code only: expect test failure on SRFI-99. Diffstat:
| M | tests/srfi-123.sld | | | 13 | +++++++++++++ |
1 file changed, 13 insertions(+), 0 deletions(-)
diff --git a/tests/srfi-123.sld b/tests/srfi-123.sld @@ -52,6 +52,17 @@ (a foo-a set-foo-a!) (b foo-b)) + ;; The SRFI-99 sample implementation contains a bug where immutable fields + ;; are nevertheless mutable through the procedural API. Test whether we are + ;; on that implementation. + (cond-expand + ((library (srfi 99)) + (define using-broken-srfi99 + (guard (err (else #f)) + (rtd-mutator <foo> 'b)))) + (else + (define using-broken-srfi99 #f))) + (define (run-tests) (let ((runner (test-runner-create))) (parameterize ((test-runner-current runner)) @@ -99,6 +110,8 @@ (test-assert "record" (let ((r (make-foo 0 1))) (set! (ref r 'a) 2) (= 2 (ref r 'a)))) + (when using-broken-srfi99 + (test-expect-fail 1)) (test-assert "bad record assignment" (not (guard (err (else #f)) (set! (ref (make-foo 0 1) 'b) 2) #t))) (cond-expand