view release on metacpan or  search on metacpan

t/04-greatest.t  view on Meta::CPAN

#-*- mode: perl;-*-

package main;

use Test::More tests => 7;

use Algorithm::SkipList 0.70;

my $List = new Algorithm::SkipList;

foreach ('A'..'D') {
  $List->insert($_, 1+$List->size);
}

{
  my $last;
  while ($List->size) {
    my($key, $value) = $List->greatest;
    ok($value == $List->delete($key), "verify greatest via deletion");
    if (defined $last) {
      ok($last gt $key);
    }
    $last = $key;
  }
}