#-*- mode: perl;-*-

package main;

use Test::More tests => 9;
use Algorithm::SkipList 0.70;

tie my %hash, 'Algorithm::SkipList';

my $h = tied %hash;
ok(ref($h) eq 'Algorithm::SkipList');
ok($h->size == 0);

$hash{abc} = 2;

ok(exists $hash{abc});
ok($hash{abc} == 2);

ok($h->size == 1);
ok($h->exists('abc'));
ok($h->find('abc') == 2);

delete $hash{'abc'};

ok($h->size == 0);
ok(!$h->find('abc'));

# TODO: More tests should be added