Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

PJACKLAM / Math-BigInt-2.005001 / xt / author / req_mbr_binf.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13

              
# -*- mode: perl; -*-
# check that requiring Math::BigRat and then calling binf() works
use strict;
use warnings;
use Test::More tests => 1;
require Math::BigRat;
my $x = Math::BigRat -> binf();
is($x, 'inf', '$x is inf');