File: no-int.t

package info (click to toggle)
libset-intspan-perl 1.19-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 224 kB
  • sloc: perl: 1,236; makefile: 2
file content (19 lines) | stat: -rw-r--r-- 369 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
# -*- perl -*-

use strict;
use Set::IntSpan 1.17;

my $N = 1;
sub Not { print "not " }
sub OK  { print "ok ", $N++, " @_\n" }

print "1..1\n";

my $set = new Set::IntSpan '1_000_000_000_000-1_000_000_000_100';

for my $i (0..100)
{	
    insert $set 2e12+$i;
}

$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';