#include "common.hpp"
#include "die.hpp"
#include "reader.hpp"
#include "test.hpp"
#include "writer.hpp"

StaticArena<64 * 1024 * 1024> arena;

TEST_CASE(array_append) {
  auto a = DIEX(Symbol::create(arena, "foo"));
  auto b = DIEX(Symbol::create(arena, "foo"));

  ASSERT_EQUALS(a, b);

  auto s = DIEX(write_one(arena, a));

  DIEX(arena.gc());

  ASSERT_EQUALS(s, "foo");
}