Math-BigInt-FastCalc/t/bigintfc.t

369 # _root
373 is($LIB->_str($LIB->_root($x, $n)), "4",
374    qq|$LIB->_str($LIB->_root(\$x, \$n)) = "4"|); # 4.xx => 4.0
378 is($LIB->_str($LIB->_root($x, $n)), "3",
379    qq|$LIB->_str($LIB->_root(\$x, \$n)) = "3"|);
381 # _pow (and _root)
408 is($LIB->_str($LIB->_root($x, $n)), 81,
409    qq|$LIB->_str($LIB->_root(\$x, \$n)) = 81|);
417 is($LIB->_str($LIB->_root($x, $n)), "531441",
418    qq|$LIB->_str($LIB->_root(\$x, \$n)) = "531441"|);
419 is($LIB->_str($LIB->_root($x, $n)), "81",
420    qq|$LIB->_str($LIB->_root(\$x, \$n)) = "81"|);
426 is($LIB->_str($LIB->_root($x, $n)), "81",
427    qq|$LIB->_str($LIB->_root(\$x, \$n)) = "81"|);
430 is($LIB->_str($LIB->_root($x, $n)), "80",
431    qq|$LIB->_str($LIB->_root(\$x, \$n)) = "80"|);
434 is($LIB->_str($LIB->_root($x, $n)), "81",
435    qq|$LIB->_str($LIB->_root(\$x, \$n)) = "81"|);
458         print "# _root( ", '9' x $i, ", ", 9 x $i, ") \n";
459         print "# _root( ", '9' x $i, ", ", 9 x $i, ") \n"
460           unless is($LIB->_str($LIB->_root($x, $n)), '1',
461                     qq|$LIB->_str($LIB->_root(\$x, \$n)) = '1'|);
466         print "# BASE_LEN $BASE_LEN _root( ", '9' x $i, ", ", 9 x $i, ") \n"
467           unless is($LIB->_str($LIB->_root($x, $n)), $res->[$i-2],
468                     qq|$LIB->_str($LIB->_root(\$x, \$n)) = $res->[$i-2]|);