#!/usr/bin/perl

use strict;
use warnings;

use IPC::SharedHash::DBDSQLite;

my $hash = IPC::SharedHash::DBDSQLite->new(
    DIRECTORY    => '/tmp',
    SCALARS_ONLY => 1,
);

for ( 0 .. 10000 ) {
    $hash->store( "key$_", $_ );
    my $return = $hash->fetch("key$_");
    die "bad return: $return" unless $return == $_;
}