Math-AnyNum/t/integer_operations.t

#!perl -T

use 5.006;
use strict;
use warnings;
use Test::More;

plan tests => 41;

use Math::AnyNum;

{
    my $z = Math::AnyNum->new_z('43');

    is($z->popcount, 4);
    is($z,           43);
    $z = $z->neg;
    is($z,           -43);
    is($z->popcount, 4);
    is($z,           -43);

    my $c = Math::AnyNum->new_c('3', '4');
    ok(!defined($c->popcount));    # complex cannot be converted to an integer
    is($c, '3+4i');                # make sure the object is intact
}

{
    my $z  = Math::AnyNum->new_z('12');
    my $t1 = $z->factorial;
    is($t1, '479001600');
    is($z,  '12');                 # make sure factorial didn't change $z
    $z = $t1;

    $z = $z->isqrt;
    is($z, 21886);

#<<<
    $z = $z->ipow(30);
    is($z, '16032152917429066747418982495813383711705136304907234176407498567267316572349793360954753660521310614994729887678856029514210738176');
#>>>

    #~ $z->ilog(21886);
    #~ is($z, '30');

    $z = $z->log(21886);
    is($z, '30');

    $z = $z->mul(10);
    is($z, '300');

    $z = $z->iroot(3);
    is($z, '6');

    my $t2 = $z->binomial(3);
    is($t2, '20');
    is($z,  '6');    # make sure binomial didn't change $z
    $z = $t2;

    $z = $z->imod(12);
    is($z, '8');
}

{
    my $n = Math::AnyNum->new('-13');
    my $y = Math::AnyNum->new('9');
    my $f = Math::AnyNum->new('5.7');

    {
        # Special
        my $z = $n->isqrt;
        is($z, 'NaN');
    }

    {
        my $z = $n->iroot(3);
        is($z, '-2');
    }

    {
        my $z = $n->iroot(-3);
        is($z, 'NaN');
    }

    {
        my $z = $n->ipow('3.95');    # gets truncated to '3'
        is($z, '-2197');
    }

    {
        my $z = $n->ipow('-3.95');    # gets truncated to '-3'
        is($z, '-1');
    }

    {
        my $z = $n->ipow('4.95');     # gets truncated to '4'
        is($z, '28561');
    }

    {
        my $z = $n->ipow('-4.95');    # gets truncated to '-4'
        is($z, '0');
    }

    {
        my $z = $n->imod('-0.01');    # gets truncated to '0'
        is($z, 'NaN');
    }

    {
        my $z = $n->imod(Math::AnyNum->new('-0.91'));    # gets truncated to '0'
        is($z, 'NaN');
    }

    {
        my $z = $n->imod(Math::AnyNum->new('9.2'));      # gets truncated to '9'
        is($z, '5');
    }

    {
        my $z = $n->imod(Math::AnyNum->new('-9.9'));     # gets truncated to '9'
        is($z, '-4');
    }

    {
        my $z = $n->imod(Math::AnyNum->new('-20/2'));
        is($z, '-3');
    }

    {
        my $z = $n->imod('13');
        is($z, '0');
    }

    {
        my $z = $n->imod('-13');
        is($z, '0');
    }

    {
        my $z = $n->imod('11');
        is($z, '9');
    }

    {
        my $z = $n->imod($y);
        is($z, '5');
    }

    {
        my $z = $n->mod('11');
        is($z, '9');
    }

    {
        my $z = $n->imod('-11');
        is($z, '-2');
    }

    {
        my $z = $n->idiv('2');
        is($z, '-7');
    }

    {
        my $z = $n->idiv('-2');
        is($z, '6');
    }

    {
        my $z = $n->idiv($y);
        is($z, '-2');
    }

    {
        my $z = $n->idiv(-$y);
        is($z, '1');
    }

    {
        my $z = $n->idiv($f);
        is($z, '-3');
    }

    {
        my $z = $n->abs->idiv($f);
        is($z, '2');
    }
}