forked from openkylin/libarray-intspan-perl
24 lines
632 B
Perl
24 lines
632 B
Perl
# -*- cperl -*-
|
|
|
|
use warnings FATAL => qw(all);
|
|
use ExtUtils::testlib;
|
|
use Test::More tests => 7 ;
|
|
use Data::Dumper ;
|
|
|
|
use Array::IntSpan;
|
|
|
|
my $trace = shift || 0 ;
|
|
|
|
my $r2 = Array::IntSpan->new() ;
|
|
|
|
ok($r2, 'empty span created') ;
|
|
|
|
# test for RT 61700
|
|
is($r2 -> lookup(1),undef,"test lookup on empty span (RT 61700)") ;
|
|
|
|
is(@{$r2->get_range(1,10)}, 0 , 'get on empty set works');
|
|
is(@{$r2->set_range(1,10,'ab')}, 0 , 'set on empty set works');
|
|
is(@{$r2->set_range(1,10,undef)}, 0 , 'go back to empty set');
|
|
is(@$r2, 0 , 'set is empty');
|
|
is(@{$r2->set_consolidate_range(1,10,'ab')}, 0 , 'set_consolidate_range on empty set works');
|