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

Turn off demod tests for CS

Browse Source
This commit is contained in:
Jay McCarthy 2019-10-28 16:37:37 -04:00
parent 7d58a92af1
commit 6510ebb565
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
pkgs/compiler-test/tests/compiler/demodularizer/demod-test.rkt
View File

@ -63,14 +63,15 @@
(and (not (regexp-match #rx"merged" filename)) (and (not (regexp-match #rx"merged" filename))
(regexp-match #rx"rkt$" filename))) (regexp-match #rx"rkt$" filename)))
(test (unless (eq? (system-type 'vm) 'chez-scheme)
(for ([i (in-list (directory-list tests))]) (test
(define ip (build-path tests i)) (for ([i (in-list (directory-list tests))])
(when (modular-program? ip) (define ip (build-path tests i))
(printf "Checking ~a\n" ip) (when (modular-program? ip)
(test-on-program (path->string ip)) (printf "Checking ~a\n" ip)
(printf "Checking ~a, skip racket/private/pre-base\n" ip) (test-on-program (path->string ip))
(test-on-program (path->string ip) (printf "Checking ~a, skip racket/private/pre-base\n" ip)
(list "-e" (test-on-program (path->string ip)
(path->string (list "-e"
(collection-file-path "pre-base.rkt" "racket/private"))))))) (path->string
(collection-file-path "pre-base.rkt" "racket/private"))))))))