?????????? ????????? - ??????????????? - /home/.cpan/build/Test-Deep-1.204-0/t/number.t
???????
use strict; use warnings; use lib 't/lib'; use Std; { check_test( sub { cmp_deeply(1, num(1)); }, { actual_ok => 1, diag => "", }, "number eq" ); check_test( sub { cmp_deeply(1, num(2)) }, { actual_ok => 0, diag => <<EOM, Comparing \$data as a number got : 1 expect : 2 EOM }, "number not eq" ); check_test( sub { cmp_deeply("1a", num("1")) }, { actual_ok => 1, diag => "", }, "funny number eq" ); check_test( sub { cmp_deeply("1a", num(2)) }, { actual_ok => 0, diag => <<EOM, Comparing \$data as a number got : 1 ('1a') expect : 2 EOM }, "funny number not eq" ); } { check_test( sub { cmp_deeply(1, num(1, 1)); }, { actual_ok => 1, diag => "", }, "number tolerance eq" ); check_test( sub { cmp_deeply(1, num(2, .5)) }, { actual_ok => 0, diag => <<EOM, Comparing \$data as a number got : 1 expect : 2 +/- 0.5 EOM }, "number tolerance not eq" ); } { require Over; my $o = Over->new(1); check_test( sub { cmp_deeply($o, num(1)) }, { actual_ok => 1, diag => "", }, "over number eq" ); check_test( sub { cmp_deeply($o, num(2)) }, { actual_ok => 0, diag => <<EOM, Comparing \$data as a number got : 1 expect : 2 EOM }, "over number not eq" ); }
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0.01 |
proxy
|
phpinfo
|
???????????