/*
 * Copyright (c) 2013, Red Hat Inc.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 *     * Redistributions of source code must retain the above
 *       copyright notice, this list of conditions and the
 *       following disclaimer.
 *     * Redistributions in binary form must reproduce the
 *       above copyright notice, this list of conditions and
 *       the following disclaimer in the documentation and/or
 *       other materials provided with the distribution.
 *     * The names of contributors to this software may not be
 *       used to endorse or promote products derived from this
 *       software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
 * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
 * COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
 * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS
 * OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
 * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF
 * THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
 * DAMAGE.
 *
 * Author: Stef Walter <stefw@collabora.co.uk>
 */

#include "config.h"

#include "test-trust.h"

#include "attrs.h"
#include "compat.h"
#include "debug.h"
#include "dict.h"
#include "message.h"
#include "path.h"
#include "save.h"
#include "test.h"

#include <sys/stat.h>
#include <sys/types.h>

#include <dirent.h>
#include <errno.h>
#include <fcntl.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <unistd.h>

struct {
	char *directory;
} test;

static void
setup (void *unused)
{
	test.directory = p11_test_directory ("test-extract");
}

static void
teardown (void *unused)
{
	if (rmdir (test.directory) < 0)
		assert_fail ("rmdir() failed", strerror (errno));
	free (test.directory);
}

static void
write_zero_file (const char *directory,
                 const char *name)
{
	char *filename;
	int res;
	int fd;

	if (asprintf (&filename, "%s/%s", directory, name) < 0)
		assert_not_reached ();

	fd = open (filename, O_WRONLY | O_CREAT, S_IRUSR | S_IWUSR);
	assert (fd != -1);
	res = close (fd);
	assert (res >= 0);

	free (filename);
}

static void
test_file_write (void)
{
	p11_save_file *file;
	char *filename;
	bool ret;

	if (asprintf (&filename, "%s/%s", test.directory, "extract-file") < 0)
		assert_not_reached ();

	file = p11_save_open_file (filename, NULL, 0);
	assert_ptr_not_null (file);

	ret = p11_save_write_and_finish (file, test_cacert3_ca_der, sizeof (test_cacert3_ca_der));
	assert_num_eq (true, ret);
	free (filename);

	test_check_file (test.directory, "extract-file", SRCDIR "/trust/fixtures/cacert3.der");
}

static void
test_file_exists (void)
{
	p11_save_file *file;
	char *filename;

	if (asprintf (&filename, "%s/%s", test.directory, "extract-file") < 0)
		assert_not_reached ();

	write_zero_file (test.directory, "extract-file");

	p11_message_quiet ();

	file = p11_save_open_file (filename, NULL, 0);
	assert (file != NULL);

	if (p11_save_finish_file (file, NULL, true))
		assert_not_reached ();

	p11_message_loud ();

	unlink (filename);
	free (filename);
}

static void
test_file_bad_directory (void)
{
	p11_save_file *file;
	char *filename;

	if (asprintf (&filename, "/non-existent/%s/%s", test.directory, "extract-file") < 0)
		assert_not_reached ();

	p11_message_quiet ();

	file = p11_save_open_file (filename, NULL, 0);
	assert (file == NULL);

	p11_message_loud ();

	free (filename);
}

static void
test_file_overwrite (void)
{
	p11_save_file *file;
	char *filename;
	bool ret;

	if (asprintf (&filename, "%s/%s", test.directory, "extract-file") < 0)
		assert_not_reached ();

	write_zero_file (test.directory, "extract-file");

	file = p11_save_open_file (filename, NULL, P11_SAVE_OVERWRITE);
	assert_ptr_not_null (file);

	ret = p11_save_write_and_finish (file, test_cacert3_ca_der, sizeof (test_cacert3_ca_der));
	assert_num_eq (true, ret);
	free (filename);

	test_check_file (test.directory, "extract-file", SRCDIR "/trust/fixtures/cacert3.der");
}

static void
test_file_unique (void)
{
	p11_save_file *file;
	char *filename;
	bool ret;

	if (asprintf (&filename, "%s/%s", test.directory, "extract-file") < 0)
		assert_not_reached ();

	write_zero_file (test.directory, "extract-file");

	file = p11_save_open_file (filename, NULL, P11_SAVE_UNIQUE);
	assert_ptr_not_null (file);

	ret = p11_save_write_and_finish (file, test_cacert3_ca_der, sizeof (test_cacert3_ca_der));
	assert_num_eq (true, ret);
	free (filename);

	test_check_file (test.directory, "extract-file", SRCDIR "/trust/fixtures/empty-file");
	test_check_file (test.directory, "extract-file.1", SRCDIR "/trust/fixtures/cacert3.der");
}

