File tree Expand file tree Collapse file tree 3 files changed +8
-5
lines changed Expand file tree Collapse file tree 3 files changed +8
-5
lines changed Original file line number Diff line number Diff line change 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
Original file line number Diff line number Diff line change 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)
Original file line number Diff line number Diff line change 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
69file->value file->bytes
710
8- (file->lines #:mode 'text #:line-mode 'linefeed " /dev/null " )
11+ (file->lines #:mode 'text #:line-mode 'linefeed filename )
You can’t perform that action at this time.
0 commit comments