atarist/test/dbm

   1 die "cant create dbmtest" unless dbmopen(%keys, "dbmtest", 0666);
   2
   3 print "Writing...\n";
   4 $keys{'key0'} = 0;
   5 $keys{'key1'} = 1;
   6 $keys{'key2'} = 2;
   7 $keys{'key3'} = 3;
   8 $keys{'key4'} = 4;
   9 $keys{'key5'} = 5;
  10 $keys{'key6'} = 6;
  11 $keys{'key7'} = 7;
  12 $keys{'key8'} = 8;
  13 $keys{'key9'} = 9;
  14 $keys{'key10'} = 10;
  15 $keys{'key11'} = 11;
  16 $keys{'key12'} = 12;
  17 $keys{'key13'} = 13;
  18 $keys{'key14'} = 14;
  19 $keys{'key15'} = 15;
  20 $keys{'key16'} = 16;
  21 $keys{'key17'} = 17;
  22 $keys{'key18'} = 18;
  23 $keys{'key19'} = 19;
  24 $keys{'key20'} = 20;
  25 $keys{'key21'} = 21;
  26 $keys{'key22'} = 22;
  27 $keys{'key23'} = 23;
  28 $keys{'key24'} = 24;
  29 $keys{'key25'} = 25;
  30 $keys{'key26'} = 26;
  31 $keys{'key27'} = 27;
  32 $keys{'key28'} = 28;
  33 $keys{'key29'} = 29;
  34 $keys{'key30'} = 30;
  35 $keys{'key31'} = 31;
  36 $keys{'key32'} = 32;
  37 $keys{'key33'} = 33;
  38 $keys{'key34'} = 34;
  39 $keys{'key35'} = 35;
  40 $keys{'key36'} = 36;
  41 $keys{'key37'} = 37;
  42 $keys{'key38'} = 38;
  43 $keys{'key39'} = 39;
  44 $keys{'key40'} = 40;
  45 $keys{'key41'} = 41;
  46 $keys{'key42'} = 42;
  47 $keys{'key43'} = 43;
  48 $keys{'key44'} = 44;
  49 $keys{'key45'} = 45;
  50 $keys{'key46'} = 46;
  51 $keys{'key47'} = 47;
  52 $keys{'key48'} = 48;
  53 $keys{'key49'} = 49;
  54 $keys{'key50'} = 50;
  55 $keys{'key51'} = 51;
  56 $keys{'key52'} = 52;
  57 $keys{'key53'} = 53;
  58 $keys{'key54'} = 54;
  59 $keys{'key55'} = 55;
  60 $keys{'key56'} = 56;
  61 $keys{'key57'} = 57;
  62 $keys{'key58'} = 58;
  63 $keys{'key59'} = 59;
  64 $keys{'key60'} = 60;
  65 $keys{'key61'} = 61;
  66 $keys{'key62'} = 62;
  67 $keys{'key63'} = 63;
  68 $keys{'key64'} = 64;
  69 $keys{'key65'} = 65;
  70 $keys{'key66'} = 66;
  71 $keys{'key67'} = 67;
  72 $keys{'key68'} = 68;
  73 $keys{'key69'} = 69;
  74 $keys{'key70'} = 70;
  75 $keys{'key71'} = 71;
  76 $keys{'key72'} = 72;
  77 $keys{'key73'} = 73;
  78 $keys{'key74'} = 74;
  79 $keys{'key75'} = 75;
  80 $keys{'key76'} = 76;
  81 $keys{'key77'} = 77;
  82 $keys{'key78'} = 78;
  83 $keys{'key79'} = 79;
  84 $keys{'key80'} = 80;
  85 $keys{'key81'} = 81;
  86 $keys{'key82'} = 82;
  87 $keys{'key83'} = 83;
  88 $keys{'key84'} = 84;
  89 $keys{'key85'} = 85;
  90 $keys{'key86'} = 86;
  91 $keys{'key87'} = 87;
  92 $keys{'key88'} = 88;
  93 $keys{'key89'} = 89;
  94 $keys{'key90'} = 90;
  95 $keys{'key91'} = 91;
  96 $keys{'key92'} = 92;
  97 $keys{'key93'} = 93;
  98 $keys{'key94'} = 94;
  99 $keys{'key95'} = 95;
 100 $keys{'key96'} = 96;
 101 $keys{'key97'} = 97;
 102 $keys{'key98'} = 98;
 103 $keys{'key99'} = 99;
 104 $keys{'key9998'} = 9998;
 105 $keys{'key9999'} = 9999;
 106 print "Done\n";
 107
 108 dbmclose (%keys);
 109
 110 die "cant read dbmtest" unless dbmopen(%rkeys, "dbmtest", undef);
 111
 112 $i = 0;
 113 print "Reading...\n";
 114 while (($key, $val) = each %rkeys)
 115 {
 116   if ($keys{$key} != $val)
 117   {
 118      print 'Incorrect val ', $key, ' = ', $val, ' expecting ', $keys{$key}, "\n";
 119      $i = $i + 1;
 120   }
 121 }
 122 print "Done\n";
 123 dbmclose (%keys);
 124 print $i, "Error(s)\n";