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