mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-23 13:02:00 -08:00
53 lines
1.1 KiB
C
53 lines
1.1 KiB
C
/* impl.c.poolncv: NULL POOL COVERAGE TEST
|
|
*
|
|
* $HopeName: MMsrc!poolncv.c(MMdevel_config_thread.2) $
|
|
* Copyright (C) 1995,1997 Harlequin Group, all rights reserved
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include "mpm.h"
|
|
#include "pooln.h"
|
|
#include "mpsaan.h"
|
|
#include "testlib.h"
|
|
#ifdef MPS_OS_SU
|
|
#include "ossu.h"
|
|
#endif
|
|
|
|
|
|
static Bool testit(ArenaClass class, ...)
|
|
{
|
|
Bool eflag = FALSE;
|
|
Arena arena;
|
|
Pool pool;
|
|
Res res;
|
|
Addr p;
|
|
va_list args;
|
|
|
|
va_start(args, class);
|
|
die(ArenaCreateV(&arena, class, args), "ArenaCreate");
|
|
va_end(args);
|
|
|
|
die(PoolCreate(&pool, arena, PoolClassN()), "PoolNCreate");
|
|
res = PoolAlloc(&p, pool, 1);
|
|
if(res == ResOK) {
|
|
fprintf(stderr,
|
|
"Error: Unexpectedly succeeded in"
|
|
"allocating block from PoolN\n");
|
|
eflag = TRUE;
|
|
}
|
|
PoolDestroy(pool);
|
|
ArenaDestroy(arena);
|
|
|
|
return eflag;
|
|
}
|
|
|
|
|
|
int main(void)
|
|
{
|
|
if(testit((ArenaClass)mps_arena_class_an(), (Size)1000)) {
|
|
fprintf(stderr, "Conclusion: Defects found.\n");
|
|
} else {
|
|
fprintf(stderr, "Conclusion: Failed to find any defects.\n");
|
|
}
|
|
return 0;
|
|
}
|