view release on metacpan or  search on metacpan

t/01-basic.t  view on Meta::CPAN

    sprintf(
        "Illegal use of private method at %s line %d.\n",
        __FILE__, __LINE__ - 3
    ),
    'Cannot call private method'
);

# 9e9999 should be infinity.
my @list = (
    9e9999 / 9e9999,
    "NaN",
    9e9999,
    "Infinity",
    "INF",
    123_456_789,
    -23_456_789.01,
      3_456_789.01_2,
       -456_789.01_23,
         56_789.01_234,
         -6_789.01_234_5,
            789.01_234_56,

t/01-basic.t  view on Meta::CPAN

         56_789.01_234,
      3_456_789.01_2,
    123_456_789,
    sort( { lc($a) cmp lc($b) || $a cmp $b }
        "apple",
        "Banana",
        "CHERRY",
        9e9999,             # Can be inf, 1.#INF, or some other values
        "INF",
        "Infinity",
        "NaN",
        9e9999 / 9e9999,    # Can be nan, -nan, 1.#IND, or some other values
    ),
);
is( \@sorted, \@expected, 'List sorts sensibly' )
    or do {
        diag( 'List sorted oddly:' );
        diag( '@list   = ', join( ', ', @list ) );
        diag( '@sorted = ', join( ', ', @sorted ) );
    };

t/02-numbers.t  view on Meta::CPAN

    my $as_string   = $number;

    my $num = Datify->numify( 0+ $number );
    cmp_ok $num,  'eq', "'inf'", 'Looks like expected infinity';

    my $_num = Datify->numify( -$number );
    cmp_ok $_num, 'eq', "'-inf'", 'Looks like expected negative infinity';
}

my @nan = (
    qw( NaN nan NAN )
);
foreach my $number (@nan) {
    my $as_string   = $number;

    my $num = Datify->numify( 0+ $number );
    is $num, "'nan'", 'Looks like expected NaN';

    my $_num = Datify->numify( -$number );
    is $_num, "'nan'", 'Looks like expected negative NaN';
}

my @weirds = (
    qw( apple banana )
);
foreach my $number (@weirds) {
    my $num = Datify->numify( $number );
    is $num, "'nan'", 'Looks like expected non-numeric value';
}