#!perl -T

use Test::More tests => 1;
use Config;

SKIP:
        {
	if (!$Config{'use64bitint'})
		{
		skip "1..0 # Skip: Perl not compiled with 'use64bitint'\n",1;
		}
	$tester=576466952313524498;
	$origin = $tester;
	print "Tester is '$tester'\n";
	my($test1) = $tester & 0xFFFFFFFF; $tester >>= 32;
	my($test2) = $tester & 0xFFFFFFFF;
	$message = pack("NN",$test2,$test1);
	($part1,$part2) = unpack("NN",$message);
	$part1 = $part1<<32;
	$part1+=$part2;
	print "Tester is '$tester' part1 is '$part1'\n";
	if ( $origin!=$part1 )
		{
		fail("Perl does not support 64bit numbers, '$origin' '$part1' (htf did we get here ?)");
		}
		else
		{
		pass("64Bit support enabled");
		}
	}