static void
test_file_auto_empty (void)
{
	p11_save_file *file;
	char *filename;
	bool ret;

	if (asprintf (&filename, "%s/%s", test.directory, "extract-file") < 0)
		assert_not_reached ();

	file = p11_save_open_file (filename, NULL, 0);
	assert_ptr_not_null (file);

	ret = p11_save_write_and_finish (file, NULL, -1);
	assert_num_eq (true, ret);
	free (filename);

	test_check_file (test.directory, "extract-file", SRCDIR "/trust/fixtures/empty-file");
}

static void
test_file_auto_length (void)
{
	p11_save_file *file;
	char *filename;
	bool ret;

	if (asprintf (&filename, "%s/%s", test.directory, "extract-file") < 0)
		assert_not_reached ();

	file = p11_save_open_file (filename, NULL, 0);
	assert_ptr_not_null (file);

	ret = p11_save_write_and_finish (file, "The simple string is hairy", -1);
	assert_num_eq (true, ret);
	free (filename);

	test_check_file (test.directory, "extract-file", SRCDIR "/trust/fixtures/simple-string");
}

static void
test_write_with_null (void)
{
	bool ret;

	ret = p11_save_write (NULL, "test", 4);
	assert_num_eq (false, ret);
}

static void
test_write_and_finish_with_null (void)
{
	bool ret;

	ret = p11_save_write_and_finish (NULL, "test", 4);
	assert_num_eq (false, ret);
}

static void
test_file_abort (void)
{
	struct stat st;
	p11_save_file *file;
	char *filename;
	char *path;
	bool ret;

	if (asprintf (&filename, "%s/%s", test.directory, "extract-file") < 0)
		assert_not_reached ();

	file = p11_save_open_file (filename, NULL, 0);
	assert_ptr_not_null (file);

	path = NULL;
	ret = p11_save_finish_file (file, &path, false);
	assert_num_eq (true, ret);
	assert (path == NULL);

	if (stat (filename, &st) >= 0 || errno != ENOENT)
		assert_fail ("file should not exist", filename);

	free (filename);
}


static void
test_directory_empty (void)
{
	p11_save_dir *dir;
	char *subdir;
	bool ret;

	if (asprintf (&subdir, "%s/%s", test.directory, "extract-dir") < 0)
		assert_not_reached ();

	dir = p11_save_open_directory (subdir, 0);
	assert_ptr_not_null (dir);

	ret = p11_save_finish_directory (dir, true);
	assert_num_eq (true, ret);

	test_check_directory (subdir, (NULL, NULL));

	assert (rmdir (subdir) >= 0);
	free (subdir);
}

static void
test_directory_files (void)
{
	char *path;
	char *check;
	p11_save_file *file;
	p11_save_dir *dir;
	char *subdir;
	bool ret;

	if (asprintf (&subdir, "%s/%s", test.directory, "extract-dir") < 0)
		assert_not_reached ();

	dir = p11_save_open_directory (subdir, 0);
	assert_ptr_not_null (dir);

	file = p11_save_open_file_in (dir, "blah", ".cer");
	assert_ptr_not_null (file);
	ret = p11_save_write (file, test_cacert3_ca_der, sizeof (test_cacert3_ca_der));
	assert_num_eq (true, ret);
	ret = p11_save_finish_file (file, &path, true);
	assert_num_eq (true, ret);
	if (asprintf (&check, "%s/%s", subdir, "blah.cer") < 0)
		assert_not_reached ();
	assert_str_eq (check, path);
	free (check);
	free (path);

	file = p11_save_open_file_in (dir, "file", ".txt");
	assert_ptr_not_null (file);
	ret = p11_save_write (file, test_text, strlen (test_text));
	assert_num_eq (true, ret);
	ret = p11_save_finish_file (file, &path, true);
	assert_num_eq (true, ret);
	if (asprintf (&check, "%s/%s", subdir, "file.txt") < 0)
		assert_not_reached ();
	assert_str_eq (check, path);
	free (check);
	free (path);

#ifdef OS_UNIX
	ret = p11_save_symlink_in (dir, "link", ".ext", "/the/destination");
	assert_num_eq (true, ret);
#endif

	ret = p11_save_finish_directory (dir, true);
	assert_num_eq (true, ret);

#ifdef OS_UNIX
	test_check_directory (subdir, ("blah.cer", "file.txt",
	                      "link.ext",
	                      NULL));
#else
	test_check_directory (subdir, ("blah.cer", "file.txt",
	                      NULL));
#endif
	test_check_file (subdir, "blah.cer", SRCDIR "/trust/fixtures/cacert3.der");
	test_check_data (subdir, "file.txt", test_text, strlen (test_text));
#ifdef OS_UNIX
	test_check_symlink (subdir, "link.ext", "/the/destination");
#endif

	assert (rmdir (subdir) >= 0);
	free (subdir);
}

