Skip to content

Commit d4f99fe

Browse files
authored
update some tests to pass on windows. (#1037)
namely: fail/pr13289.rkt succeed/simple-kw-ap.rkt optimizer/test/known-length-vector-op.rkt
1 parent 5b871e6 commit d4f99fe

File tree

3 files changed

+8
-5
lines changed

3 files changed

+8
-5
lines changed

typed-racket-test/fail/pr13289.rkt

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
#;
2-
(exn-pred #rx"fail/pr13289.rkt:9:10:.*in: Natural")
2+
(exn-pred #rx"fail.pr13289.rkt:9:10:.*in: Natural")
33
#lang typed/racket
44

55
;; This test ensures that the error message for misuse of

typed-racket-test/optimizer/run.rkt

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -9,7 +9,7 @@
99
generate-log tests-dir missed-optimizations-dir)
1010

1111
(define (get-expected-results file)
12-
(with-input-from-file file
12+
(with-input-from-file file #:mode 'text
1313
(lambda () ; from the test file
1414
(read-line) ; skip the #;#;
1515
(values (for/list ((l (in-lines (open-input-string (read))))) l)
Lines changed: 6 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,8 +1,11 @@
11
#lang typed/racket
22

3-
((values file->string) "/dev/null" #:mode 'binary)
4-
(file->string "/dev/null" #:mode 'text)
3+
(define filename (collection-file-path "simple-kw-app.rkt"
4+
"typed-racket-test"
5+
"succeed"))
6+
((values file->string) filename #:mode 'binary)
7+
(file->string filename #:mode 'text)
58

69
file->value file->bytes
710

8-
(file->lines #:mode 'text #:line-mode 'linefeed "/dev/null")
11+
(file->lines #:mode 'text #:line-mode 'linefeed filename)

0 commit comments

Comments
 (0)