/*
 * Check: a unit test framework for C
 * Copyright (C) 2001, 2002 Arien Malec
 *
 * 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 "../lib/libcompat.h"

/* Tests for log related stuff in check which need non-exported functions. */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <check.h>
#include <check_list.h>
#include <check_impl.h>
#include <check_log.h>
#include "check_check.h"


#if ENABLE_SUBUNIT
START_TEST(test_init_logging_subunit)
{
  /* init_logging with CK_SUBUNIT sets stdout 
   * to a subunit function, not any log.
   */
  Log * first_log = NULL;
  Suite *s = suite_create("Suite");
  SRunner *sr = srunner_create(s);
  srunner_init_logging(sr, CK_SUBUNIT);
  check_list_front (sr->loglst);
  ck_assert_msg (!check_list_at_end(sr->loglst), "No entries in log list");
  first_log = (Log *)check_list_val(sr->loglst);
  ck_assert_msg (first_log != NULL, "log is NULL");
  check_list_advance(sr->loglst);
  ck_assert_msg(check_list_at_end(sr->loglst), "More than one entry in log list");
  ck_assert_msg(first_log->lfun == subunit_lfun,
              "Log function is not the subunit lfun.");
  srunner_end_logging(sr);
  srunner_free(sr);
}
END_TEST
#endif

Suite *make_log_internal_suite(void)
{
  Suite *s;

#if ENABLE_SUBUNIT
  TCase *tc_core_subunit;
  s = suite_create("Log");
  tc_core_subunit = tcase_create("Core SubUnit");
  suite_add_tcase(s, tc_core_subunit);
  tcase_add_test(tc_core_subunit, test_init_logging_subunit);
#else
  s = suite_create("Log");
#endif
  
  return s;
}