static void
test_directory_dups (void)
{
	char *path;
	char *check;
	p11_save_file *file;
	p11_save_dir *dir;
	char *subdir;
	bool ret;

	if (asprintf (&subdir, "%s/%s", test.directory, "extract-dir") < 0)
		assert_not_reached ();

	dir = p11_save_open_directory (subdir, 0);
	assert_ptr_not_null (dir);

	file = p11_save_open_file_in (dir, "file", ".txt");
	assert_ptr_not_null (file);
	ret = p11_save_write (file, test_text, 5);
	assert_num_eq (true, ret);
	ret = p11_save_finish_file (file, &path, true);
	assert_num_eq (true, ret);
	if (asprintf (&check, "%s/%s", subdir, "file.txt") < 0)
		assert_not_reached ();
	assert_str_eq (check, path);
	free (check);
	free (path);

	file = p11_save_open_file_in (dir, "file", ".txt");
	assert_ptr_not_null (file);
	ret = p11_save_write (file, test_text, 10);
	assert_num_eq (true, ret);
	ret = p11_save_finish_file (file, &path, true);
	assert_num_eq (true, ret);
	if (asprintf (&check, "%s/%s", subdir, "file.1.txt") < 0)
		assert_not_reached ();
	assert_str_eq (check, path);
	free (check);
	free (path);

	ret = p11_save_write_and_finish (p11_save_open_file_in (dir, "file", ".txt"),
	                                 test_text, 15);
	assert_num_eq (true, ret);

	ret = p11_save_write_and_finish (p11_save_open_file_in (dir, "no-ext", NULL),
	                                 test_text, 8);
	assert_num_eq (true, ret);

	ret = p11_save_write_and_finish (p11_save_open_file_in (dir, "no-ext", NULL),
	                                 test_text, 16);
	assert_num_eq (true, ret);

	ret = p11_save_write_and_finish (p11_save_open_file_in (dir, "with-num", ".0"),
	                                 test_text, 14);
	assert_num_eq (true, ret);

	ret = p11_save_write_and_finish (p11_save_open_file_in (dir, "with-num", ".0"),
	                                 test_text, 15);
	assert_num_eq (true, ret);

#ifdef OS_UNIX
	ret = p11_save_symlink_in (dir, "link", ".0", "/destination1");
	assert_num_eq (true, ret);

	ret = p11_save_symlink_in (dir, "link", ".0", "/destination2");
	assert_num_eq (true, ret);
#endif

	ret = p11_save_finish_directory (dir, true);
	assert_num_eq (true, ret);

#ifdef OS_UNIX
	test_check_directory (subdir, ("file.txt", "file.1.txt", "file.2.txt",
				       "no-ext", "no-ext.1",
				       "with-num.0", "with-num.1",
				       "link.0", "link.1",
				       NULL));
#else
	test_check_directory (subdir, ("file.txt", "file.1.txt", "file.2.txt",
				       "no-ext", "no-ext.1",
				       "with-num.0", "with-num.1",
				       NULL));
#endif
	test_check_data (subdir, "file.txt", test_text, 5);
	test_check_data (subdir, "file.1.txt", test_text, 10);
	test_check_data (subdir, "file.2.txt", test_text, 15);
	test_check_data (subdir, "no-ext", test_text, 8);
	test_check_data (subdir, "no-ext.1", test_text, 16);
	test_check_data (subdir, "with-num.0", test_text, 14);
	test_check_data (subdir, "with-num.1", test_text, 15);
#ifdef OS_UNIX
	test_check_symlink (subdir, "link.0", "/destination1");
	test_check_symlink (subdir, "link.1", "/destination2");
#endif

	assert (rmdir (subdir) >= 0);
	free (subdir);
}

static void
test_directory_exists (void)
{
	p11_save_dir *dir;
	char *subdir;

	if (asprintf (&subdir, "%s/%s", test.directory, "extract-dir") < 0)
		assert_not_reached ();

#ifdef OS_UNIX
	if (mkdir (subdir, S_IRWXU) < 0)
#else
	if (mkdir (subdir) < 0)
#endif
		assert_fail ("mkdir() failed", subdir);

	p11_message_quiet ();

	dir = p11_save_open_directory (subdir, 0);
	assert_ptr_eq (NULL, dir);

	p11_message_loud ();

	rmdir (subdir);
	free (subdir);
}

