use warnings;
use strict;

use Test::More tests => 1 + 4*5 + 6*4;

BEGIN { use_ok "Data::Integer", qw(
	nint_bits_as_sint nint_bits_as_uint
	sint_bits_as_uint uint_bits_as_sint
	max_sint max_uint min_sint
); }

sub nint_is($$) {
	my($tval, $cval) = @_;
	my $tval0 = $tval;
	ok defined($tval) && ref(\$tval) eq "SCALAR" &&
		int($tval0) == $tval0 && "$tval" eq "$cval" &&
		((my $tval1 = $tval) <=> 0) == ((my $cval1 = $cval) <=> 0) &&
		do { use integer; $tval == $cval },
		"$tval match $cval";
}

foreach(0, 1, 0x123, max_sint&~1, max_sint) {
	nint_is nint_bits_as_sint($_), $_;
	nint_is nint_bits_as_uint($_), $_;
	nint_is sint_bits_as_uint($_), $_;
	nint_is uint_bits_as_sint($_), $_;
}

foreach([ -1, max_uint ],
	[ -2, max_uint&~1 ],
	[ do { use integer; min_sint|1 }, min_sint|1 ],
	[ min_sint, min_sint|0 ],
) {
	my($si, $ui) = @$_;
	nint_is nint_bits_as_sint($si), $si;
	nint_is nint_bits_as_sint($ui), $si;
	nint_is nint_bits_as_uint($si), $ui;
	nint_is nint_bits_as_uint($ui), $ui;
	nint_is sint_bits_as_uint($si), $ui;
	nint_is uint_bits_as_sint($ui), $si;
}

1;