view release on metacpan or  search on metacpan

t/0010_test.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 8;

use_ok('Acme::MyPeek');
use Config;

showd('use64bitall');
showd('use64bitint');
showd('usecrosscompile');
showd('uselongdouble');
showd('usemorebits');

my $lv;
my ($d1, $d2, $d3);

my $hi = hi(); $lv = lv(); ($d1, $d2, $d3) = deb_hi();
diag("hi = <$hi>, lv = <$lv>, d1 = <$d1>, d2 = <$d2>, d3 = <$d3>");

my $hd = hd();  $lv = lv(); ($d1, $d2, $d3) = deb_hd();