diff --git a/tests/gdisk/test-expand-gpt.pl b/tests/gdisk/test-expand-gpt.pl
index 23a52b23c..5c77247c0 100755
--- a/tests/gdisk/test-expand-gpt.pl
+++ b/tests/gdisk/test-expand-gpt.pl
@@ -20,6 +20,11 @@ use warnings;
 
 use Sys::Guestfs;
 
+if ($ENV{SKIP_TEST_EXPAND_GPT_PL}) {
+    print "$0: test skipped because SKIP_TEST_EXPAND_GPT_PL is set\n";
+    exit 77;
+}
+
 sub tests {
 	my $g = Sys::Guestfs->new ();