static void
test_directory_overwrite (void)
{
	char *path;
	char *check;
	p11_save_file *file;
	p11_save_dir *dir;
	char *subdir;
	bool ret;

	if (asprintf (&subdir, "%s/%s", test.directory, "extract-dir") < 0)
		assert_not_reached ();

	/* Some initial files into this directory, which get overwritten */
	dir = p11_save_open_directory (subdir, 0);
	ret = p11_save_write_and_finish (p11_save_open_file_in (dir, "file", ".txt"), "", 0) &&
	      p11_save_write_and_finish (p11_save_open_file_in (dir, "another-file", NULL), "", 0) &&
	      p11_save_write_and_finish (p11_save_open_file_in (dir, "third-file", NULL), "", 0) &&
	      p11_save_finish_directory (dir, true);
	assert (ret && dir);

	/* Now the actual test, using the same directory */
	dir = p11_save_open_directory (subdir, P11_SAVE_OVERWRITE);
	assert_ptr_not_null (dir);

	file = p11_save_open_file_in (dir, "blah", ".cer");
	assert_ptr_not_null (file);
	ret = p11_save_write (file, test_cacert3_ca_der, sizeof (test_cacert3_ca_der));
	assert_num_eq (true, ret);
	ret = p11_save_finish_file (file, &path, true);
	assert_num_eq (true, ret);
	if (asprintf (&check, "%s/%s", subdir, "blah.cer") < 0)
		assert_not_reached ();
	assert_str_eq (check, path);
	free (check);
	free (path);

	file = p11_save_open_file_in (dir, "file", ".txt");
	assert_ptr_not_null (file);
	ret = p11_save_write (file, test_text, strlen (test_text));
	assert_num_eq (true, ret);
	ret = p11_save_finish_file (file, &path, true);
	assert_num_eq (true, ret);
	if (asprintf (&check, "%s/%s", subdir, "file.txt") < 0)
		assert_not_reached ();
	assert_str_eq (check, path);
	free (check);
	free (path);

	file = p11_save_open_file_in (dir, "file", ".txt");
	assert_ptr_not_null (file);
	ret = p11_save_write (file, test_text, 10);
	assert_num_eq (true, ret);
	ret = p11_save_finish_file (file, &path, true);
	assert_num_eq (true, ret);
	if (asprintf (&check, "%s/%s", subdir, "file.1.txt") < 0)
		assert_not_reached ();
	assert_str_eq (check, path);
	free (check);
	free (path);

	ret = p11_save_finish_directory (dir, true);
	assert_num_eq (true, ret);

	test_check_directory (subdir, ("blah.cer", "file.txt", "file.1.txt", NULL));
	test_check_data (subdir, "blah.cer", test_cacert3_ca_der, sizeof (test_cacert3_ca_der));
	test_check_data (subdir, "file.txt", test_text, strlen (test_text));
	test_check_data (subdir, "file.1.txt", test_text, 10);

	assert (rmdir (subdir) >= 0);
	free (subdir);
}

int
main (int argc,
      char *argv[])
{
	p11_fixture (setup, teardown);
	p11_test (test_file_write, "/save/test_file_write");
	p11_test (test_file_exists, "/save/test_file_exists");
	p11_test (test_file_bad_directory, "/save/test_file_bad_directory");
	p11_test (test_file_overwrite, "/save/test_file_overwrite");
	p11_test (test_file_unique, "/save/file-unique");
	p11_test (test_file_auto_empty, "/save/test_file_auto_empty");
	p11_test (test_file_auto_length, "/save/test_file_auto_length");

	p11_fixture (NULL, NULL);
	p11_test (test_write_with_null, "/save/test_write_with_null");
	p11_test (test_write_and_finish_with_null, "/save/test_write_and_finish_with_null");

	p11_fixture (setup, teardown);
	p11_test (test_file_abort, "/save/test_file_abort");

	p11_test (test_directory_empty, "/save/test_directory_empty");
	p11_test (test_directory_files, "/save/test_directory_files");
	p11_test (test_directory_dups, "/save/test_directory_dups");
	p11_test (test_directory_exists, "/save/test_directory_exists");
	p11_test (test_directory_overwrite, "/save/test_directory_overwrite");
	return p11_test_run (argc, argv);
}