#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

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");

my ($i64, $u64);
sv_seti64($i64, $k);
is ($i64, "2920577761281");

sv_seti64($i64, -$k);
is ($i64, "-2920577761281");

sv_setu64($u64, $k);
is ($u64, "2920577761281");

Test::More::done_testing;