Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
Math	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
_e_math.t	2.22 KB	-r--r--r--	2014-12-27 11:48
alias.inc	401 B	-r--r--r--	2014-12-27 11:48
bare_mbf.t	321 B	-r--r--r--	2014-12-27 11:48
bare_mbi.t	447 B	-r--r--r--	2014-12-27 11:48
bare_mif.t	502 B	-r--r--r--	2014-12-27 11:48
big_pi_e.t	689 B	-r--r--r--	2014-12-27 11:48
bigfltpm.inc	35.83 KB	-r--r--r--	2014-12-27 11:49
bigfltpm.t	846 B	-r--r--r--	2014-12-27 11:48
bigintc.t	14.24 KB	-r--r--r--	2014-12-27 11:48
bigintpm.inc	55.94 KB	-r--r--r--	2014-12-27 11:48
bigintpm.t	1.1 KB	-r--r--r--	2014-12-27 11:48
bigints.t	2.66 KB	-r--r--r--	2014-12-27 11:48
biglog.t	6.69 KB	-r--r--r--	2014-12-27 11:49
bigroot.t	1.41 KB	-r--r--r--	2014-12-27 11:48
calling.t	2.81 KB	-r--r--r--	2014-12-27 11:48
config.t	3.36 KB	-r--r--r--	2014-12-27 11:48
const_mbf.t	301 B	-r--r--r--	2014-12-27 11:48
constant.t	907 B	-r--r--r--	2014-12-27 11:48
downgrade.t	1.49 KB	-r--r--r--	2014-12-27 11:48
inf_nan.t	5.5 KB	-r--r--r--	2014-12-27 11:48
isa.t	886 B	-r--r--r--	2014-12-27 11:48
lib_load.t	881 B	-r--r--r--	2014-12-27 11:48
mbf_ali.t	189 B	-r--r--r--	2014-12-27 11:48
mbi_ali.t	185 B	-r--r--r--	2014-12-27 11:48
mbi_rand.t	2.81 KB	-r--r--r--	2014-12-27 11:48
mbimbf.inc	27.61 KB	-r--r--r--	2014-12-27 11:48
mbimbf.t	2.23 KB	-r--r--r--	2014-12-27 11:48
nan_cmp.t	805 B	-r--r--r--	2014-12-27 11:48
new_overloaded.t	739 B	-r--r--r--	2014-12-27 11:48
req_mbf0.t	228 B	-r--r--r--	2014-12-27 11:48
req_mbf1.t	208 B	-r--r--r--	2014-12-27 11:48
req_mbfa.t	213 B	-r--r--r--	2014-12-27 11:48
req_mbfi.t	212 B	-r--r--r--	2014-12-27 11:48
req_mbfn.t	213 B	-r--r--r--	2014-12-27 11:48
req_mbfw.t	632 B	-r--r--r--	2014-12-27 11:48
require.t	200 B	-r--r--r--	2014-12-27 11:48
round.t	2.7 KB	-r--r--r--	2014-12-27 11:48
rt-16221.t	1.52 KB	-r--r--r--	2014-12-27 11:48
sub_ali.t	234 B	-r--r--r--	2014-12-27 11:48
sub_mbf.t	1.03 KB	-r--r--r--	2014-12-27 11:48
sub_mbi.t	1 KB	-r--r--r--	2014-12-27 11:48
sub_mif.t	356 B	-r--r--r--	2014-12-27 11:48
trap.t	2.35 KB	-r--r--r--	2014-12-27 11:48
upgrade.inc	26.83 KB	-r--r--r--	2014-12-27 11:49
upgrade.t	475 B	-r--r--r--	2014-12-27 11:48
upgrade2.t	372 B	-r--r--r--	2014-12-27 11:48
upgradef.t	1.22 KB	-r--r--r--	2014-12-27 11:48
use.t	406 B	-r--r--r--	2014-12-27 11:48
use_lib1.t	346 B	-r--r--r--	2014-12-27 11:48
use_lib2.t	364 B	-r--r--r--	2014-12-27 11:48
use_lib3.t	364 B	-r--r--r--	2014-12-27 11:48
use_lib4.t	441 B	-r--r--r--	2014-12-27 11:48
use_mbfw.t	915 B	-r--r--r--	2014-12-27 11:48
with_sub.t	479 B	-r--r--r--	2014-12-27 11:48

