Lines Matching refs:mpf
58 use GMP::Mpf qw(:all);
65 use GMP::Mpf qw(:constants);
66 use GMP::Mpf qw(:noconstants);
139 ok (mpz(mpf(0)) == 0);
153 { tie my $t, 'Mytie', mpf(0); ok (mpz($t) == 0); }
161 ok (mpz(mpf(-123)) == -123);
169 { tie my $t, 'Mytie', mpf(-123); ok (mpz($t) == -123); }
393 ok (mpz(0) < mpf(1));
1121 ok (mpq(mpf(0)) == 0);
1129 { tie my $t, 'Mytie', mpf(0); ok (mpq($t) == 0); }
1137 ok (mpq(mpf(-123)) == -123);
1145 { tie my $t, 'Mytie', mpf(-123); ok (mpq($t) == -123); }
1344 ok (mpq(0) < mpf(1));
1398 # GMP::Mpf
1401 # GMP::Mpf::new
1403 ok (mpf(0) == 0);
1404 ok (mpf('0') == 0);
1405 ok (mpf(substr('101',1,1)) == 0);
1406 ok (mpf(0.0) == 0);
1407 ok (mpf(mpz(0)) == 0);
1408 ok (mpf(mpq(0)) == 0);
1409 ok (mpf(mpf(0)) == 0);
1411 { tie my $t, 'Mytie', 0; ok (mpf($t) == 0); }
1412 { tie my $t, 'Mytie', '0'; ok (mpf($t) == 0); }
1413 { tie my $t, 'Mytie', substr('101',1,1); ok (mpf($t) == 0); }
1414 { tie my $t, 'Mytie', 0.0; ok (mpf($t) == 0); }
1415 { tie my $t, 'Mytie', mpz(0); ok (mpf($t) == 0); }
1416 { tie my $t, 'Mytie', mpq(0); ok (mpf($t) == 0); }
1417 { tie my $t, 'Mytie', mpf(0); ok (mpf($t) == 0); }
1419 ok (mpf(-123) == -123);
1420 ok (mpf('-123') == -123);
1421 ok (mpf(substr('1-1231',1,4)) == -123);
1422 ok (mpf(-123.0) == -123);
1423 ok (mpf(mpz(-123)) == -123);
1424 ok (mpf(mpq(-123)) == -123);
1425 ok (mpf(mpf(-123)) == -123);
1427 { tie my $t, 'Mytie', -123; ok (mpf($t) == -123); }
1428 { tie my $t, 'Mytie', '-123'; ok (mpf($t) == -123); }
1429 { tie my $t, 'Mytie', substr('1-1231',1,4); ok (mpf($t) == -123); }
1430 { tie my $t, 'Mytie', -123.0; ok (mpf($t) == -123); }
1431 { tie my $t, 'Mytie', mpz(-123); ok (mpf($t) == -123); }
1432 { tie my $t, 'Mytie', mpq(-123); ok (mpf($t) == -123); }
1433 { tie my $t, 'Mytie', mpf(-123); ok (mpf($t) == -123); }
1435 ok (mpf($ivnv_2p128) == $str_2p128);
1436 { tie my $t, 'Mytie', $ivnv_2p128; ok (mpf($t) == $str_2p128); }
1438 ok (mpf(-1.5) == -1.5);
1439 ok (mpf(-1.0) == -1.0);
1440 ok (mpf(-0.5) == -0.5);
1441 ok (mpf(0) == 0);
1442 ok (mpf(0.5) == 0.5);
1443 ok (mpf(1.0) == 1.0);
1444 ok (mpf(1.5) == 1.5);
1446 ok (mpf("-1.5") == -1.5);
1447 ok (mpf("-1.0") == -1.0);
1448 ok (mpf("-0.5") == -0.5);
1449 ok (mpf("0") == 0);
1450 ok (mpf("0.5") == 0.5);
1451 ok (mpf("1.0") == 1.0);
1452 ok (mpf("1.5") == 1.5);
1454 ok (mpf($uv_max) > 0);
1455 ok (mpf($uv_max) == mpf($uv_max_str));
1456 { tie my $t, 'Mytie', $uv_max; ok (mpf($t) > 0); }
1457 { tie my $t, 'Mytie', $uv_max; ok (mpf($t) == mpf($uv_max_str)); }
1461 ok (mpf($x) == 123.5);
1463 ok (mpf($t) == 123.5);
1467 # GMP::Mpf::overload_abs
1469 ok (abs(mpf(0)) == 0);
1470 ok (abs(mpf(123)) == 123);
1471 ok (abs(mpf(-123)) == 123);
1473 { my $x = mpf(-123); $x = abs($x); ok ($x == 123); }
1474 { my $x = mpf(0); $x = abs($x); ok ($x == 0); }
1475 { my $x = mpf(123); $x = abs($x); ok ($x == 123); }
1477 { tie my $t, 'Mytie', mpf(0); ok (abs($t) == 0); }
1478 { tie my $t, 'Mytie', mpf(123); ok (abs($t) == 123); }
1479 { tie my $t, 'Mytie', mpf(-123); ok (abs($t) == 123); }
1482 # GMP::Mpf::overload_add
1484 ok (mpf(0) + 1 == 1);
1485 ok (mpf(-1) + 1 == 0);
1486 ok (1 + mpf(0) == 1);
1487 ok (1 + mpf(-1) == 0);
1490 # GMP::Mpf::overload_addeq
1492 { my $a = mpf(7); $a += 1; ok ($a == 8); }
1493 { my $a = mpf(7); my $b = $a; $a += 1; ok ($a == 8); ok ($b == 7); }
1496 # GMP::Mpf::overload_bool
1498 if (mpf(0)) { ok (0); } else { ok (1); }
1499 if (mpf(123)) { ok (1); } else { ok (0); }
1502 # GMP::Mpf::overload_dec
1504 { my $a = mpf(0); ok ($a-- == 0); ok ($a == -1); }
1505 { my $a = mpf(0); ok (--$a == -1); }
1507 { my $a = mpf(0); my $b = $a; $a--; ok ($a == -1); ok ($b == 0); }
1510 # GMP::Mpf::overload_div
1512 ok (mpf(6) / 2 == 3);
1513 ok (mpf(-6) / 2 == -3);
1514 ok (mpf(6) / -2 == -3);
1515 ok (mpf(-6) / -2 == 3);
1518 # GMP::Mpf::overload_diveq
1520 { my $a = mpf(21); $a /= 3; ok ($a == 7); }
1521 { my $a = mpf(21); my $b = $a; $a /= 3; ok ($a == 7); ok ($b == 21); }
1524 # GMP::Mpf::overload_eq
1526 { my $a = mpf(0);
1528 $a = mpf(1);
1533 # GMP::Mpf::overload_inc
1535 { my $a = mpf(0); ok ($a++ == 0); ok ($a == 1); }
1536 { my $a = mpf(0); ok (++$a == 1); }
1538 { my $a = mpf(0); my $b = $a; $a++; ok ($a == 1); ok ($b == 0); }
1541 # GMP::Mpf::overload_lshift
1543 { my $a = mpf(7) << 1; ok ($a == 14); }
1546 # GMP::Mpf::overload_lshifteq
1548 { my $a = mpf(7); $a <<= 1; ok ($a == 14); }
1549 { my $a = mpf(7); my $b = $a; $a <<= 1; ok ($a == 14); ok ($b == 7); }
1552 # GMP::Mpf::overload_mul
1554 ok (mpf(2) * 3 == 6);
1557 # GMP::Mpf::overload_muleq
1559 { my $a = mpf(7); $a *= 3; ok ($a == 21); }
1560 { my $a = mpf(7); my $b = $a; $a *= 3; ok ($a == 21); ok ($b == 7); }
1563 # GMP::Mpf::overload_neg
1565 ok (- mpf(0) == 0);
1566 ok (- mpf(123) == -123);
1567 ok (- mpf(-123) == 123);
1570 # GMP::Mpf::overload_not
1572 if (not mpf(0)) { ok (1); } else { ok (0); }
1573 if (not mpf(123)) { ok (0); } else { ok (1); }
1575 ok ((! mpf(0)) == 1);
1576 ok ((! mpf(123)) == 0);
1579 # GMP::Mpf::overload_pow
1581 ok (mpf(0) ** 1 == 0);
1582 ok (mpf(1) ** 1 == 1);
1583 ok (mpf(2) ** 0 == 1);
1584 ok (mpf(2) ** 1 == 2);
1585 ok (mpf(2) ** 2 == 4);
1586 ok (mpf(2) ** 3 == 8);
1587 ok (mpf(2) ** 4 == 16);
1589 ok (mpf(0) ** mpf(1) == 0);
1590 ok (mpf(1) ** mpf(1) == 1);
1591 ok (mpf(2) ** mpf(0) == 1);
1592 ok (mpf(2) ** mpf(1) == 2);
1593 ok (mpf(2) ** mpf(2) == 4);
1594 ok (mpf(2) ** mpf(3) == 8);
1595 ok (mpf(2) ** mpf(4) == 16);
1598 # GMP::Mpf::overload_poweq
1600 { my $a = mpf(3); $a **= 4; ok ($a == 81); }
1601 { my $a = mpf(3); my $b = $a; $a **= 4; ok ($a == 81); ok ($b == 3); }
1604 # GMP::Mpf::overload_rshift
1606 { my $a = mpf(32) >> 1; ok ($a == 16); }
1609 # GMP::Mpf::overload_rshifteq
1611 { my $a = mpf(32); $a >>= 1; ok ($a == 16); }
1612 { my $a = mpf(32); my $b = $a; $a >>= 1; ok ($a == 16); ok ($b == 32); }
1615 # GMP::Mpf::overload_sqrt
1617 ok (sqrt(mpf(0)) == 0);
1618 ok (sqrt(mpf(1)) == 1);
1619 ok (sqrt(mpf(4)) == 2);
1620 ok (sqrt(mpf(81)) == 9);
1622 ok (sqrt(mpf(0.25)) == 0.5);
1625 # GMP::Mpf::overload_spaceship
1627 ok (mpf(0) < 1);
1628 ok (mpf(0) > -1);
1630 ok (mpf(0) != 1);
1631 ok (mpf(0) != -1);
1632 ok (mpf(1) != 0);
1633 ok (mpf(1) != -1);
1634 ok (mpf(-1) != 0);
1635 ok (mpf(-1) != 1);
1637 ok (mpf(0) < 1.0);
1638 ok (mpf(0) < '1');
1639 ok (mpf(0) < substr('-1',1,1));
1640 ok (mpf(0) < mpz(1));
1641 ok (mpf(0) < mpq(1));
1642 ok (mpf(0) < mpf(1));
1643 ok (mpf(0) < $uv_max);
1646 # GMP::Mpf::overload_string
1648 { my $x = mpf(0); ok ("$x" eq "0"); }
1649 { my $x = mpf(123); ok ("$x" eq "123"); }
1650 { my $x = mpf(-123); ok ("$x" eq "-123"); }
1652 { my $f = mpf(0.25); ok ("$f" eq "0.25"); }
1653 { my $f = mpf(-0.25); ok ("$f" eq "-0.25"); }
1654 { my $f = mpf(1.25); ok ("$f" eq "1.25"); }
1655 { my $f = mpf(-1.25); ok ("$f" eq "-1.25"); }
1656 { my $f = mpf(1000000); ok ("$f" eq "1000000"); }
1657 { my $f = mpf(-1000000); ok ("$f" eq "-1000000"); }
1660 # GMP::Mpf::overload_sub
1662 ok (mpf(0) - 1 == -1);
1663 ok (mpf(1) - 1 == 0);
1664 ok (1 - mpf(0) == 1);
1665 ok (1 - mpf(1) == 0);
1668 # GMP::Mpf::overload_subeq
1670 { my $a = mpf(7); $a -= 1; ok ($a == 6); }
1671 { my $a = mpf(7); my $b = $a; $a -= 1; ok ($a == 6); ok ($b == 7); }
1675 # GMP::Mpf::ceil
1677 ok (ceil (mpf(-7.5)) == -7.0);
1678 ok (ceil (mpf(7.5)) == 8.0);
1681 # GMP::Mpf::floor
1683 ok (floor(mpf(-7.5)) == -8.0);
1684 ok (floor(mpf(7.5)) == 7.0);
1687 # GMP::Mpf::mpf_eq
1699 # GMP::Mpf::get_default_prec
1704 # GMP::Mpf::get_prec
1706 { my $x = mpf(1.0, 512);
1711 # GMP::Mpf::reldiff
1717 # GMP::Mpf::set_default_prec
1728 # GMP::Mpf::set_prec
1730 { my $x = mpf(1.0, 512);
1738 # GMP::Mpf::trunc
1740 ok (trunc(mpf(-7.5)) == -7.0);
1741 ok (trunc(mpf(7.5)) == 7.0);
1781 ok (UNIVERSAL::isa($f,"GMP::Mpf")); }
1859 ok (! mpf("-9999999999999999999999999999999999999999999")->fits_slong_p());
1860 ok ( mpf(-123)->fits_slong_p());
1861 ok ( mpf(0)->fits_slong_p());
1862 ok ( mpf(123)->fits_slong_p());
1863 ok (! mpf("9999999999999999999999999999999999999999999")->fits_slong_p());
1880 ok (GMP::get_d(mpf(123)) == 123.0);
1907 { my ($dbl, $exp) = get_d_2exp (mpf ("1.5"));
1909 { my ($dbl, $exp) = get_d_2exp (mpf ("3.0"));
1951 { my ($s,$e) = get_str(mpf(1.5), 10); ok ($s eq '15'); ok ($e == 1); }
1954 { my ($s,$e) = get_str(mpf(-1.5), 10); ok ($s eq '-15'); ok ($e == 1); }
1957 { my ($s,$e) = get_str(mpf(1.5), 16); ok ($s eq '18'); ok ($e == 1); }
1960 { my ($s,$e) = get_str(mpf(-1.5), 16); ok ($s eq '-18'); ok ($e == 1); }
1963 { my ($s,$e) = get_str(mpf(65536.0), 16); ok ($s eq '1'); ok ($e == 5); }
1966 { my ($s,$e) = get_str(mpf(1.625), 16); ok ($s eq '1a'); ok ($e == 1); }
1969 { my ($s,$e) = get_str(mpf(1.625), -16); ok ($s eq '1A'); ok ($e == 1); }
1972 { my ($s, $e) = get_str(mpf(255.0),16,0); ok ($s eq "ff"); ok ($e == 2); }
1975 { my ($s, $e) = get_str(mpf(255.0),-16,0); ok ($s eq "FF"); ok ($e == 2); }
1993 ok (GMP::get_si(mpf(123)) == 123.0);
2024 ok ( GMP::integer_p (mpf(1.0)));
2025 ok (! GMP::integer_p (mpf(1.5)));
2064 ok (sprintf ("%f", mpf(1.5)) eq '1.500000');
2065 ok (sprintf ("%.2f", mpf(1.5)) eq '1.50');
2086 ok (sprintf ("%*.*f", 10, 3, mpf(1.5)) eq ' 1.500');
2091 ok (via_printf ("%f", mpf(1.5)) eq '1.500000');
2092 ok (via_printf ("%.2f", mpf(1.5)) eq '1.50');
2113 ok (via_printf ("%*.*f", 10, 3, mpf(1.5)) eq ' 1.500');
2147 ok (mpf(-123)->sgn() == -1);
2148 ok (mpf(0) ->sgn() == 0);
2149 ok (mpf(123) ->sgn() == 1);
2172 my $f = mpf(123);
Indexes created Sun Jun 28 00:24:58 UTC 2026