From: Jacob Bachmeyer <jcb@gnu.org>
Date: Thu, 20 Oct 2022 04:00:32 +0000 (-0500)
Subject: Add tests verifying handling of directives lacking commands
X-Git-Url: https://vcs.fsf.org/?a=commitdiff_plain;h=2ba26bac127386d0f36b26087e32e7ab5dd379be;p=gatekeeper.git

Add tests verifying handling of directives lacking commands
---

diff --git a/testsuite/gatekeeper.all/01_loose.exp b/testsuite/gatekeeper.all/01_loose.exp
index b844f8b..98acd61 100644
--- a/testsuite/gatekeeper.all/01_loose.exp
+++ b/testsuite/gatekeeper.all/01_loose.exp
@@ -272,6 +272,39 @@ check_loose_directive "bogus: signed for package with no email address" {
     ftp-upload-script@gnu.org ftp-upload-report@gnu.org
 }
 
+check_loose_directive "bogus: no actual command" {
+    directive {
+	version 1.2
+	directory foo
+	comment "no actual command here"
+    } dsig { good 04 1000 }
+} file-tree {
+    { incoming stage pub archive } empty {}
+    { in-stage } files { foo.directive.asc }
+} log {
+    validate,no-op "null directive rejected"
+} email-to {
+    ftp-upload-script@gnu.org ftp-upload-report@gnu.org
+    foo@example.org foo@example.gnu.org foo@example.net
+}
+
+check_loose_directive "bogus: set 'replace' but no actual command" {
+    directive {
+	version 1.2
+	directory foo
+	replace true
+	comment "replace does not count as a command"
+    } dsig { good 05 1000 }
+} file-tree {
+    { incoming stage pub archive } empty {}
+    { in-stage } files { foo.directive.asc }
+} log {
+    validate,no-op "null directive rejected"
+} email-to {
+    ftp-upload-script@gnu.org ftp-upload-report@gnu.org
+    foo@example.org foo@example.gnu.org foo@example.net
+}
+
 # ----------------------------------------
 
 check_loose_directive "create symlink" {