1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-15 07:41:09 -08:00
emacs/mps/qa/function/70.c
Richard Tucker 52df96658a New unit
new test

Copied from Perforce
 Change: 19072
 ServerID: perforce.ravenbrook.com
1997-12-08 17:28:52 +00:00

35 lines
634 B
C

/* TEST_HEADER
summary = create a space and see how much mem is taken
language = c
link = testlib.o
END_HEADER
*/
#include "testlib.h"
static void test(void)
{
mps_space_t space;
comment("Entered trampoline");
pause(10);
cdie(mps_space_create(&space), "create space");
comment("Created space");
report("committed", "%ul", mps_arena_committed(space));
report("reserved", "%ul", mps_arena_reserved(space));
pause(10);
mps_space_destroy(space);
comment("Destroyed space");
pause(10);
}
int main(void)
{
comment("Started");
pause(10);
easy_tramp(test);
comment("Left trampoline");
pause(10);
pass();
return 0;
}