0. #lang racket/base
1. (require rackunit (for-syntax rackunit racket/base))
2.  
3. (check-false
4.  (immutable? (syntax-e #`#,(vector)))
5.  "(syntax-e (syntax (vector))) made immutable vector")
6.  
7. (check-true
8.  (immutable? (syntax-e #`#,(vector-immutable)))
9.  "(syntax-e (syntax (vector-immutable))) made mutable vector")
10.  
11. (define-syntax (mvec stx)
12.   (define v (vector))
13.   (check-false
14.    (immutable? v)
15.    "(vector) made immutable vector")
16.   #`#'#,v)
17.  
18. (check-false
19.  (immutable? (syntax-e (mvec)))
20.  "(syntax-e (syntax (vector))) made immutable vector")
21.  
22. (define-syntax (ivec stx)
23.   (define v (vector-immutable))
24.   (check-true
25.    (immutable? v)
26.    "(vector-immutable) made mutable vector")
27.   #`#'#,v)
28.  
29. (check-true
30.  (immutable? (syntax-e (ivec)))
31.  "(syntax-e (syntax (vector-immutable))) made mutable vector")

=>

-------------------- FAILURE name:       check-false location:   eval:2:0 params:     (#t) expression: (check-false (immutable? (syntax-e (quasisyntax (unsyntax (vector)))))) message:    "(syntax-e (syntax (vector))) made immutable vector" Check failure --------------------

-------------------- FAILURE name:       check-true location:   eval:5:0 params:     (#f) expression: (check-true (immutable? (syntax-e (ivec)))) message:    "(syntax-e (syntax (vector-immutable))) made mutable vector" Check failure --------------------