This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to Scalar-List-Utils 1.45 from CPAN
[perl5.git] / cpan / Scalar-List-Utils / t / rt-96343.t
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
6 use Test::More;
7
8 {
9   use List::Util qw( first );
10
11   my $hash = {
12     'HellO WorlD' => 1,
13   };
14
15   is( ( first { 'hello world' eq lc($_) } keys %$hash ), "HellO WorlD",
16     'first (lc$_) perserves value' );
17 }
18
19 {
20   use List::Util qw( any );
21
22   my $hash = {
23     'HellO WorlD' => 1,
24   };
25
26   my $var;
27
28   no warnings 'void';
29   any { lc($_); $var = $_; } keys %$hash;
30
31   is( $var, 'HellO WorlD',
32     'any (lc$_) leaves value undisturbed' );
33 }
34
35 done_testing;