1# -*- perl -*-
2
3use strict;
4use Config;
5
6BEGIN { $Set::IntSpan::integer = 1 }
7use Set::IntSpan 1.17;
8
9my $N = 1;
10sub Not { print "not " }
11sub OK  { print "ok ", $N++, " @_\n" }
12
13print "1..1\n";
14
15my $set = new Set::IntSpan '1_000_000_000_000-1_000_000_000_100';
16
17for my $i (0..100)
18{
19    insert $set 2e12+$i;
20}
21
22if ($Config{ivsize}==4)
23{
24    $set eq '1000000000000-1000000000100' or Not; OK 'use integer';
25}
26else
27{
28    OK '# SKIP not a 32-bit platform';
29}
30
31