From d6d418d67a648795fa6d2dc344245883a79e00ce Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay.mccarthy@gmail.com>
Date: Mon, 29 Aug 2016 11:11:59 -0400
Subject: [PATCH] change behavior of cdot

---
 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           | 13 ++++++++++++-
 4 files changed, 12 insertions(+), 11 deletions(-)
 delete mode 100644 remix/tests/pr/pr1439/lang.rkt
 delete mode 100644 remix/tests/pr/pr1439/reader.rkt
 delete mode 100644 remix/tests/pr/pr1439/use.rkt

diff --git a/remix/tests/pr/pr1439/lang.rkt b/remix/tests/pr/pr1439/lang.rkt
deleted file mode 100644
index ac8a601..0000000
--- a/remix/tests/pr/pr1439/lang.rkt
+++ /dev/null
@@ -1,3 +0,0 @@
-#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
deleted file mode 100644
index f83d36d..0000000
--- a/remix/tests/pr/pr1439/reader.rkt
+++ /dev/null
@@ -1,5 +0,0 @@
-#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
deleted file mode 100644
index fe81095..0000000
--- a/remix/tests/pr/pr1439/use.rkt
+++ /dev/null
@@ -1,2 +0,0 @@
-#lang reader "reader.rkt"
-x.
diff --git a/remix/tests/reader.rkt b/remix/tests/reader.rkt
index e2b0b86..f844418 100644
--- a/remix/tests/reader.rkt
+++ b/remix/tests/reader.rkt
@@ -31,13 +31,24 @@
   (check-false (read-square-bracket-with-tag))
   (check-false (read-curly-brace-with-tag))
   (check-false (read-cdot))
+
+  (define-syntax-rule (testerrors s ...)
+    (begin
+      (let ([x s])
+        (check-exn exn:fail:read?
+                   (λ () (with-input-from-string x remix-read)))
+        (check-exn exn:fail:read?
+                   (λ () (with-input-from-string x remix-read-syntax))))
+      ...))
+
+  (testerrors
+   "x.")
   
   (testit*
    ["(1 2 3)" (1 2 3)]
    ["[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)]