#! /usr/bin/perl

## ./dbm-longstr.sub をテストする
require './dbm-longstr.sub';
$len = 20;

unlink <./uhauha.*>;
use SDBM_File;
dbmopen(%X, 'uhauha', 0644) || die "died.($!)";
$cnt = 0;
$z = 'abcdefghijklmnopqrstuvwxyz'; $zlen = length($z);
while($cnt < 501) {
  $cnt++;
  &dbm_longstr::add(*X, 'test', $z, "\r", $len);
  $zzo = $zz;
  $zz = &dbm_longstr::get(*X, 'test');
  $zzd = length($zz) - length($zzo);
  if(($zzd != $zlen) || $cnt % 100 < 1) {
    print "$cnt >" . length($zz) . "/$zz($zzd)\n";
  }
}
dbmclose(%X);
exit;