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

Add tests for syntax/transformer.

Browse Source
This commit is contained in:
Vincent St-Amour 2015-07-31 17:07:47 -05:00
parent b4b0837a77
commit fd82eed31c
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
pkgs/racket-test/tests/syntax/tests/transformer.rkt Normal file
View File

@ -0,0 +1,13 @@
#lang racket/base
(require rackunit
(for-syntax racket/base syntax/transformer))
(define the-box (box add1))
(define-syntax op
(make-variable-like-transformer
#'(unbox the-box)
#'(lambda (v) (set-box! the-box v))))
(check-equal? (op 5) 6)
(set! op 0)
(check-equal? op 0)