1#!./perl 2 3BEGIN { 4 unless (-d 'blib') { 5 chdir 't' if -d 't'; 6 @INC = '../lib'; 7 require Config; import Config; 8 keys %Config; # Silence warning 9 if ($Config{extensions} !~ /\bList\/Util\b/) { 10 print "1..0 # Skip: List::Util was not built\n"; 11 exit 0; 12 } 13 } 14} 15 16use strict; 17use Test::More tests => 10; 18use List::Util qw(min); 19 20my $v; 21 22ok(defined &min, 'defined'); 23 24$v = min(9); 25is($v, 9, 'single arg'); 26 27$v = min (1,2); 28is($v, 1, '2-arg ordered'); 29 30$v = min(2,1); 31is($v, 1, '2-arg reverse ordered'); 32 33my @a = map { rand() } 1 .. 20; 34my @b = sort { $a <=> $b } @a; 35$v = min(@a); 36is($v, $b[0], '20-arg random order'); 37 38my $one = Foo->new(1); 39my $two = Foo->new(2); 40my $thr = Foo->new(3); 41 42$v = min($one,$two,$thr); 43is($v, 1, 'overload'); 44 45$v = min($thr,$two,$one); 46is($v, 1, 'overload'); 47 48{ package Foo; 49 50use overload 51 '""' => sub { ${$_[0]} }, 52 '0+' => sub { ${$_[0]} }, 53 '<' => sub { ${$_[0]} < ${$_[1]} }, 54 fallback => 1; 55 sub new { 56 my $class = shift; 57 my $value = shift; 58 bless \$value, $class; 59 } 60} 61 62use Math::BigInt; 63 64my $v1 = Math::BigInt->new(2) ** Math::BigInt->new(65); 65my $v2 = $v1 - 1; 66my $v3 = $v2 - 1; 67$v = min($v1,$v2,$v1,$v3,$v1); 68is($v, $v3, 'bigint'); 69 70$v = min($v1, 1, 2, 3); 71is($v, 1, 'bigint and normal int'); 72 73$v = min(1, 2, $v1, 3); 74is($v, 1, 'bigint and normal int'); 75 76