From fd82eed31c0277d2a141324f5ec3df732682e0e1 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Fri, 31 Jul 2015 17:07:47 -0500 Subject: [PATCH] Add tests for syntax/transformer. --- pkgs/racket-test/tests/syntax/tests/transformer.rkt | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 pkgs/racket-test/tests/syntax/tests/transformer.rkt diff --git a/pkgs/racket-test/tests/syntax/tests/transformer.rkt b/pkgs/racket-test/tests/syntax/tests/transformer.rkt new file mode 100644 index 0000000000..e957b49276 --- /dev/null +++ b/pkgs/racket-test/tests/syntax/tests/transformer.rkt @@ -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)