#-*- mode: perl;-*-

package main;

use strict;

use Test::More tests => 19;

use Algorithm::SkipList 0.70;


my $List;

undef $List;
eval {
  $List = new Algorithm::SkipList( p => 0 );
};
ok( !defined $List, "test p cannot be set to 0" );

undef $List;
eval {
  $List = new Algorithm::SkipList( p => 1 );
};
ok( !defined $List, "test p cannot be set to 1" );

undef $List;
eval {
  $List = new Algorithm::SkipList( p => -1 );
};
ok( !defined $List, "test p cannot be set to negative" );

for my $i (1..8) {

  my $p = 1 / (1<<$i);

  undef $List;
  $List = new Algorithm::SkipList( p => $p );
  ok( $List->p == $p, "test p was set to custom value" );

  $List->p( $p/2 );
  ok( $List->p == ($p/2), "test setting p on existing skip list" );
}