From c9ce1f25e0abb6149b7889c31d298e615b8f744d Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 29 Aug 2016 08:09:50 -0400 Subject: [PATCH] Adding tests from Alex --- remix/tests/pr/pr1439/lang.rkt | 3 +++ remix/tests/pr/pr1439/reader.rkt | 5 +++++ remix/tests/pr/pr1439/use.rkt | 2 ++ remix/tests/reader.rkt | 1 + 4 files changed, 11 insertions(+) create mode 100644 remix/tests/pr/pr1439/lang.rkt create mode 100644 remix/tests/pr/pr1439/reader.rkt create mode 100644 remix/tests/pr/pr1439/use.rkt diff --git a/remix/tests/pr/pr1439/lang.rkt b/remix/tests/pr/pr1439/lang.rkt new file mode 100644 index 0000000..ac8a601 --- /dev/null +++ b/remix/tests/pr/pr1439/lang.rkt @@ -0,0 +1,3 @@ +#lang racket/base +(provide (all-from-out racket/base) + (rename-out [quote #%dot])) diff --git a/remix/tests/pr/pr1439/reader.rkt b/remix/tests/pr/pr1439/reader.rkt new file mode 100644 index 0000000..f83d36d --- /dev/null +++ b/remix/tests/pr/pr1439/reader.rkt @@ -0,0 +1,5 @@ +#lang s-exp syntax/module-reader +"lang.rkt" +#:wrapper1 (lambda (thunk) + (parameterize ([read-cdot #true]) + (thunk))) diff --git a/remix/tests/pr/pr1439/use.rkt b/remix/tests/pr/pr1439/use.rkt new file mode 100644 index 0000000..fe81095 --- /dev/null +++ b/remix/tests/pr/pr1439/use.rkt @@ -0,0 +1,2 @@ +#lang reader "reader.rkt" +x. diff --git a/remix/tests/reader.rkt b/remix/tests/reader.rkt index 77c1e08..e2b0b86 100644 --- a/remix/tests/reader.rkt +++ b/remix/tests/reader.rkt @@ -37,6 +37,7 @@ ["[1 2 3]" (#%brackets 1 2 3)] ["{1 2 3}" (#%braces 1 2 3)] ["|a.b|" a.b] + ["x." (#%dot x)] ["a.b" (#%dot a b)] ["a .b" (#%dot a b)] ["a. b" (#%dot a b)]