From 47b3124a8ecf3cf5826ee909776936a3107350f3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 4 Nov 2015 11:59:46 +0100 Subject: [PATCH] tests: Skip 'program-file' test when shebang is too long. * tests/gexp.scm ("program-file"): Skip when SHEBANG is too long. --- tests/gexp.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/gexp.scm b/tests/gexp.scm index 4860a8e79c..87c774782a 100644 --- a/tests/gexp.scm +++ b/tests/gexp.scm @@ -600,7 +600,7 @@ ;; If we're going to hit the silly shebang limit (128 chars on Linux-based ;; 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" (mlet* %store-monad ((n -> (random (expt 2 50)))