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);
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
}