/*
 * libhugetlbfs - Easy use of Linux hugepages
 * Copyright (C) 2005-2006 David Gibson & Adam Litke, IBM Corporation.
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public License
 * as published by the Free Software Foundation; either version 2.1 of
 * the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <sys/mman.h>

#include "hugetests.h"

/*
 * We cannot test mapping size against huge page size because we are not linked
 * against libhugetlbfs so gethugepagesize() won't work.  So instead we define
 * our MIN_PAGE_SIZE as 64 kB (the largest base page available) and make sure
 * the mapping page size is larger than this.
 */
#define MIN_PAGE_SIZE 65536

static int block_sizes[] = {
	sizeof(int), 1024, 128*1024, 1024*1024, 16*1024*1024,
	32*1024*1024,
};
#define NUM_SIZES	(sizeof(block_sizes) / sizeof(block_sizes[0]))

int main(int argc, char *argv[])
{
	int i;
	char *env1, *env2, *exe;
	int expect_hugepage = 0;
	char *p;

	test_init(argc, argv);
	exe = strrchr(test_name, '/');
	if (exe)
		exe++;		/* skip over "/" */
	else
		exe = test_name;

	env1 = getenv("HUGETLB_MORECORE");
	verbose_printf("HUGETLB_MORECORE=%s\n", env1);
	env2 = getenv("HUGETLB_RESTRICT_EXE");
	verbose_printf("HUGETLB_RESTRICT_EXE=%s\n", env2);
	if (env1 && (!env2 || strstr(env2, exe)))
		expect_hugepage = 1;
	verbose_printf("expect_hugepage=%d\n", expect_hugepage);

	for (i = 0; i < NUM_SIZES; i++) {
		int size = block_sizes[i];
		unsigned long long mapping_size;

		p = malloc(size);
		if (! p)
			FAIL("malloc()");

		verbose_printf("malloc(%d) = %p\n", size, p);

		memset(p, 0, size);

		mapping_size = get_mapping_page_size(p);

		if (expect_hugepage && (mapping_size <= MIN_PAGE_SIZE))
			FAIL("Address is not hugepage");
		if (!expect_hugepage && (mapping_size > MIN_PAGE_SIZE))
			FAIL("Address is unexpectedly huge");

		free(p);
	}

	PASS();
}