From 5a508d21783d2986dae8b300f8aa2b0b5cbb2f6f Mon Sep 17 00:00:00 2001
From: Gareth Rees
Date: Mon, 3 Jun 2013 12:19:55 +0100
Subject: Run apss test in a client arena as well as vm arenas.

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

---
 mps/code/apss.c | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'mps/code')

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;
 }
-- 
cgit v1.2.1