diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-11-04 11:59:46 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-11-04 11:59:46 +0100 |
| commit | 47b3124a8ecf3cf5826ee909776936a3107350f3 (patch) | |
| tree | 15a946fe44215990dc5f122b055ae29b72521aa9 | |
| parent | f6082affda1dc598199a4bad85dba2d79826159d (diff) | |
tests: Skip 'program-file' test when shebang is too long.
* tests/gexp.scm ("program-file"): Skip when SHEBANG is too long.
| -rw-r--r-- | tests/gexp.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/gexp.scm b/tests/gexp.scm index 4860a8e79c1..87c774782ab 100644 --- a/tests/gexp.scm +++ b/tests/gexp.scm | |||
| @@ -600,7 +600,7 @@ | |||
| 600 | 600 | ||
| 601 | ;; If we're going to hit the silly shebang limit (128 chars on Linux-based | 601 | ;; If we're going to hit the silly shebang limit (128 chars on Linux-based |
| 602 | ;; systems), then skip the following test. | 602 | ;; systems), then skip the following test. |
| 603 | (test-skip (if (> (string-length shebang) 127) 1 0)) | 603 | (test-skip (if (> (string-length shebang) 127) 2 0)) |
| 604 | 604 | ||
| 605 | (test-assertm "gexp->script" | 605 | (test-assertm "gexp->script" |
| 606 | (mlet* %store-monad ((n -> (random (expt 2 50))) | 606 | (mlet* %store-monad ((n -> (random (expt 2 50))) |