diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-12-23 13:47:11 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-12-23 14:05:27 -0700 |
| commit | 31a09021a5558064a4417036c917712e2435edf7 (patch) | |
| tree | 6f8da3c769047237d46c02d38cb51bca2dc6e9dd /ext/XS-APItest | |
| parent | 8ff203a1f6b1f9660ba978fda0dfd10a3d6d1dd8 (diff) | |
| download | perl-31a09021a5558064a4417036c917712e2435edf7.tar.gz | |
ext/XS-APItest/t/handy.t: White-space only
Indent 2 newly formed blocks properly
Diffstat (limited to 'ext/XS-APItest')
| -rw-r--r-- | ext/XS-APItest/t/handy.t | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/ext/XS-APItest/t/handy.t b/ext/XS-APItest/t/handy.t index 19f78c9b06..ffa2f174fc 100644 --- a/ext/XS-APItest/t/handy.t +++ b/ext/XS-APItest/t/handy.t @@ -133,16 +133,16 @@ foreach my $name (sort keys %properties) { } if (defined $locale) { - use locale; + use locale; - $ret = truth eval "test_is${function}_LC($i)"; - if ($@) { - fail($@); - } - else { - my $truth = truth($matches && $i < 128); - is ($ret, $truth, "is${function}_LC( $display_name ) == $truth"); - } + $ret = truth eval "test_is${function}_LC($i)"; + if ($@) { + fail($@); + } + else { + my $truth = truth($matches && $i < 128); + is ($ret, $truth, "is${function}_LC( $display_name ) == $truth"); + } } } @@ -179,16 +179,16 @@ foreach my $name (sort keys %properties) { } if ($name ne 'vertws' && defined $locale) { - use locale; + use locale; - $ret = truth eval "test_is${function}_LC_utf8('$char')"; - if ($@) { - fail($@); - } - else { - my $truth = truth($matches && ($i < 128 || $i > 255)); - is ($ret, $truth, "is${function}_LC_utf8( $display_name ) == $truth"); - } + $ret = truth eval "test_is${function}_LC_utf8('$char')"; + if ($@) { + fail($@); + } + else { + my $truth = truth($matches && ($i < 128 || $i > 255)); + is ($ret, $truth, "is${function}_LC_utf8( $display_name ) == $truth"); + } } } } |