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
|
/*
TEST_HEADER
id = $Id$
summary = check that failed arena creation doesn't leak
language = c
link = testlib.o
parameters = ARENAS=10
OUTPUT_SPEC
arena >= 10
END_HEADER
*/
#include "testlib.h"
#include "mpsavm.h"
static void test(void *stack_pointer)
{
mps_arena_t arena;
mps_res_t res;
int p = 0, i;
/* fill address space with small arenas */
while ((res = mps_arena_create(&arena, mps_arena_class_vm(), 1))
== MPS_RES_OK) {
p++;
}
report("arena", "%d", p);
/* destroy one small arena */
mps_arena_destroy(arena);
for (i = 0; i < ARENAS; ++i) {
/* there isn't enough space for a large arena */
res = mps_arena_create(&arena, mps_arena_class_vm(), (size_t)1 << 20);
asserts(res == MPS_RES_RESOURCE, "error leak");
/* but destroying one small arena makes room for another */
die(mps_arena_create(&arena, mps_arena_class_vm(), 1), "leak");
mps_arena_destroy(arena);
}
}
int main(void)
{
if (MPS_WORD_WIDTH <= 32) {
run_test(test);
} else {
/* Can't exhaust 64-bit address space by allocating, so fake a pass. */
report("arena", "%d", ARENAS);
}
pass();
return 0;
}
|
