/* -*- mode: C; c-file-style: "gnu" -*- */
/* Pango
 * testscript.c: Test cases for PangoScriptIter
 *
 * Copyright (C) 2002 Red Hat Software
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Library General Public
 * License as published by the Free Software Foundation; either
 * version 2 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
 * Library General Public License for more details.
 *
 * You should have received a copy of the GNU Library General Public
 * License along with this library; if not, write to the
 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 * Boston, MA 02111-1307, USA.
 */

#define PANGO_ENABLE_ENGINE
#include <pango/pango-ot.h>

#undef VERBOSE

#define ASSERT(stmt) G_STMT_START {					\
    if (stmt) { }							\
    else								\
      {									\
	g_warning ("%s:%d (%s): assertion '%s' failed",			\
		 __FILE__, __LINE__, G_STRFUNC, #stmt);			\
	exit (1);							\
      }									\
} G_STMT_END

G_GNUC_BEGIN_IGNORE_DEPRECATIONS

static void
test_script_tags (void)
{
  gunichar ch;
  PangoScript i, max_script;

  /* we need to know what the maximum script number is.  but we don't
   * provide an api for that.  instead of looking into internal tables,
   * we'll go over all chars and see what their script is, taking the max!
   */

  max_script = PANGO_SCRIPT_INVALID_CODE;
  for (ch = 0; ch <= 0x10FFFF; ch++)
    max_script = MAX (max_script, pango_script_for_unichar (ch));

  for (i = PANGO_SCRIPT_COMMON; i <= max_script; i++)
    {
      PangoOTTag tag = pango_ot_tag_from_script (i);
      PangoScript j  = pango_ot_tag_to_script (tag);

      if (tag == FT_MAKE_TAG ('k', 'a', 'n', 'a'))
        {
	  /* Hiragana and Katakana both map to tag 'kana' */
	 ASSERT (i == PANGO_SCRIPT_HIRAGANA || i == PANGO_SCRIPT_KATAKANA);
	 ASSERT (j == PANGO_SCRIPT_HIRAGANA || j == PANGO_SCRIPT_KATAKANA);
	}
      else
        {
	  if (j != i)
	    g_error ("Got back %d for script %d (OT tag '%c%c%c%c')", j, i,
		     tag>>24, (tag>>16)&255, (tag>>8)&255, tag&255);
	}
    }

  ASSERT (pango_ot_tag_to_script (FT_MAKE_TAG ('X', 'Y', 'Z', ' ')) == PANGO_SCRIPT_UNKNOWN);
}

static void
test_language_tags (void)
{
  /* just test it for a few known languages to make sure it's working */
  const char languages[][6] = {
    "xy", /* hopefully nonexistent */
    "aa",
    "az_IR",
    "en",
    "en_US",
    "fa",
    "fa_IR",
    "fr",
    "zh_CN",
    "zu"
  };
  unsigned int i;

  for (i = 0; i < G_N_ELEMENTS (languages); i++)
    {
      PangoLanguage *l = pango_language_from_string (languages[i]);
      PangoOTTag tag   = pango_ot_tag_from_language (l);
#if 0
      PangoLanguage *m = pango_ot_tag_to_language (tag);
#endif

      if (i == 0)
        {
	  ASSERT (tag == PANGO_OT_TAG_DEFAULT_LANGUAGE);
	}
      else
        {
	  if (tag == PANGO_OT_TAG_DEFAULT_LANGUAGE)
	    g_error ("Got PANGO_OT_TAG_DEFAULT_LANGUAGE for language '%s'", pango_language_to_string (l));

	  /* The following test can't work without proper BCP 47 language tag
	   * support.  So, disable it. */
#if 0
	  if (!pango_language_matches (l, pango_language_to_string (m)))
	    g_error ("Got back %s for language %s (OT tag '%c%c%c%c')",
		     pango_language_to_string (m), pango_language_to_string (l),
		     tag>>24, (tag>>16)&255, (tag>>8)&255, tag&255);
#endif
	}
    }
}

int
main (int argc, char **argv)
{
  g_test_init (&argc, &argv, NULL);

  g_test_add_func ("/tags/script", test_script_tags);
  g_test_add_func ("/tags/language", test_language_tags);

  return g_test_run ();
}

G_GNUC_END_IGNORE_DEPRECATIONS