Commit 501b49e022a4752bddc596ba633145aad8354ff1
1 parent
1b59872b
Upgrade to qtest 1.7
Showing
1 changed file
with
2 additions
and
2 deletions
qtest/bin/qtest-driver
| @@ -33,7 +33,7 @@ require TestDriver; | @@ -33,7 +33,7 @@ require TestDriver; | ||
| 33 | 33 | ||
| 34 | if ((@ARGV == 1) && ($ARGV[0] eq '--version')) | 34 | if ((@ARGV == 1) && ($ARGV[0] eq '--version')) |
| 35 | { | 35 | { |
| 36 | - print "$whoami version 1.6\n"; | 36 | + print "$whoami version 1.7\n"; |
| 37 | exit 0; | 37 | exit 0; |
| 38 | } | 38 | } |
| 39 | if ((@ARGV == 1) && ($ARGV[0] eq '--print-path')) | 39 | if ((@ARGV == 1) && ($ARGV[0] eq '--print-path')) |
| @@ -545,7 +545,7 @@ sub tc_do_initial_checks | @@ -545,7 +545,7 @@ sub tc_do_initial_checks | ||
| 545 | # Look for coverage calls in the source subject to certain | 545 | # Look for coverage calls in the source subject to certain |
| 546 | # lexical constraints | 546 | # lexical constraints |
| 547 | my ($lscope, $case); | 547 | my ($lscope, $case); |
| 548 | - if (m/^\s*\&?QTC(?:::|\.)TC\(\"([^\"]+)\",\s*\"([^\"]+)\"/) | 548 | + if (m/^\s*\&?(?:QTC|qtc)(?:::|\.)TC\(\"([^\"]+)\",\s*\"([^\"]+)\"/) |
| 549 | { | 549 | { |
| 550 | # C++, Java, Perl, etc. | 550 | # C++, Java, Perl, etc. |
| 551 | ($lscope, $case) = ($1, $2); | 551 | ($lscope, $case) = ($1, $2); |