diff options
author | Karl Williamson <public@khwilliamson.com> | 2013-06-26 16:06:47 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2015-03-05 21:41:33 -0700 |
commit | 69929f1d944a854768112310eafb7cca2020bd6c (patch) | |
tree | bf2626158130c2ab9c122d97ad477f29e15f2332 | |
parent | 4371844fffe442ccc0baaf48a8281c6f8c19b1e7 (diff) | |
download | perl-69929f1d944a854768112310eafb7cca2020bd6c.tar.gz |
lib/Unicode/UCD.t: White-space only
Properly indent within a block
-rw-r--r-- | lib/Unicode/UCD.t | 54 |
1 files changed, 27 insertions, 27 deletions
diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index 969e0f8529..8eadfee176 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 |