# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
use Test::Simple tests => 11;
use Tie::Hash::FixedKeys;
ok(1);
my %hash : FixedKeys(qw(one two three));
$hash{one} = 1;
ok($hash{one} == 1);
$hash{two} = 2;
ok($hash{two} == 2);
eval { $hash{four} = 4 };
ok(not defined $hash{four});
ok(not exists $hash{four});
delete $hash{one};
ok(not defined $hash{one});
ok(exists $hash{one});
delete $hash{four};
ok(not defined $hash{four});
ok(not exists $hash{four});
%hash = ();
ok(not defined $hash{one});
ok(exists $hash{one});