Annotation of embedaddon/php/ext/standard/tests/math/log.phpt, revision 1.1
1.1 ! misho 1: --TEST--
! 2: log() tests
! 3: --FILE--
! 4: <?php // $Id: log.phpt 242949 2007-09-26 15:44:16Z cvs2svn $
! 5: echo "On failure, please mail result to php-dev@lists.php.net\n";
! 6: for ($x = 0, $count= 0; $x < 200; $x++) {
! 7: $x2 = (int) exp(log($x));
! 8: // e ^ log(x) should be close in range to x
! 9: if (($x2 < ($x + 2)) && ($x2 > ($x - 2))) {
! 10: $count++;
! 11: } else {
! 12: print "$x : $x2\n";
! 13: }
! 14: }
! 15: print $count . "\n";
! 16:
! 17: // Now test the base form of log
! 18: for ($base = 2; $base < 11; $base++) {
! 19: for ($x = 0, $count= 0; $x < 50; $x++) {
! 20: $x2 = (int) pow($base, log($x, $base));
! 21: // base ^ log(x) should be close in range to x
! 22: if (($x2 < ($x + 2)) && ($x2 > ($x - 2))) {
! 23: $count++;
! 24: } else {
! 25: print "base $base: $x : $x2\n";
! 26: }
! 27: }
! 28: print $count . "\n";
! 29: }
! 30: ?>
! 31: --EXPECT--
! 32: On failure, please mail result to php-dev@lists.php.net
! 33: 200
! 34: 50
! 35: 50
! 36: 50
! 37: 50
! 38: 50
! 39: 50
! 40: 50
! 41: 50
! 42: 50
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>