Run apss test in a client arena as well as vm arenas.

Copied from Perforce
 Change: 182416
 ServerID: perforce.ravenbrook.com

1 files changed, 7 insertions, 0 deletions

diff --git a/mps/code/apss.c b/mps/code/apss.c
index c7444a53278..65323d9b629 100644
--- a/mps/code/apss.c
+++ b/mps/code/apss.c
@@ -10,6 +10,7 @@
 #include "mpscmvff.h"
 #include "mpscmvt.h"
 #include "mpslib.h"
+#include "mpsacl.h"
 #include "mpsavm.h"
 
 #include "testlib.h"
@@ -201,6 +202,12 @@ int main(int argc, char *argv[])
   testInArena(arena, bothOptions);
   mps_arena_destroy(arena);
 
+  die(mps_arena_create(&arena, mps_arena_class_cl(),
+                       testArenaSIZE, malloc(testArenaSIZE)),
+      "mps_arena_create");
+  testInArena(arena, bothOptions);
+  mps_arena_destroy(arena);
+
   printf("%s: Conclusion: Failed to find any defects.\n", argv[0]);
   return 0;
 }