From bee6cd8ec1672286efc9ebc3c9435e55b38c8e2b Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Sun, 5 Aug 2018 20:29:31 -0700
Subject: [PATCH] repair unit tests

---
 .../basic-demo/lexer-test.rkt                 | 30 +++++++++----------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/beautiful-racket-demo/basic-demo/lexer-test.rkt b/beautiful-racket-demo/basic-demo/lexer-test.rkt
index b782eb2..96e4642 100644
--- a/beautiful-racket-demo/basic-demo/lexer-test.rkt
+++ b/beautiful-racket-demo/basic-demo/lexer-test.rkt
@@ -8,59 +8,59 @@
 (check-equal?
  (lex " ")
  (list (srcloc-token (token " " #:skip? #t)
-                     (srcloc 'string #f #f 1 1))))
+                     (srcloc 'string 1 0 1 1))))
 (check-equal?
  (lex "rem ignored\n")
  (list (srcloc-token (token 'REM "rem ignored")
-                     (srcloc 'string #f #f 1 11))
+                     (srcloc 'string 1 0 1 11))
        (srcloc-token (token 'NEWLINE "\n")
-                     (srcloc 'string #f #f 12 1))))
+                     (srcloc 'string 1 11 12 1))))
 (check-equal?
  (lex "print")
  (list (srcloc-token (token "print" "print")
-                     (srcloc 'string #f #f 1 5))))
+                     (srcloc 'string 1 0 1 5))))
 (check-equal?
  (lex "goto")
  (list (srcloc-token (token "goto" "goto")
-                     (srcloc 'string #f #f 1 4))))
+                     (srcloc 'string 1 0 1 4))))
 (check-equal?
  (lex "end")
  (list (srcloc-token (token "end" "end")
-                     (srcloc 'string #f #f 1 3))))
+                     (srcloc 'string 1 0 1 3))))
 (check-equal?
  (lex "+")
  (list (srcloc-token (token "+" "+")
-                     (srcloc 'string #f #f 1 1))))
+                     (srcloc 'string 1 0 1 1))))
 (check-equal?
  (lex ";")
  (list (srcloc-token (token ";" ";")
-                     (srcloc 'string #f #f 1 1))))
+                     (srcloc 'string 1 0 1 1))))
 (check-equal?
  (lex ":")
  (list (srcloc-token (token ":" ":")
-                     (srcloc 'string #f #f 1 1))))
+                     (srcloc 'string 1 0 1 1))))
 (check-equal?
  (lex "12")
  (list (srcloc-token (token 'INTEGER 12)
-                     (srcloc 'string #f #f 1 2))))
+                     (srcloc 'string 1 0 1 2))))
 (check-equal?
  (lex "1.2")
  (list (srcloc-token (token 'DECIMAL 1.2)
-                     (srcloc 'string #f #f 1 3))))
+                     (srcloc 'string 1 0 1 3))))
 (check-equal?
  (lex "12.")
  (list (srcloc-token (token 'DECIMAL 12.)
-                     (srcloc 'string #f #f 1 3))))
+                     (srcloc 'string 1 0 1 3))))
 (check-equal?
  (lex ".12")
  (list (srcloc-token (token 'DECIMAL .12)
-                     (srcloc 'string #f #f 1 3))))
+                     (srcloc 'string 1 0 1 3))))
 (check-equal?
  (lex "\"foo\"")
  (list (srcloc-token (token 'STRING "foo")
-                     (srcloc 'string #f #f 1 5))))
+                     (srcloc 'string 1 0 1 5))))
 (check-equal?
  (lex "'foo'")
  (list (srcloc-token (token 'STRING "foo")
-                     (srcloc 'string #f #f 1 5))))
+                     (srcloc 'string 1 0 1 5))))
 (check-exn exn:fail:read? (lambda () (lex "x")))
\ No newline at end of file