a

1 files changed, 16 insertions, 0 deletions

diff --git a/tests/programs/arena.zc b/tests/programs/arena.zc
new file mode 100644
index 0000000..5156b80
--- /dev/null
+++ b/tests/programs/arena.zc
@@ -0,0 +1,16 @@
+// the bump arena: interior pointers, a rewind, and a full bump.
+fn main() {
+	let a = arena_new(32), p, q, r;
+	p = arena_alloc(a, 4);
+	p[0] = 7;
+	q = arena_alloc(a, 4);
+	put_n(q - p); put_c(' ');
+	put_n(p[0]); put_c(' ');
+	put_n(q[0]); put_c(' ');
+	arena_reset(a);
+	r = arena_alloc(a, 4);
+	put_n(r == p); put_c(' ');
+	put_n(arena_alloc(a, 100) == 0); put_c(10);
+	free(d*a);
+	return 0;
+}