1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
emacs/mps/test/argerr/153.c
Gareth Rees e1a70a73db Long delayed maintenance of test suite:
$HopeName$ -> $Id$
space -> arena
mps_arena_create now takes three arguments
/usr/local/perl -> /usr/bin/perl -w
Missing #include <stdio.h> in several tests
Bogus closedir(DIR); in script/clib

Copied from Perforce
 Change: 182199
 ServerID: perforce.ravenbrook.com
2013-05-25 10:33:30 +01:00

33 lines
583 B
C

/*
TEST_HEADER
id = $Id$
summary = -1 as third argument to mps_alloc (MV)
language = c
link = testlib.o
END_HEADER
*/
#include "testlib.h"
#include "mpscmv.h"
static void test(void) {
mps_arena_t arena;
mps_pool_t pool;
mps_addr_t q;
cdie(mps_arena_create(&arena, mps_arena_class_vm(), mmqaArenaSIZE), "create");
cdie(mps_pool_create(&pool, arena, mps_class_mv(),
1024*32, 1024*16, 1024*256), "pool");
cdie(mps_alloc(&q, pool, (size_t) -1), "alloc");
mps_pool_destroy(pool);
mps_arena_destroy(arena);
}
int main(void) {
easy_tramp(test);
pass();
return 0;
}