/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/*
 * Copyright (C) 2006 Imendio AB
 *
 * This program 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 of the
 * License, or (at your option) any later version.
 *
 * This program 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 program; if not, write to the
 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 * Boston, MA 02111-1307, USA.
 */

#include <stdlib.h>
#include <check.h> 
#include <glib.h>

#include "loudmouth/lm-parser.h"

static GSList *
get_files (const gchar *prefix) 
{
	GSList      *list = NULL;
	GError      *error = NULL;
	GDir        *dir;
	const gchar *name;
	
	dir = g_dir_open (PARSER_TEST_DIR, 0, &error);

	if (!dir) {
		g_error ("Failed to open test file directory '%s' due to: %s",
			 PARSER_TEST_DIR, error->message);
		g_clear_error (&error);

		return NULL;
	}
	

	while ((name = g_dir_read_name (dir))) {
		/* Find *.xml */

		if (g_str_has_prefix (name, prefix) &&
		    g_str_has_suffix (name, ".xml")) {
			gchar *file_path;

			file_path = g_strconcat (PARSER_TEST_DIR, "/", name, 
						 NULL);

			list = g_slist_prepend (list, file_path);
		}
	}

	g_dir_close (dir);
	g_clear_error (&error);

	return list;
}

static void
test_parser_with_file (const gchar *file_path, gboolean is_valid)
{
	LmParser *parser;
	gchar    *file_contents;
	GError   *error = NULL;
	gsize     length;

	parser = lm_parser_new (NULL, NULL, NULL);
	if (!g_file_get_contents (file_path,
				  &file_contents, &length, 
				  &error)) {
		g_error ("Couldn't read file '%s': %s",
			 file_path, error->message);
		g_clear_error (&error);
		return;
	}
	    
	lm_parser_parse (parser, file_contents);
	lm_parser_free (parser);
	g_free (file_contents);
}

static Suite *
create_lm_parser_valid_suite ()
{
	Suite  *suite;
	GSList *list, *l;

	suite = suite_create ("LmParser");

	list = get_files ("valid");
	for (l = list; l; l = l->next) {
		g_print ("VALID: %s\n", (const gchar *) l->data);
		test_parser_with_file ((const gchar *) l->data, TRUE);
		g_free (l->data);
	}
	g_slist_free (list);

	return suite;
}

static Suite *
create_lm_parser_invalid_suite ()
{
	Suite  *suite;
	GSList *list, *l;

	suite = suite_create ("LmParser");

	list = get_files ("invalid");
	for (l = list; l; l = l->next) {
		g_print ("INVALID: %s\n", (const gchar *) l->data);
		g_free (l->data);
	}
	g_slist_free (list);

	return suite;
}

int 
main (int argc, char **argv)
{
	SRunner *srunner;
	int      nf;

	srunner = srunner_create (create_lm_parser_valid_suite ());

	srunner_add_suite (srunner, create_lm_parser_invalid_suite ());

	srunner_run_all (srunner, CK_NORMAL);
	nf = srunner_ntests_failed (srunner);

	return (nf == 0) ? EXIT_SUCCESS : EXIT_FAILURE;
}