regressions: Allow test-launch-race.pl to be skipped.

[libguestfs.git] / regressions / test-launch-race.pl

diff --git a/regressions/test-launch-race.pl b/regressions/test-launch-race.pl
index 297c1b6..5a660ce 100755 (executable)
--- a/regressions/test-launch-race.pl
+++ b/regressions/test-launch-race.pl
@@ -25,6 +25,9 @@ use POSIX;
 
 use Sys::Guestfs;
 
+# Allow this test to be skipped.
+exit 0 if $ENV{SKIP_TEST_LAUNCH_RACE_PL};
+
 # Use a temporary TMPDIR to ensure it's clean
 my $tmpdir = tempdir (CLEANUP => 1);
 $ENV{TMPDIR} = $tmpdir;