diff options
| author | Karl Williamson <khw@cpan.org> | 2017-07-07 10:34:01 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2017-07-12 21:14:25 -0600 |
| commit | a93dd121cb713b954d2e7ba422a8073211d4230a (patch) | |
| tree | 20c90db806a834c244cf26590a8727b5dc9feb61 /ext | |
| parent | b39a36941224113cceab40de28a787d572c9d707 (diff) | |
| download | perl-a93dd121cb713b954d2e7ba422a8073211d4230a.tar.gz | |
APItest/t/utf8_warn_base.pl: Clean up test name
This name was confusing, as there are two types of things that can be
(dis)allowed, and in the case of an overflow, the first type is not
being tested but has the adjective (dis)allowed present. Add the term
only when appropriate.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/XS-APItest/t/utf8_warn_base.pl | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/ext/XS-APItest/t/utf8_warn_base.pl b/ext/XS-APItest/t/utf8_warn_base.pl index 7a13c2f917..27537c8fde 100644 --- a/ext/XS-APItest/t/utf8_warn_base.pl +++ b/ext/XS-APItest/t/utf8_warn_base.pl @@ -1299,11 +1299,13 @@ foreach my $test (@tests) { } } - my $this_name = "utf8n_to_uvchr_error() $testname: " - . (($disallowed) - ? 'disallowed' - : 'allowed'); - $this_name .= ", $eval_warn"; + my $this_name = "utf8n_to_uvchr_error() $testname: "; + if (! $initially_malformed) { + $this_name .= ($disallowed) + ? 'disallowed, ' + : 'allowed, '; + } + $this_name .= "$eval_warn"; $this_name .= ", " . (( $this_warning_flags & $this_utf8n_flag_to_warn) ? 'with flag for raising warnings' |