diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-09-23 07:57:02 -0600 |
|---|---|---|
| committer | Jesse Vincent <jesse@bestpractical.com> | 2010-10-15 23:14:29 +0900 |
| commit | 1e9e76cc079531f613e810c12048f3a37922b76b (patch) | |
| tree | ced0023b3633046eec8b935dc0177b8a2b0d75b0 /lib/feature | |
| parent | 9fab35f28bfee6a6c5b8f9f9e37cd4e4755ce417 (diff) | |
| download | perl-1e9e76cc079531f613e810c12048f3a37922b76b.tar.gz | |
Subject: unicode_strings.t: Imprv test output
This improves the phrasing of the output of the tests
Diffstat (limited to 'lib/feature')
| -rw-r--r-- | lib/feature/unicode_strings.t | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lib/feature/unicode_strings.t b/lib/feature/unicode_strings.t index 3dfb0cf51c..08785dc720 100644 --- a/lib/feature/unicode_strings.t +++ b/lib/feature/unicode_strings.t @@ -86,7 +86,7 @@ for my $prefix (\%empty, \%posix, \%cyrillic, \%latin1) { # First try using latin1 (Unicode) semantics. use feature "unicode_strings"; - my $phrase = 'with uni8bit'; + my $phrase = 'in uni8bit'; my $char = chr($i); my $pre_lc = $prefix->{'lc'}; my $pre_uc = $prefix->{'uc'}; @@ -98,17 +98,17 @@ for my $prefix (\%empty, \%posix, \%cyrillic, \%latin1) { my $expected_lower = $pre_lc . $latin1_to_lower[$i] . $post_lc; is (uc($to_upper), $expected_upper, - display("$cp: $phrase: uc($to_upper) eq $expected_upper")); + display("$cp: $phrase: Verify uc($to_upper) eq $expected_upper")); is (lc($to_lower), $expected_lower, - display("$cp: $phrase: lc($to_lower) eq $expected_lower")); + display("$cp: $phrase: Verify lc($to_lower) eq $expected_lower")); if ($pre_uc eq "") { # Title case if null prefix. my $expected_title = $latin1_to_title[$i] . $post_lc; is (ucfirst($to_upper), $expected_title, - display("$cp: $phrase: ucfirst($to_upper) eq $expected_title")); + display("$cp: $phrase: Verify ucfirst($to_upper) eq $expected_title")); my $expected_lcfirst = $latin1_to_lower[$i] . $post_uc; is (lcfirst($to_lower), $expected_lcfirst, - display("$cp: $phrase: lcfirst($to_lower) eq $expected_lcfirst")); + display("$cp: $phrase: Verify lcfirst($to_lower) eq $expected_lcfirst")); } # Then try with posix semantics. @@ -125,17 +125,17 @@ for my $prefix (\%empty, \%posix, \%cyrillic, \%latin1) { $expected_lower = $pre_lc . $posix_to_lower[$i] . $post_lc; is (uc($to_upper), $expected_upper, - display("$cp: $phrase: uc($to_upper) eq $expected_upper")); + display("$cp: $phrase: Verify uc($to_upper) eq $expected_upper")); is (lc($to_lower), $expected_lower, - display("$cp: $phrase: lc($to_lower) eq $expected_lower")); + display("$cp: $phrase: Verify lc($to_lower) eq $expected_lower")); if ($pre_uc eq "") { my $expected_title = $posix_to_title[$i] . $post_lc; is (ucfirst($to_upper), $expected_title, - display("$cp: $phrase: ucfirst($to_upper) eq $expected_title")); + display("$cp: $phrase: Verify ucfirst($to_upper) eq $expected_title")); my $expected_lcfirst = $posix_to_lower[$i] . $post_uc; is (lcfirst($to_lower), $expected_lcfirst, - display("$cp: $phrase: lcfirst($to_lower) eq $expected_lcfirst")); + display("$cp: $phrase: Verify lcfirst($to_lower) eq $expected_lcfirst")); } } } |