In perl.git, the branch smoke-me/khw-handy has been updated <https://perl5.git.perl.org/perl.git/commitdiff/b0d3d504b5dec514add4f41e020370e506546cf2?hp=b3434cdb9ee7bda1a5ee52b86ac26a169a0db584>
- Log ----------------------------------------------------------------- commit b0d3d504b5dec514add4f41e020370e506546cf2 Author: Karl Williamson <[email protected]> Date: Fri Mar 29 15:02:52 2019 -0600 comment out most inserted diag lines ----------------------------------------------------------------------- Summary of changes: ext/XS-APItest/t/handy_base.pl | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/ext/XS-APItest/t/handy_base.pl b/ext/XS-APItest/t/handy_base.pl index f3349515ac..722d3cf3e2 100644 --- a/ext/XS-APItest/t/handy_base.pl +++ b/ext/XS-APItest/t/handy_base.pl @@ -228,9 +228,9 @@ foreach my $name (sort keys %properties, 'octal') { push @code_points, 0x110000; # Above Unicode, no prop should match no warnings 'non_unicode'; - diag __FILE__ . ": " . __LINE__ . ": Calculated code points to test"; + #diag __FILE__ . ": " . __LINE__ . ": Calculated code points to test"; for my $n (@code_points) { - diag __FILE__ . ": " . __LINE__ . ": testing code point $n"; + #diag __FILE__ . ": " . __LINE__ . ": testing code point $n"; my $u = utf8::native_to_unicode($n); my $function = uc($name); @@ -255,7 +255,7 @@ foreach my $name (sort keys %properties, 'octal') { "_LC_uvchr", "_utf8", "_LC_utf8") { - diag __FILE__ . ": " . __LINE__ . ": testing suffix $suffix"; + #diag __FILE__ . ": " . __LINE__ . ": testing suffix $suffix"; # Not all possible macros have been defined if ($name eq 'vertws') { @@ -285,7 +285,7 @@ foreach my $name (sort keys %properties, 'octal') { my ($display_locale, $locale_is_utf8) = get_display_locale_or_skip($locale, $suffix); next unless defined $display_locale; - diag __FILE__ . ": " . __LINE__ . ": testing locale $display_locale"; + #diag __FILE__ . ": " . __LINE__ . ": testing locale $display_locale"; use if $locale, "locale"; POSIX::setlocale( &POSIX::LC_ALL, $locale) if $locale; @@ -366,7 +366,7 @@ foreach my $name (sort keys %properties, 'octal') { "${tab}Got expected warning"); } else { - diag("@warnings"); + #diag("@warnings"); } undef @warnings; } @@ -414,7 +414,7 @@ my %to_properties = ( $property_count = -1; foreach my $name (sort keys %to_properties) { - diag __FILE__ . ": " . __LINE__ . ": property=$name"; + #diag __FILE__ . ": " . __LINE__ . ": property=$name"; $property_count++; next if $property_count % $num_test_files != $::TEST_CHUNK; @@ -458,7 +458,7 @@ foreach my $name (sort keys %to_properties) { # And finally one non-Unicode code point. push @code_points, 0x110000; # Above Unicode, no prop should match no warnings 'non_unicode'; - diag __FILE__ . ": " . __LINE__ . ": Calculated code points to test"; + #diag __FILE__ . ": " . __LINE__ . ": Calculated code points to test"; # $n is native; $u unicode. for my $n (@code_points) { @@ -472,7 +472,7 @@ foreach my $name (sort keys %to_properties) { my $display_name = sprintf "\\N{U+%02X, %s}", $n, $char_name; foreach my $suffix ("", "_L1", "_LC") { - diag __FILE__ . ": " . __LINE__ . ": testing suffix $suffix"; + #diag __FILE__ . ": " . __LINE__ . ": testing suffix $suffix"; # This is the only macro defined for L1 next if $suffix eq "_L1" && $function ne "LOWER"; @@ -486,7 +486,7 @@ foreach my $name (sort keys %to_properties) { my ($display_locale, $locale_is_utf8) = get_display_locale_or_skip($locale, $suffix); next unless defined $display_locale; - diag __FILE__ . ": " . __LINE__ . ": testing locale $display_locale"; + #diag __FILE__ . ": " . __LINE__ . ": testing locale $display_locale"; skip("to${name}_LC does not work for LATIN SMALL LETTER SHARP S" . "$display_locale", 1) @@ -584,7 +584,7 @@ foreach my $name (sort keys %to_properties) { next if $expect_error && $u < ((ord "A" == 65) ? 128 : 160); my $display_call = "to${function}_utf8($display_name, $utf8_param )"; - diag __FILE__ . ": " . __LINE__ . ": testing $display_call"; + #diag __FILE__ . ": " . __LINE__ . ": testing $display_call"; $ret = eval "test_to${function}_utf8('$char', $utf8_param_code)"; if ($expect_error) { isnt ($@, "", "expected and got error in $display_call"); -- Perl5 Master Repository
