summaryrefslogtreecommitdiffstats
path: root/runtime/tests/maps/ii.c
blob: 64aa05ac051b645dc6d6e4262300ce4d0e0b1765 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
#include "runtime.h"

/* test of maps with keys of int64 and value of int64 */

#define KEY1_TYPE INT64
#include "map-keys.c"

#define VALUE_TYPE INT64
#include "map-values.c"

#include "map.c"

int main ()
{
  MAP map = _stp_map_new_int64(4, INT64);

  /* map[1] = 2 */
  _stp_map_key_int64 (map, 1);
  _stp_map_set_int64 (map, 2);
  printf ("map[%lld]=%lld\n", key1int(map->key), _stp_map_get_int64(map));
  _stp_map_print(map,"map");

  /* map[3] = 4 */
  /* try it with macros this time */
  _stp_map_key (map, 3);
  _stp_map_set (map, 4);  
  _stp_map_print (map, "map");

  /* now try to confuse things */
  /* These won't do anything useful, but shouldn't crash */
  _stp_map_key_int64 (map, 0);  
  _stp_map_key_del (map);
  _stp_map_key_int64 (map, 77);  
  _stp_map_key_del (map);
  _stp_map_key_del (map);
  _stp_map_set_int64 (map,1000000);

  _stp_map_print (map, "map");

  /* create and delete a key */
  _stp_map_key_int64 (map, 1024);
  _stp_map_set_int64 (map, 2048);  
  _stp_map_key_int64 (map, 1024);
  _stp_map_key_del (map);

  _stp_map_print (map, "map");

  /* create and delete a key again*/
  _stp_map_key_int64 (map, 1024);
  _stp_map_set_int64 (map, 2048);  
  _stp_map_key_del (map);

  _stp_map_print (map, "map");

  /* check that unset values are 0 */
  _stp_map_key_int64 (map, 5);
  printf ("map[%lld]=%lld\n", key1int(map->key), _stp_map_get_int64(map));

  /* map[5] = 6 */
  _stp_map_set (map, 6);
  _stp_map_print (map, "map");

  /* add 4 new entries, pushing the others out */
  int i;
  for (i = 6; i < 10; i++)
    {
      _stp_map_key_int64 (map, i);
      _stp_map_set_int64 (map, 100 + i);
    }

  _stp_map_print (map, "map");  

  /* 5, 382, 526, and 903 all hash to the same value (23) */
  /* use them to test the hash chain */
  _stp_map_key_int64 (map, 5); _stp_map_set_int64 (map, 1005);
  _stp_map_key_int64 (map, 382); _stp_map_set_int64 (map, 1382);
  _stp_map_key_int64 (map, 526); _stp_map_set_int64 (map, 1526);
  _stp_map_key_int64 (map, 903); _stp_map_set_int64 (map, 1903);

  _stp_map_print (map, "map");  

  /* now delete all 4 nodes, one by one */
  _stp_map_key_int64 (map, 382); _stp_map_key_del (map);

  _stp_map_print (map, "map");  

  _stp_map_key_int64 (map, 5); _stp_map_key_del (map);

  _stp_map_print (map, "map");  

  _stp_map_key_int64 (map, 903); _stp_map_key_del (map);

  _stp_map_print (map, "map");  

  _stp_map_key_int64 (map, 526); _stp_map_key_del (map);

  _stp_map_print (map, "map");  

  _stp_map_del (map);
  return 0;
}