suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix case-sensitivity in a test

Browse Source
This commit is contained in:
Matthew Flatt 2019-06-25 11:15:30 -06:00
parent 8c1dbae88b
commit d4123698b4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/compiler-test/tests/compiler/embed/test.rkt
View File

@ -328,7 +328,7 @@
compiler/find-exe) compiler/find-exe)
(define (add-suffixes s) (define (add-suffixes s)
(define me (path-replace-suffix (find-exe) #"")) (define me (path-replace-suffix (find-exe) #""))
(define ending (regexp-match #rx#"(?i:racket)([cs3mg]*)$" me)) (define ending (regexp-match #rx#"(?i:racket([cs3mg]*))$" me))
(define s2 (string-append s (bytes->string/utf-8 (cadr ending)))) (define s2 (string-append s (bytes->string/utf-8 (cadr ending))))
(if (eq? 'windows (system-type)) (if (eq? 'windows (system-type))
(string-append s2 ".exe") (string-append s2 ".exe")