ext/List-Util/t/max.t

   1 #!./perl
   2
   3 BEGIN {
   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
  16 use strict;
  17 use Test::More tests => 8;
  18 use List::Util qw(max);
  19
  20 my $v;
  21
  22 ok(defined &max, 'defined');
  23
  24 $v = max(1);
  25 is($v, 1, 'single arg');
  26
  27 $v = max (1,2);
  28 is($v, 2, '2-arg ordered');
  29
  30 $v = max(2,1);
  31 is($v, 2, '2-arg reverse ordered');
  32
  33 my @a = map { rand() } 1 .. 20;
  34 my @b = sort { $a <=> $b } @a;
  35 $v = max(@a);
  36 is($v, $b[-1], '20-arg random order');
  37
  38 my $one = Foo->new(1);
  39 my $two = Foo->new(2);
  40 my $thr = Foo->new(3);
  41
  42 $v = max($one,$two,$thr);
  43 is($v, 3, 'overload');
  44
  45 $v = max($thr,$two,$one);
  46 is($v, 3, 'overload');
  47
  48 { package Foo;
  49
  50 use overload
  51   '""' => sub { ${$_[0]} },
  52   '+0' => sub { ${$_[0]} },
  53   fallback => 1;
  54   sub new {
  55     my $class = shift;
  56     my $value = shift;
  57     bless \$value, $class;
  58   }
  59 }
  60
  61 SKIP: {
  62   eval { require bignum; } or skip("Need bignum for testing overloading",1);
  63
  64   my $v1 = 2**65;
  65   my $v2 = $v1 - 1;
  66   my $v3 = $v2 - 1;
  67   $v = max($v1,$v2,$v1,$v3,$v1);
  68   is($v, $v1, 'bigint');
  69 }