1 files changed, 95 insertions, 0 deletions
diff --git a/tests/examplefiles/example.rkt b/tests/examplefiles/example.rkt
new file mode 100644
index 00000000..a3e4a29e
--- /dev/null
+++ b/tests/examplefiles/example.rkt
@@ -0,0 +1,95 @@
+#lang racket
+
+; Single-line comment style.
+
+;; Single-line comment style.
+
+#| Multi-line comment style ... on one line |#
+
+#|
+Multi-line comment style ...
+... on multiple lines
+|#
+
+(define (a-function x #:keyword [y 0])
+  (define foo0 'symbol) ; ()
+  [define foo1 'symbol] ; []
+  {define foo2 'symbol} ; {}
+  (and (append (car '(1 2 3))))
+  (regexp-match? #rx"foobar" "foobar")
+  (regexp-match? #px"foobar" "foobar")
+  (define a 1))
+  (let ([b "foo"])
+    (displayln b))
+  (for/list ([x (in-list (list 1 2 (list 3 4)))])
+      (cond
+       [(pair? x) (car x)]
+       [else x])))
+
+;; Literal number examples
+(values
+ ;; #b
+ #b1.1
+ #b-1.1
+ #b1e1
+ #b0/1
+ #b1/1
+ #b1e-1
+ #b101
+ 
+ ;; #d
+ #d-1.23
+ #d1.123
+ #d1e3
+ #d1e-22
+ #d1/2
+ #d-1/2
+ #d1
+ #d-1
+
+ ;; No # reader prefix -- same as #d
+ -1.23
+ 1.123
+ 1e3
+ 1e-22
+ 1/2
+ -1/2
+ 1
+ -1
+
+ ;; #e
+ #e-1.23
+ #e1.123
+ #e1e3
+ #e1e-22
+ #e1
+ #e-1
+ #e1/2
+ #e-1/2
+
+ ;; #i always float
+ #i-1.23
+ #i1.123
+ #i1e3
+ #i1e-22
+ #i1/2
+ #i-1/2
+ #i1
+ #i-1
+
+ ;; #o
+ #o777.777
+ #o-777.777
+ #o777e777
+ #o777e-777
+ #o3/7
+ #o-3/7
+ #o777
+ #o-777
+
+ ;; #x
+ #x-f.f
+ #xf.f
+ #x-f
+ #xf
+ )