/* Copyright 2014-2015 Samsung Electronics Co., Ltd.
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */

#define JERRY_MEM_POOL_INTERNAL

#include "mem-allocator.h"
#include "mem-pool.h"
#include "mem-poolman.h"

#include "test-common.h"

// Iterations count
const uint32_t test_iters = 64;

// Subiterations count
const uint32_t test_max_sub_iters = 1024;

#define TEST_POOL_SPACE_SIZE (sizeof (mem_pool_state_t) + \
                              (1ull << MEM_POOL_MAX_CHUNKS_NUMBER_LOG) * MEM_POOL_CHUNK_SIZE)
uint8_t test_pool[TEST_POOL_SPACE_SIZE] __attribute__ ((aligned (MEM_ALIGNMENT)));

uint8_t* ptrs[test_max_sub_iters];

int
main (int __attr_unused___ argc,
      char __attr_unused___ **argv)
{
  TEST_INIT ();

  for (uint32_t i = 0; i < test_iters; i++)
  {
    mem_pool_state_t* pool_p = (mem_pool_state_t*) test_pool;

    JERRY_ASSERT (MEM_POOL_SIZE <= TEST_POOL_SPACE_SIZE);

    mem_pool_init (pool_p, MEM_POOL_SIZE);

    const size_t subiters = ((size_t) rand () % test_max_sub_iters) + 1;

    for (size_t j = 0; j < subiters; j++)
    {
      if (pool_p->free_chunks_number != 0)
      {
        ptrs[j] = mem_pool_alloc_chunk (pool_p);

        memset (ptrs[j], 0, MEM_POOL_CHUNK_SIZE);
      }
      else
      {
        JERRY_ASSERT (j >= MEM_POOL_CHUNKS_NUMBER);

        ptrs[j] = NULL;
      }
    }

    // mem_heap_print (true);

    for (size_t j = 0; j < subiters; j++)
    {
      if (ptrs[j] != NULL)
      {
        for (size_t k = 0; k < MEM_POOL_CHUNK_SIZE; k++)
        {
          JERRY_ASSERT (((uint8_t*)ptrs[j])[k] == 0);
        }

        mem_pool_free_chunk (pool_p, ptrs[j]);
      }
    }
  }

  return 0;
} /* main */
