view release on metacpan or  search on metacpan

t/01-number.t  view on Meta::CPAN

###############################################################################

use strict;
use warnings;

use Test::More tests => 188;

use Sidef;

sub re($) {
    qr/^\Q$_[0]\E\z/;
}

###############################################################################
# general tests

my $o = 'Sidef::Types::Number::Number';

my $zero = $o->new(0);
my $one  = $o->new(1);

t/02-pow.t  view on Meta::CPAN

my $o = 'Sidef::Types::Number::Number';

my $int1 = $o->new(3);
my $int2 = $o->new(-4);

my $inf  = $o->inf;
my $nan  = $o->nan;
my $ninf = $o->ninf;

sub re($) {
    qr/^\Q$_[0]\E\z/;
}

#################################################################
# integer

my $r = $int1->pow($int1);
is("$r", "27");

$r = $int1->ipow($int1);