#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 5;

use Math::Int64::C_API::Sample;

my $i = some_int64();

ok($i == -42);
$i <<= 33;
is("$i", "-360777252864");

my $j = int64_addmul(-$i, (2**33), 128);
is ("$j", "1460288880640");

my $k = uint64_sqr($j+1);
is ("$k", "2920577761281");

is ("". uint64_rand(), "17761629189777429372");