diff options
author | Jay Berkenbilt <ejb@ql.org> | 2021-10-26 15:49:34 +0200 |
---|---|---|
committer | Jay Berkenbilt <ejb@ql.org> | 2021-10-26 15:49:34 +0200 |
commit | 501b49e022a4752bddc596ba633145aad8354ff1 (patch) | |
tree | 2798d9ead3ec996e69a3395106b005744f3a61ec /qtest/bin | |
parent | 1b59872b367c24a84c323e7193786c8c3c70a98f (diff) | |
download | qpdf-501b49e022a4752bddc596ba633145aad8354ff1.tar.zst |
Upgrade to qtest 1.7
Diffstat (limited to 'qtest/bin')
-rwxr-xr-x | qtest/bin/qtest-driver | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/qtest/bin/qtest-driver b/qtest/bin/qtest-driver index 56208a5b..24b015c1 100755 --- a/qtest/bin/qtest-driver +++ b/qtest/bin/qtest-driver @@ -33,7 +33,7 @@ require TestDriver; if ((@ARGV == 1) && ($ARGV[0] eq '--version')) { - print "$whoami version 1.6\n"; + print "$whoami version 1.7\n"; exit 0; } if ((@ARGV == 1) && ($ARGV[0] eq '--print-path')) @@ -545,7 +545,7 @@ sub tc_do_initial_checks # Look for coverage calls in the source subject to certain # lexical constraints my ($lscope, $case); - if (m/^\s*\&?QTC(?:::|\.)TC\(\"([^\"]+)\",\s*\"([^\"]+)\"/) + if (m/^\s*\&?(?:QTC|qtc)(?:::|\.)TC\(\"([^\"]+)\",\s*\"([^\"]+)\"/) { # C++, Java, Perl, etc. ($lscope, $case) = ($1, $2); |