1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 17:10:51 -08:00
emacs/mps/test/argerr/153.c
Gareth Rees 6367f5c299 Get the mmqa argerr tests working:
* Make sure all the test build and run.
* Add output specifications to the passing tests.
* New testset/argerr runs them all.

Copied from Perforce
 Change: 187245
 ServerID: perforce.ravenbrook.com
2014-10-13 18:35:11 +01:00

35 lines
660 B
C

/*
TEST_HEADER
id = $Id$
summary = very large number as third argument to mps_alloc (MV)
language = c
link = testlib.o
OUTPUT_SPEC
error = true
errtext = alloc: RESOURCE
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) -100 * mmqaArenaSIZE), "alloc");
mps_pool_destroy(pool);
mps_arena_destroy(arena);
}
int main(void) {
easy_tramp(test);
return 0;
}