view release on metacpan or  search on metacpan

t/9100-bigmath-quadmath.t  view on Meta::CPAN

    # clamp with quad precision
    my $clamped = clamp($quad_precise, 1.0, 1.2);
    is($clamped, 1.2, 'clamp respects quad precision upper bound');

    $clamped = clamp($quad_precise, 1.3, 2.0);
    is($clamped, 1.3, 'clamp respects quad precision lower bound');

    # min2/max2 with quad precision
    my $a = 1.23456789012345678901234567890123;
    my $b = 1.23456789012345678901234567890124;  # Differs in last digit

    my $min = min2($a, $b);
    my $max = max2($a, $b);
    ok($min == $a, 'min2 distinguishes quad precision values');
    ok($max == $b, 'max2 distinguishes quad precision values');

    # sign with quad precision
    is(sign($quad_precise), 1, 'sign positive quad');
    is(sign(-$quad_precise), -1, 'sign negative quad');
    is(sign(0.0), 0, 'sign zero');

t/9100-bigmath-quadmath.t  view on Meta::CPAN

# Test heap with quad precision values
{
    require heap;

    # Create min heap with quad precision values
    my $h = heap::new('min');

    # Add values that differ only in quad precision range
    my @vals = (
        1.23456789012345678901234567890123,
        1.23456789012345678901234567890124,
        1.23456789012345678901234567890122,
        1.23456789012345678901234567890125,
        1.23456789012345678901234567890121,
    );

    $h->push($_) for @vals;

    my @sorted;
    push @sorted, $h->pop while $h->size > 0;