suzanne.soy/subtemplate
1
0
Fork 0
Code Issues 2 Pull Requests Actions Packages Projects Releases Wiki Activity

Compatibility with Racket 7: adjusted test

Browse Source
This commit is contained in:
Georges Dupéron 2018-06-03 01:41:52 +02:00
parent de0bf3a3b1
commit 4d5c43ada4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
test/test-subtemplate.rkt
View File

@ -888,7 +888,7 @@
;; sublist of wᵢ element is missing, so it does not really have a meaningful ;; sublist of wᵢ element is missing, so it does not really have a meaningful
;; length for the ... ;; length for the ...
(check-exn (check-exn
#rx"attribute contains non-syntax value.*#f" #rx"attribute contains non-(syntax|list) value.*#f"
(λ () (λ ()
(convert-compile-time-error (convert-compile-time-error
(check-equal? (syntax->datum (check-equal? (syntax->datum
@ -944,7 +944,7 @@
;; sublist of wᵢ element is missing, so it does not really have a meaningful ;; sublist of wᵢ element is missing, so it does not really have a meaningful
;; length for the ... ;; length for the ...
(check-exn (check-exn
#rx"attribute contains non-syntax value.*#f" #rx"attribute contains non-(syntax|list) value.*#f"
(λ () (λ ()
(convert-compile-time-error (convert-compile-time-error
(check-equal? (syntax->datum (check-equal? (syntax->datum
@ -965,7 +965,7 @@
;; sublist of wᵢ element is missing, so it does not really have a meaningful ;; sublist of wᵢ element is missing, so it does not really have a meaningful
;; length for the ... ;; length for the ...
(check-exn (check-exn
#rx"attribute contains non-syntax value.*#f" #rx"attribute contains non-(syntax|list) value.*#f"
(λ () (λ ()
(convert-compile-time-error (convert-compile-time-error
(check-equal? (syntax->datum (check-equal? (syntax->datum
@ -985,7 +985,7 @@
;; sublist of wᵢ element is missing, so it does not really have a meaningful ;; sublist of wᵢ element is missing, so it does not really have a meaningful
;; length for the ... ;; length for the ...
(check-exn (check-exn
#rx"attribute contains non-syntax value.*#f" #rx"attribute contains non-(syntax|list) value.*#f"
(λ () (λ ()
(convert-compile-time-error (convert-compile-time-error
(check-equal? (syntax->datum (check-equal? (syntax->datum