Rename

#!/usr/bin/perl -w

# test rounding with non-integer A and P parameters

use strict;
use Test::More tests => 95;

use Math::BigFloat;

my $cf = 'Math::BigFloat';
my $ci = 'Math::BigInt';

my $x = $cf->new('123456.123456');

# unary ops with A
_do_a($x, 'round', 3, '123000');
_do_a($x, 'bfround', 3, '123500');
_do_a($x, 'bfround', 2, '123460');
_do_a($x, 'bfround', -2, '123456.12');
_do_a($x, 'bfround', -3, '123456.123');

_do_a($x, 'bround', 4, '123500');
_do_a($x, 'bround', 3, '123000');
_do_a($x, 'bround', 2, '120000');

_do_a($x, 'bsqrt', 4, '351.4');
_do_a($x, 'bsqrt', 3, '351');
_do_a($x, 'bsqrt', 2, '350');

# setting P
_do_p($x, 'bsqrt', 2,  '350');
_do_p($x, 'bsqrt', -2, '351.36');

# binary ops
_do_2_a($x, 'bdiv', 2, 6, '61728.1');
_do_2_a($x, 'bdiv', 2, 4, '61730');
_do_2_a($x, 'bdiv', 2, 3, '61700');

_do_2_p($x, 'bdiv', 2, -6, '61728.061728');
_do_2_p($x, 'bdiv', 2, -4, '61728.0617');
_do_2_p($x, 'bdiv', 2, -3, '61728.062');

# all tests done

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

sub _do_a
  { 
  my ($x, $method, $A, $result) = @_;

is ($x->copy->$method($A), $result, "$method($A)");
  is ($x->copy->$method($A.'.1'), $result, "$method(${A}.1)");
  is ($x->copy->$method($A.'.5'), $result, "$method(${A}.5)");
  is ($x->copy->$method($A.'.6'), $result, "$method(${A}.6)");
  is ($x->copy->$method($A.'.9'), $result, "$method(${A}.9)");
  }

sub _do_p
  { 
  my ($x, $method, $P, $result) = @_;

is ($x->copy->$method(undef,$P), $result, "$method(undef,$P)");
  is ($x->copy->$method(undef,$P.'.1'), $result, "$method(undef,${P}.1)");
  is ($x->copy->$method(undef,$P.'.5'), $result, "$method(undef.${P}.5)");
  is ($x->copy->$method(undef,$P.'.6'), $result, "$method(undef,${P}.6)");
  is ($x->copy->$method(undef,$P.'.9'), $result, "$method(undef,${P}.9)");
  }

sub _do_2_a
  { 
  my ($x, $method, $y, $A, $result) = @_;

my $cy = $cf->new($y);

is ($x->copy->$method($cy,$A), $result, "$method($cy,$A)");
  is ($x->copy->$method($cy,$A.'.1'), $result, "$method($cy,${A}.1)");
  is ($x->copy->$method($cy,$A.'.5'), $result, "$method($cy,${A}.5)");
  is ($x->copy->$method($cy,$A.'.6'), $result, "$method($cy,${A}.6)");
  is ($x->copy->$method($cy,$A.'.9'), $result, "$method($cy,${A}.9)");
  }

sub _do_2_p
  { 
  my ($x, $method, $y, $P, $result) = @_;

my $cy = $cf->new($y);

is ($x->copy->$method($cy,undef,$P), $result, "$method(undef,$P)");
  is ($x->copy->$method($cy,undef,$P.'.1'), $result, "$method($cy,undef,${P}.1)");
  is ($x->copy->$method($cy,undef,$P.'.5'), $result, "$method($cy,undef.${P}.5)");
  is ($x->copy->$method($cy,undef,$P.'.6'), $result, "$method($cy,undef,${P}.6)");
  is ($x->copy->$method($cy,undef,$P.'.9'), $result, "$method($cy,undef,${P}.9)");
  }