1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 07:41:28 -08:00
emacs/mps/test/conerr/32.c
Gareth Rees c89ce2ba0b Get the mmqa conerr tests working:
* Make sure all the test build and run.
* Add output specifications to the passing tests.
* New testset/conerr runs them all.

Copied from Perforce
 Change: 187248
 ServerID: perforce.ravenbrook.com
2014-10-13 21:34:12 +01:00

40 lines
723 B
C

/*
TEST_HEADER
id = $Id$
summary = create AP in a pool that doesn't support it
language = c
link = testlib.o
OUTPUT_SPEC
assert = true
assertfile P= poolabs.c
assertcond = unreachable code
END_HEADER
*/
#include "testlib.h"
#include "mpscmfs.h"
static void test(void)
{
mps_arena_t arena;
mps_pool_t pool;
mps_ap_t ap;
cdie(mps_arena_create(&arena, mps_arena_class_vm(), mmqaArenaSIZE), "create arena");
cdie(mps_pool_create(&pool, arena, mps_class_mfs(), 64), "create pool");
cdie(mps_ap_create(&ap, pool, mps_rank_exact()), "create ap");
mps_pool_destroy(pool);
comment("Destroyed pool");
mps_arena_destroy(arena);
comment("Destroyed arena.");
}
int main(void)
{
easy_tramp(test);
return 0;
}