diff options
Diffstat (limited to 'dist/Locale-Maketext/t')
| -rw-r--r-- | dist/Locale-Maketext/t/30_eval_dollar_at.t | 2 | ||||
| -rw-r--r-- | dist/Locale-Maketext/t/40_super.t | 6 | ||||
| -rw-r--r-- | dist/Locale-Maketext/t/50_super.t | 2 | ||||
| -rw-r--r-- | dist/Locale-Maketext/t/70_fail_auto.t | 4 |
4 files changed, 7 insertions, 7 deletions
diff --git a/dist/Locale-Maketext/t/30_eval_dollar_at.t b/dist/Locale-Maketext/t/30_eval_dollar_at.t index febc2f1b5c..00fbd34d24 100644 --- a/dist/Locale-Maketext/t/30_eval_dollar_at.t +++ b/dist/Locale-Maketext/t/30_eval_dollar_at.t @@ -28,7 +28,7 @@ my $err = eval { $lh->maketext('this is ] an error'); }; is($err, undef, "no return from eval"); -like("$@", qr/Unbalanced\s'\]',\sin/ms, '$@ shows that ] was unbalanced'); +like("$@", qr/Unbalanced\s'\]',\sin/ms, '$@ shows that ] was unbalanced'); # _try_use doesn't pollute $@ $@ = 'foo2'; diff --git a/dist/Locale-Maketext/t/40_super.t b/dist/Locale-Maketext/t/40_super.t index 8f72687d3c..4def9def57 100644 --- a/dist/Locale-Maketext/t/40_super.t +++ b/dist/Locale-Maketext/t/40_super.t @@ -24,17 +24,17 @@ my @in = grep m/\S/, split /[\n\r]/, q{ hai pt-br fr => hai pt-br fr pt # Now test multi-part complicateds: - pt-br-janeiro fr => pt-br-janeiro fr pt-br pt + pt-br-janeiro fr => pt-br-janeiro fr pt-br pt pt-br-janeiro de fr => pt-br-janeiro de fr pt-br pt pt-br-janeiro de pt fr => pt-br-janeiro de pt fr pt-br -ja pt-br-janeiro fr => ja pt-br-janeiro fr pt-br pt +ja pt-br-janeiro fr => ja pt-br-janeiro fr pt-br pt ja pt-br-janeiro de fr => ja pt-br-janeiro de fr pt-br pt ja pt-br-janeiro de pt fr => ja pt-br-janeiro de pt fr pt-br pt-br-janeiro de pt-br fr => pt-br-janeiro de pt-br fr pt # an odd case, since we don't filter for uniqueness in this sub - + }; $Locale::Maketext::MATCH_SUPERS_TIGHTLY = 0; diff --git a/dist/Locale-Maketext/t/50_super.t b/dist/Locale-Maketext/t/50_super.t index d253d78da7..ddd9901082 100644 --- a/dist/Locale-Maketext/t/50_super.t +++ b/dist/Locale-Maketext/t/50_super.t @@ -44,7 +44,7 @@ my @in = grep m/\S/, split /[\n\r]/, q{ pt-br-janeiro de pt-br fr => pt-br-janeiro de pt-br pt fr # an odd case, since we don't filter for uniqueness in this sub - + }; sub uniq { my %seen; return grep(!($seen{$_}++), @_); } diff --git a/dist/Locale-Maketext/t/70_fail_auto.t b/dist/Locale-Maketext/t/70_fail_auto.t index df0de3eb3c..ac0644174c 100644 --- a/dist/Locale-Maketext/t/70_fail_auto.t +++ b/dist/Locale-Maketext/t/70_fail_auto.t @@ -20,8 +20,8 @@ BEGIN { my $lh = Whunk::L10N->get_handle('en'); $lh->fail_with('failure_handler_auto'); -is($lh->maketext('abcd'), 'abcd', "simple missing keys are handled"); -is($lh->maketext('abcd'), 'abcd', "even in repeated calls"); +is($lh->maketext('abcd'), 'abcd', "simple missing keys are handled"); +is($lh->maketext('abcd'), 'abcd', "even in repeated calls"); # CPAN RT #25877 - $value Not Set After Second Call to failure_handler_auto() is($lh->maketext('Hey, [_1]', 'you'), 'Hey, you', "keys with bracket notation ok"); |