1# -*- perl -*-
2
3use strict;
4use Set::IntSpan 1.17;
5
6my $N = 1;
7sub Not { print "not " }
8sub OK  { print "ok ", $N++, " @_\n" }
9
10print "1..1\n";
11
12my $set = new Set::IntSpan '1_000_000_000_000-1_000_000_000_100';
13
14for my $i (0..100)
15{
16    insert $set 2e12+$i;
17}
18
19$set eq '1_000_000_000_000-1_000_000_000_100,2_000_000_000_000-2_000_000_000_100' or Not; OK 'no integer';
20