summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2013-06-26 16:06:47 -0600
committerKarl Williamson <khw@cpan.org>2015-03-05 21:41:33 -0700
commit69929f1d944a854768112310eafb7cca2020bd6c (patch)
treebf2626158130c2ab9c122d97ad477f29e15f2332
parent4371844fffe442ccc0baaf48a8281c6f8c19b1e7 (diff)
downloadperl-69929f1d944a854768112310eafb7cca2020bd6c.tar.gz
lib/Unicode/UCD.t: White-space only
Properly indent within a block
-rw-r--r--lib/Unicode/UCD.t54
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