repair unit tests

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")))