1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
use Test::More qw(no_plan);
use strict;
use warnings;
use autobox::Core;
my $num = 0.5;
my $e = 1E-10;
cmp_ok( abs($num->abs - abs($num)), '<', $e );
cmp_ok( abs($num->cos - cos($num)), '<', $e );
cmp_ok( abs($num->exp - exp($num)), '<', $e );
cmp_ok( abs($num->int - int($num)), '<', $e );
cmp_ok( abs($num->log - log($num)), '<', $e );
cmp_ok( abs($num->oct - oct($num)), '<', $e );
cmp_ok( abs(05->hex - hex(05)), '<', $e );
cmp_ok( abs($num->sin - sin($num)), '<', $e );
cmp_ok( abs($num->sqrt - sqrt($num)), '<', $e );
cmp_ok( $num->rand, '<=', $num );
cmp_ok( abs($num->atan2($num) - atan2($num, $num)), '<', $e );
|
