This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lib/locale.t: big speedup
authorDavid Mitchell <davem@iabyn.com>
Wed, 23 Feb 2011 23:12:04 +0000 (23:12 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 23 Feb 2011 23:24:53 +0000 (23:24 +0000)
commitc00ff1c7cd54af0ffb12e9cddb484ce0943d6f0d
tree434437ccc5f43b8a4a4e4ca9afd096996802f8d5
parent6f9cf5ec4be448b28bbdeecb00f087f3daf7a03c
lib/locale.t: big speedup

This fix reduces the time for this test script on my debugging build
from 45 seconds to 6 seconds.

Basically, the structure of the main loop for test 117 now looks like:

    foreach my $x (keys %UPPER) {
        push @f, $x if (... something bad about $x...)
    }
    foreach my $x (keys %lower) {
        push @f, $x if (... something bad about $x...)
    }
    ok(!@f);

Whereas before it looked like:

    foreach my $x (keys %UPPER) {
        push @f, $x if (... something bad about $x...)
        foreach my $x (keys %lower) {
            push @f, $x if (... something bad about $x...)
        }
    }
    ok(!@f);

i.e. the %lower tests were inadvertently repeated many times
lib/locale.t