Correction on the sig test support code to work on Unix: strip out th…

…e carriage returns.
shriram · Nov 9, 2011 · 2d63ff8 · 2d63ff8
1 parent e437fb9
commit 2d63ff8
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/tests/sigs-support.rkt b/tests/sigs-support.rkt
@@ -23,9 +23,11 @@
 
 (define (get-text-at-srcloc a-srcloc-vector)
   (define a-srcloc (apply srcloc (vector->list a-srcloc-vector)))
-  (substring (call-with-input-file* #:mode 'text
-               (srcloc-source a-srcloc)
-               port->string)
+  (substring (regexp-replace* "\r"
+                              (call-with-input-file* #:mode 'text
+                                                     (srcloc-source a-srcloc)
+                                                     port->string)
+                              "")
              (sub1 (srcloc-position a-srcloc))
              (+ (sub1 (srcloc-position a-srcloc))
                 (srcloc-span a-srcloc))))