1#!/usr/bin/perl 2 3use strict; 4use warnings; 5 6use Test::More 0.88; 7 8use Math::Int128 qw( string_to_uint128 ); 9use Math::Int128::die_on_overflow; 10 11#101982 12my $hex = "0xffffffffffffffffffffffffffffffff"; 13my $dec = "340282366920938463463374607431768211455"; 14my $v1 = string_to_uint128($hex); 15my $v2 = string_to_uint128($dec); 16is("$v1", "$v2", "#101982: strtoint128"); 17 18done_testing(); 19