In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/69929f1d944a854768112310eafb7cca2020bd6c?hp=4371844fffe442ccc0baaf48a8281c6f8c19b1e7>
- Log ----------------------------------------------------------------- commit 69929f1d944a854768112310eafb7cca2020bd6c Author: Karl Williamson <[email protected]> Date: Wed Jun 26 16:06:47 2013 -0600 lib/Unicode/UCD.t: White-space only Properly indent within a block ----------------------------------------------------------------------- Summary of changes: lib/Unicode/UCD.t | 54 +++++++++++++++++++++++++++--------------------------- 1 file changed, 27 insertions(+), 27 deletions(-) diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index 969e0f8..8eadfee 100644 --- a/lib/Unicode/UCD.t +++ b/lib/Unicode/UCD.t @@ -1167,33 +1167,33 @@ my $prop; my ($invlist_ref, $invmap_ref, $format, $missing); if ($::IS_ASCII) { # On EBCDIC, other things will come first, and can vary # according to code page -$prop = "uc"; -($invlist_ref, $invmap_ref, $format, $missing) = prop_invmap($prop); -is($format, 'al', "prop_invmap() format of '$prop' is 'al'"); -is($missing, '0', "prop_invmap() missing of '$prop' is '0'"); -is($invlist_ref->[1], 0x61, "prop_invmap('$prop') list[1] is 0x61"); -is($invmap_ref->[1], 0x41, "prop_invmap('$prop') map[1] is 0x41"); - -$prop = "upper"; -($invlist_ref, $invmap_ref, $format, $missing) = prop_invmap($prop); -is($format, 's', "prop_invmap() format of '$prop' is 's"); -is($missing, 'N', "prop_invmap() missing of '$prop' is 'N'"); -is($invlist_ref->[1], 0x41, "prop_invmap('$prop') list[1] is 0x41"); -is($invmap_ref->[1], 'Y', "prop_invmap('$prop') map[1] is 'Y'"); - -$prop = "lower"; -($invlist_ref, $invmap_ref, $format, $missing) = prop_invmap($prop); -is($format, 's', "prop_invmap() format of '$prop' is 's'"); -is($missing, 'N', "prop_invmap() missing of '$prop' is 'N'"); -is($invlist_ref->[1], 0x61, "prop_invmap('$prop') list[1] is 0x61"); -is($invmap_ref->[1], 'Y', "prop_invmap('$prop') map[1] is 'Y'"); - -$prop = "lc"; -($invlist_ref, $invmap_ref, $format, $missing) = prop_invmap($prop); -is($format, 'al', "prop_invmap() format of '$prop' is 'al'"); -is($missing, '0', "prop_invmap() missing of '$prop' is '0'"); -is($invlist_ref->[1], 0x41, "prop_invmap('$prop') list[1] is 0x41"); -is($invmap_ref->[1], 0x61, "prop_invmap('$prop') map[1] is 0x61"); + $prop = "uc"; + ($invlist_ref, $invmap_ref, $format, $missing) = prop_invmap($prop); + is($format, 'al', "prop_invmap() format of '$prop' is 'al'"); + is($missing, '0', "prop_invmap() missing of '$prop' is '0'"); + is($invlist_ref->[1], 0x61, "prop_invmap('$prop') list[1] is 0x61"); + is($invmap_ref->[1], 0x41, "prop_invmap('$prop') map[1] is 0x41"); + + $prop = "upper"; + ($invlist_ref, $invmap_ref, $format, $missing) = prop_invmap($prop); + is($format, 's', "prop_invmap() format of '$prop' is 's"); + is($missing, 'N', "prop_invmap() missing of '$prop' is 'N'"); + is($invlist_ref->[1], 0x41, "prop_invmap('$prop') list[1] is 0x41"); + is($invmap_ref->[1], 'Y', "prop_invmap('$prop') map[1] is 'Y'"); + + $prop = "lower"; + ($invlist_ref, $invmap_ref, $format, $missing) = prop_invmap($prop); + is($format, 's', "prop_invmap() format of '$prop' is 's'"); + is($missing, 'N', "prop_invmap() missing of '$prop' is 'N'"); + is($invlist_ref->[1], 0x61, "prop_invmap('$prop') list[1] is 0x61"); + is($invmap_ref->[1], 'Y', "prop_invmap('$prop') map[1] is 'Y'"); + + $prop = "lc"; + ($invlist_ref, $invmap_ref, $format, $missing) = prop_invmap($prop); + is($format, 'al', "prop_invmap() format of '$prop' is 'al'"); + is($missing, '0', "prop_invmap() missing of '$prop' is '0'"); + is($invlist_ref->[1], 0x41, "prop_invmap('$prop') list[1] is 0x41"); + is($invmap_ref->[1], 0x61, "prop_invmap('$prop') map[1] is 0x61"); } # This property is stable and small, so can test all of it -- Perl5 Master Repository
