chiark / gitweb /
Add global unihash table; use universal hashing instead of CRC.
[mLib] / sym-gtest
1 #! /usr/bin/perl
2 #
3 # Generate a random test file for symbol table testing.
4 #
5 # Syntax reference:
6 #
7 #  set k v -- assign (textual) key k the (integer) value i
8 #  get k -- display value at key k
9 #  del k -- remove key k
10 #  count -- show number of items
11 #  show -- dump out the entire table, in alphabetical key order
12
13 sub random ($) {
14   my $lim = shift;
15   return int(rand($lim));
16 }
17
18 open(DICT, "/usr/dict/words") or die("open(/usr/dict/words): $!");
19 @w = <DICT>;
20 chomp(@w);
21 close(DICT);
22
23 %a = ();
24
25 $lines = shift || 100;
26 $serial = 1;
27 while ($lines) {
28   $what = random(4);
29   if ($what == 0) {
30     my $k = $w[random(@w)];
31     my $i = $serial++;
32     print "set $k $i\n";
33     $a{$k} = $i;
34   } elsif ($what == 1) {
35     my $k = $w[random(@w)];
36     if (!exists($a{$w}) && random(8) != 0) { next; }
37     print "get $k\n";
38   } elsif ($what == 2) {
39     my $k = $w[random(@w)];
40     if (!exists($a{$w}) && random(8) != 0) { next; }
41     print "del $k\n";
42     delete($w{$k});
43   } elsif (random(5) == 0) {
44     print "count\n";
45   } else { next; }
46   $lines--;
47 }
48
49 print "show\n";