tests: Skip 'program-file' test when shebang is too long.

* tests/gexp.scm ("program-file"): Skip when SHEBANG is too long.
This commit is contained in:
Ludovic Courtès 2015-11-04 11:59:46 +01:00
parent f6082affda
commit 47b3124a8e
1 changed files with 1 additions and 1 deletions

View File

@ -600,7 +600,7 @@
;; If we're going to hit the silly shebang limit (128 chars on Linux-based ;; If we're going to hit the silly shebang limit (128 chars on Linux-based
;; systems), then skip the following test. ;; systems), then skip the following test.
(test-skip (if (> (string-length shebang) 127) 1 0)) (test-skip (if (> (string-length shebang) 127) 2 0))
(test-assertm "gexp->script" (test-assertm "gexp->script"
(mlet* %store-monad ((n -> (random (expt 2 50))) (mlet* %store-monad ((n -> (random (expt 2 50)))