diff options
| author | Karl Williamson <khw@cpan.org> | 2016-11-22 17:55:10 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-11-24 08:29:14 -0700 |
| commit | 5d03eac4dea7335a15adb10d0eaf0eda32a1949e (patch) | |
| tree | 4a2ad023b4271467b45bab935bf4d210ba5df06e /ext | |
| parent | 9a6c9c819a93cfcbc7497801aa9539a522b04291 (diff) | |
| download | perl-5d03eac4dea7335a15adb10d0eaf0eda32a1949e.tar.gz | |
APItest/t/utf8.t: Add some indentation to diagnositcs
This is so they don't interrupt reading the output when there are
errors.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/XS-APItest/t/utf8.t | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/ext/XS-APItest/t/utf8.t b/ext/XS-APItest/t/utf8.t index 4712fb1817..70e6fede6e 100644 --- a/ext/XS-APItest/t/utf8.t +++ b/ext/XS-APItest/t/utf8.t @@ -980,7 +980,7 @@ for my $restriction (sort keys %restriction_types) { "Verify $this_name is TRUE for valid input" . "$test_name_suffix")) { - diag("The bytes starting at offset" + diag(" The bytes starting at offset" . " $error_offset are" . display_bytes(substr( $restriction_types{$restriction} @@ -997,7 +997,8 @@ for my $restriction (sort keys %restriction_types) { my $min = ($error_offset < $expected_offset) ? $error_offset : $expected_offset; - diag display_bytes(substr($bytes, $min)); + diag(" The bytes starting at offset" . $min + . " are " . display_bytes(substr($bytes, $min))); } if ($function eq '_loclen') { @@ -2107,7 +2108,7 @@ foreach my $test (@tests) { undef @warnings; my $ret_ref; my $display_bytes = display_bytes($this_bytes); - my $call = "Call was: $eval_warn; \$ret_ref" + my $call = " Call was: $eval_warn; \$ret_ref" . " = test_utf8n_to_uvchr_error(" . "'$display_bytes', $this_length," . "$warn_flag" @@ -2336,7 +2337,7 @@ foreach my $test (@tests) { my $warn_flag = sprintf "0x%x", $uvchr_warn_flag; my $disallow_flag = sprintf "0x%x", $uvchr_disallow_flag; - $call = sprintf("call was: $eval_warn; \$ret" + $call = sprintf(" Call was: $eval_warn; \$ret" . " = test_uvchr_to_utf8_flags(" . " 0x%x, $warn_flag|$disallow_flag)", $allowed_uv); |