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