In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/43d32dfff0307a53909d889f16182a4c40647c3b?hp=ff36a2888e53279f5d5e02f24e556b77324953e4>
- Log ----------------------------------------------------------------- commit 43d32dfff0307a53909d889f16182a4c40647c3b Author: Karl Williamson <[email protected]> Date: Thu Jun 2 22:14:37 2011 -0600 fold_grind.t: Add comments M t/re/fold_grind.t commit e9ad586644d568ed64a8ca00a92daaf66ca17ab9 Author: Karl Williamson <[email protected]> Date: Thu Jun 2 22:10:07 2011 -0600 autodoc.pl: Don't list experimental functions in API M autodoc.pl ----------------------------------------------------------------------- Summary of changes: autodoc.pl | 3 ++- t/re/fold_grind.t | 12 ++++++++++-- 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/autodoc.pl b/autodoc.pl index 26eb871..139c313 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -328,7 +328,8 @@ foreach (sort keys %missing) { # walk table providing an array of components in each line to # subroutine, printing the result -my @missing_api = grep $funcflags{$_}{flags} =~ /A/ && !$docs{api}{$_}, keys %funcflags; +# List of funcs in the public API that aren't also marked as experimental. +my @missing_api = grep $funcflags{$_}{flags} =~ /A/ && $funcflags{$_}{flags} !~ /M/ && !$docs{api}{$_}, keys %funcflags; output('perlapi', <<'_EOB_', $docs{api}, \@missing_api, <<'_EOE_'); =head1 NAME diff --git a/t/re/fold_grind.t b/t/re/fold_grind.t index 5a607d7..b8a1acb 100644 --- a/t/re/fold_grind.t +++ b/t/re/fold_grind.t @@ -153,8 +153,8 @@ sub add_test($@) { # comprehensively, we would try every combination of upper and lower # case in the fold, but it will have to suffice to avoid running # forever to make sure that each thing that folds to these is tested - # at least once. Because of complement matching, we need to do both - # the folded, and the folded-from. + # at least once. Because of complement matching ([^...]), we need to + # do both the folded, and the folded-from. # We first look at each character in the multi-char fold, and save how # many characters fold to it; and also the maximum number of such # folds @@ -174,6 +174,14 @@ sub add_test($@) { # We will need to generate as many tests as the maximum number of # folds, so that each fold will have at least one test. + # For example, consider character X which folds to the three character + # string 'xyz'. If 2 things fold to x (X and x), 4 to y (Y, Y' + # (Y-prime), Y'' (Y-prime-prime), and y), and 1 thing to z (itself), 4 + # tests will be generated: + # xyz + # XYz + # xY'z + # xY''z for (my $i = 0; $i < $max_folds_to; $i++) { my @this_test_to; # Assemble a single test -- Perl5 Master Repository
