From: Nathan Wagner <nw@hydaspes.if.org>
Date: Mon, 15 Oct 2018 07:27:39 +0000 (+0000)
Subject: make check for bailout case insensitive
X-Git-Tag: v0.2.16~89
X-Git-Url: https://pd.if.org/git/?p=zpackage;a=commitdiff_plain;h=ef7f8cbdc486e746bc23b0b131b106b6422c8fef

make check for bailout case insensitive

fix output of skipped tests in tap.sh to prepend a '#' to the skip
directive text
---

diff --git a/t/ctap/prove.c b/t/ctap/prove.c
index 1d87035..a419afa 100644
--- a/t/ctap/prove.c
+++ b/t/ctap/prove.c
@@ -96,7 +96,7 @@ int runone(struct testrun *run) {
 
 	regcomp(&plan, "^[[:digit:]]+\\.\\.([[:digit:]]+)", REG_EXTENDED);
 	regcomp(&diagnostic, "#[[:space:]]*(.+)", REG_EXTENDED);
-	regcomp(&bail, "^Bail Out![[:space:]]*(.+)", REG_EXTENDED);
+	regcomp(&bail, "^Bail Out![[:space:]]*(.+)", REG_EXTENDED|REG_ICASE);
 	regcomp(&version, "^TAP Version ([[:digit:]]+)", REG_EXTENDED);
 
 	regcomp(&test, "^(not )?ok([[:space:]]*([[:digit:]]+))?", REG_EXTENDED);
diff --git a/t/tap.sh b/t/tap.sh
index 0053002..162a4eb 100755
--- a/t/tap.sh
+++ b/t/tap.sh
@@ -121,6 +121,6 @@ skip() {
 	while [ $tap_skipping -gt 0 ]; do
 		tn=$((tn + 1))
 		tap_skipping=$((tap_skipping - 1))
-		printf 'ok %d - skip %s\n' $tn "$*"
+		printf 'ok %d - # skip %s\n' $tn "$*"
 	done
 }