gst_plugins_base/tsrc/check/libs/tag/src/tag.c
changeset 0 0e761a78d257
child 8 4a7fac7dd34a
child 29 567bb019e3e3
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gst_plugins_base/tsrc/check/libs/tag/src/tag.c	Thu Dec 17 08:53:32 2009 +0200
@@ -0,0 +1,833 @@
+/* GStreamer
+ *
+ * unit tests for the tag support library
+ *
+ * Copyright (C) 2006 Tim-Philipp Müller <tim centricular net>
+ *
+ * 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.
+ */
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+
+#define LOG_FILE "c:\\logs\\gsttag_logs.txt" 
+
+#include <gst/gst_global.h>
+#include "std_log_result.h" 
+#define LOG_FILENAME_LINE __FILE__, __LINE__
+
+void create_xml(int result)
+{
+    if(result)
+        assert_failed = 1;
+    
+    testResultXml(xmlfile);
+    close_log_file();
+}
+
+#include "libgstreamer_wsd_solution.h" 
+
+#if EMULATOR
+GET_GLOBAL_VAR_FROM_TLS(buffers,gstcheck,GList*)
+#define buffers (*GET_GSTREAMER_WSD_VAR_NAME(buffers,gstcheck,g)())
+#else 
+extern GList *buffers;
+#endif
+
+
+#if EMULATOR
+static GET_GLOBAL_VAR_FROM_TLS(raised_critical,gstcheck,gboolean)
+#define _gst_check_raised_critical (*GET_GSTREAMER_WSD_VAR_NAME(raised_critical,gstcheck,g)())
+#else 
+extern gboolean _gst_check_raised_critical;
+#endif
+//gboolean _gst_check_raised_warning = FALSE;
+#if EMULATOR
+static GET_GLOBAL_VAR_FROM_TLS(raised_warning,gstcheck,gboolean)
+#define _gst_check_raised_warning (*GET_GSTREAMER_WSD_VAR_NAME(raised_warning,gstcheck,g)())
+#else 
+extern gboolean _gst_check_raised_warning;
+#endif
+//gboolean _gst_check_expecting_log = FALSE;
+#if EMULATOR
+static GET_GLOBAL_VAR_FROM_TLS(expecting_log,gstcheck,gboolean)
+#define _gst_check_expecting_log (*GET_GSTREAMER_WSD_VAR_NAME(expecting_log,gstcheck,g)())
+#else 
+extern gboolean _gst_check_expecting_log;
+#endif
+
+//gboolean _gst_check_expecting_log = FALSE;
+#if EMULATOR
+static GET_GLOBAL_VAR_FROM_TLS(threads_running,gstcheck,gboolean)
+#define _gst_check_threads_running (*GET_GSTREAMER_WSD_VAR_NAME(threads_running,gstcheck,g)())
+#else 
+extern gboolean _gst_check_threads_running;
+#endif
+
+
+
+#if EMULATOR
+GET_GLOBAL_VAR_FROM_TLS(thread_list,gstcheck,GList*)
+#define thread_list (*GET_GSTREAMER_WSD_VAR_NAME(thread_list,gstcheck,g)())
+#else 
+extern GList *thread_list;
+#endif
+
+//GMutex *mutex;
+#if EMULATOR
+GET_GLOBAL_VAR_FROM_TLS(mutex,gstcheck,GMutex*)
+#define mutex (*GET_GSTREAMER_WSD_VAR_NAME(mutex,gstcheck,g)())
+#else 
+extern GMutex *mutex;
+#endif
+
+//GCond *start_cond;              /* used to notify main thread of thread startups */
+#if EMULATOR
+static GET_GLOBAL_VAR_FROM_TLS(start_cond,gstcheck,GCond*)
+#define start_cond (*GET_GSTREAMER_WSD_VAR_NAME(start_cond,gstcheck,g)())
+#else 
+extern GCond *start_cond;
+#endif
+
+//GCond *sync_cond;               /* used to synchronize all threads and main thread */
+#if EMULATOR
+static GET_GLOBAL_VAR_FROM_TLS(sync_cond,gstcheck,GCond*)
+#define sync_cond (*GET_GSTREAMER_WSD_VAR_NAME(sync_cond,gstcheck,g)())
+#else 
+extern GCond *sync_cond;
+#endif
+
+#include <gst/check/gstcheck.h>
+
+#include <gst/tag/tag.h>
+#include <string.h>
+
+void test_parse_extended_comment()
+{
+  gchar *key, *val, *lang;
+  
+  xmlfile = "test_parse_extended_comment";
+  std_log(LOG_FILENAME_LINE, "Test Started test_parse_extended_comment");
+
+  /* first check the g_return_val_if_fail conditions */
+  ASSERT_CRITICAL (gst_tag_parse_extended_comment (NULL, NULL, NULL, NULL,
+          FALSE));
+  ASSERT_CRITICAL (gst_tag_parse_extended_comment ("\377\000", NULL, NULL, NULL,
+          FALSE));
+
+  key = val = lang = NULL;
+  fail_unless (gst_tag_parse_extended_comment ("a=b", &key, &lang, &val,
+          FALSE) == TRUE);
+  fail_unless (key != NULL);
+  fail_unless (lang == NULL);
+  fail_unless (val != NULL);
+  fail_unless_equals_string (key, "a");
+  fail_unless_equals_string (val, "b");
+  g_free (key);
+  g_free (lang);
+  g_free (val);
+
+  key = val = lang = NULL;
+  fail_unless (gst_tag_parse_extended_comment ("a[l]=b", &key, &lang, &val,
+          FALSE) == TRUE);
+  fail_unless (key != NULL);
+  fail_unless (lang != NULL);
+  fail_unless (val != NULL);
+  fail_unless_equals_string (key, "a");
+  fail_unless_equals_string (lang, "l");
+  fail_unless_equals_string (val, "b");
+  g_free (key);
+  g_free (lang);
+  g_free (val);
+
+  key = val = lang = NULL;
+  fail_unless (gst_tag_parse_extended_comment ("foo=bar", &key, &lang, &val,
+          FALSE) == TRUE);
+  fail_unless (key != NULL);
+  fail_unless (lang == NULL);
+  fail_unless (val != NULL);
+  fail_unless_equals_string (key, "foo");
+  fail_unless_equals_string (val, "bar");
+  g_free (key);
+  g_free (lang);
+  g_free (val);
+
+  key = val = lang = NULL;
+  fail_unless (gst_tag_parse_extended_comment ("foo[fr]=bar", &key, &lang, &val,
+          FALSE) == TRUE);
+  fail_unless (key != NULL);
+  fail_unless (lang != NULL);
+  fail_unless (val != NULL);
+  fail_unless_equals_string (key, "foo");
+  fail_unless_equals_string (lang, "fr");
+  fail_unless_equals_string (val, "bar");
+  g_free (key);
+  g_free (lang);
+  g_free (val);
+
+  key = val = lang = NULL;
+  fail_unless (gst_tag_parse_extended_comment ("foo=[fr]bar", &key, &lang, &val,
+          FALSE) == TRUE);
+  fail_unless (key != NULL);
+  fail_unless (lang == NULL);
+  fail_unless (val != NULL);
+  fail_unless_equals_string (key, "foo");
+  fail_unless_equals_string (val, "[fr]bar");
+  g_free (key);
+  g_free (lang);
+  g_free (val);
+
+  /* test NULL for output locations */
+  fail_unless (gst_tag_parse_extended_comment ("foo[fr]=bar", NULL, NULL, NULL,
+          FALSE) == TRUE);
+
+  /* test strict mode (key must be specified) */
+  fail_unless (gst_tag_parse_extended_comment ("foo[fr]=bar", NULL, NULL, NULL,
+          TRUE) == TRUE);
+  fail_unless (gst_tag_parse_extended_comment ("foo=bar", NULL, NULL, NULL,
+          TRUE) == TRUE);
+  fail_unless (gst_tag_parse_extended_comment ("foobar", NULL, NULL, NULL,
+          TRUE) == FALSE);
+
+  /* test non-strict mode (if there's no key, that's fine too) */
+  fail_unless (gst_tag_parse_extended_comment ("foobar", NULL, NULL, NULL,
+          FALSE) == TRUE);
+  fail_unless (gst_tag_parse_extended_comment ("[fr]bar", NULL, NULL, NULL,
+          FALSE) == TRUE);
+
+  key = val = lang = NULL;
+  fail_unless (gst_tag_parse_extended_comment ("[fr]bar", &key, &lang, &val,
+          FALSE) == TRUE);
+  fail_unless (key == NULL);
+  fail_unless (lang == NULL);
+  fail_unless (val != NULL);
+  fail_unless_equals_string (val, "[fr]bar");
+  g_free (key);
+  g_free (lang);
+  g_free (val);
+  std_log(LOG_FILENAME_LINE, "Test Successful");
+  create_xml(0);
+}
+
+
+
+#define ASSERT_TAG_LIST_HAS_STRING(list,field,string)                      \
+  {                                                                        \
+    gboolean got_match = FALSE;                                            \
+    guint i, size;                                                         \
+                                                                           \
+    fail_unless (gst_tag_list_get_tag_size (list,field) > 0);              \
+    size = gst_tag_list_get_tag_size (list,field);                         \
+    for (i = 0; i < size; ++i) {                                           \
+      gchar *___s = NULL;                                                  \
+                                                                           \
+      fail_unless (gst_tag_list_get_string_index (list, field, i, &___s)); \
+      fail_unless (___s != NULL);                                          \
+      if (g_str_equal (___s, string)) {                                    \
+        got_match = TRUE;                                                  \
+        g_free (___s);                                                     \
+        break;                                                             \
+      }                                                                    \
+      g_free (___s);                                                       \
+    }                                                                      \
+    fail_unless (got_match);                                               \
+  }
+
+#define ASSERT_TAG_LIST_HAS_UINT(list,field,num)                           \
+  {                                                                        \
+    guint ___n;                                                            \
+                                                                           \
+    fail_unless (gst_tag_list_get_tag_size (list,field) > 0);              \
+    fail_unless (gst_tag_list_get_tag_size (list,field) == 1);             \
+    fail_unless (gst_tag_list_get_uint_index (list, field, 0, &___n));     \
+    fail_unless_equals_int (___n, num);                                    \
+  }
+
+#define MATCH_DOUBLE(p1, p2) ((p1 < p2 + 1e-6) && (p2 < p1 + 1e-6))
+#define ASSERT_TAG_LIST_HAS_DOUBLE(list,field,d)                           \
+  {                                                                        \
+    gdouble ___d;                                                          \
+                                                                           \
+    fail_unless (gst_tag_list_get_tag_size (list,field) > 0);              \
+    fail_unless (gst_tag_list_get_tag_size (list,field) == 1);             \
+    fail_unless (gst_tag_list_get_double_index (list, field, 0, &___d));   \
+    fail_unless (MATCH_DOUBLE (d, ___d),                                   \
+        "%f does not match expected %f", ___d, d);                         \
+  }
+
+void test_muscibrainz_tag_registration()
+{
+  GstTagList *list;
+
+  xmlfile = "test_muscibrainz_tag_registration";
+  std_log(LOG_FILENAME_LINE, "Test Started test_muscibrainz_tag_registration");
+  
+  gst_tag_register_musicbrainz_tags ();
+
+  list = gst_tag_list_new ();
+
+  /* musicbrainz tags aren't registered yet */
+  gst_vorbis_tag_add (list, "MUSICBRAINZ_TRACKID", "123456");
+  gst_vorbis_tag_add (list, "MUSICBRAINZ_ARTISTID", "234567");
+  gst_vorbis_tag_add (list, "MUSICBRAINZ_ALBUMID", "345678");
+  gst_vorbis_tag_add (list, "MUSICBRAINZ_ALBUMARTISTID", "4567890");
+  gst_vorbis_tag_add (list, "MUSICBRAINZ_TRMID", "5678901");
+  /* MUSICBRAINZ_SORTNAME = GST_TAG_ARTIST_SORTNAME now */
+  gst_vorbis_tag_add (list, "MUSICBRAINZ_SORTNAME", "Five, 678901");
+
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_MUSICBRAINZ_TRACKID, "123456");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_MUSICBRAINZ_ARTISTID, "234567");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_MUSICBRAINZ_ALBUMID, "345678");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_MUSICBRAINZ_ALBUMARTISTID,
+      "4567890");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_MUSICBRAINZ_TRMID, "5678901");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_ARTIST_SORTNAME, "Five, 678901");
+
+  gst_tag_list_free (list);
+  std_log(LOG_FILENAME_LINE, "Test Successful");
+  create_xml(0);
+}
+
+
+
+/* is there an easier way to compare two structures / tagslists? */
+static gboolean
+taglists_are_equal (const GstTagList * list_1, const GstTagList * list_2)
+{
+  GstCaps *c_list_1 = gst_caps_new_empty ();
+  GstCaps *c_list_2 = gst_caps_new_empty ();
+  gboolean ret;
+
+  gst_caps_append_structure (c_list_1,
+      gst_structure_copy ((GstStructure *) list_1));
+  gst_caps_append_structure (c_list_2,
+      gst_structure_copy ((GstStructure *) list_2));
+
+  ret = gst_caps_is_equal (c_list_2, c_list_1);
+
+  gst_caps_unref (c_list_1);
+  gst_caps_unref (c_list_2);
+
+  return ret;
+}
+
+void test_vorbis_tags()
+{
+  GstTagList *list;
+  
+  xmlfile = "test_vorbis_tags";
+  std_log(LOG_FILENAME_LINE, "Test Started test_vorbis_tags");
+
+  list = gst_tag_list_new ();
+
+  /* NULL pointers aren't allowed */
+  ASSERT_CRITICAL (gst_vorbis_tag_add (NULL, "key", "value"));
+  ASSERT_CRITICAL (gst_vorbis_tag_add (list, NULL, "value"));
+  ASSERT_CRITICAL (gst_vorbis_tag_add (list, "key", NULL));
+
+  /* must be UTF-8 */
+  ASSERT_CRITICAL (gst_vorbis_tag_add (list, "key", "v\377lue"));
+  ASSERT_CRITICAL (gst_vorbis_tag_add (list, "k\377y", "value"));
+
+  /* key can't have a '=' in it */
+  ASSERT_CRITICAL (gst_vorbis_tag_add (list, "k=y", "value"));
+  ASSERT_CRITICAL (gst_vorbis_tag_add (list, "key=", "value"));
+
+  /* should be allowed in values though */
+  gst_vorbis_tag_add (list, "keeey", "va=ue");
+
+  /* add some tags */
+  gst_vorbis_tag_add (list, "TITLE", "Too");
+  gst_vorbis_tag_add (list, "ALBUM", "Aoo");
+  gst_vorbis_tag_add (list, "ARTIST", "Alboo");
+  gst_vorbis_tag_add (list, "PERFORMER", "Perfoo");
+  gst_vorbis_tag_add (list, "COPYRIGHT", "Copyfoo");
+  gst_vorbis_tag_add (list, "DESCRIPTION", "Descoo");
+  gst_vorbis_tag_add (list, "LICENSE", "Licoo");
+  gst_vorbis_tag_add (list, "LICENSE",
+      "http://creativecommons.org/licenses/by/3.0/");
+  gst_vorbis_tag_add (list, "LOCATION", "Bristol, UK");
+  gst_vorbis_tag_add (list, "ORGANIZATION", "Orgoo");
+  gst_vorbis_tag_add (list, "GENRE", "Goo");
+  gst_vorbis_tag_add (list, "CONTACT", "Coo");
+  gst_vorbis_tag_add (list, "COMMENT", "Stroodle is good");
+  gst_vorbis_tag_add (list, "COMMENT", "Peroxysulfid stroodles the brain");
+
+  gst_vorbis_tag_add (list, "TRACKNUMBER", "5");
+  gst_vorbis_tag_add (list, "TRACKTOTAL", "77");
+  gst_vorbis_tag_add (list, "DISCNUMBER", "1");
+  gst_vorbis_tag_add (list, "DISCTOTAL", "2");
+  gst_vorbis_tag_add (list, "DATE", "1954-12-31");
+
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_TITLE, "Too");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_ALBUM, "Aoo");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_ARTIST, "Alboo");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_PERFORMER, "Perfoo");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_COPYRIGHT, "Copyfoo");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_DESCRIPTION, "Descoo");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_LICENSE, "Licoo");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_LICENSE_URI,
+      "http://creativecommons.org/licenses/by/3.0/");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_LOCATION, "Bristol, UK");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_ORGANIZATION, "Orgoo");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_GENRE, "Goo");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_CONTACT, "Coo");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_COMMENT,
+      "Peroxysulfid stroodles the brain");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_COMMENT, "Stroodle is good");
+  ASSERT_TAG_LIST_HAS_UINT (list, GST_TAG_TRACK_NUMBER, 5);
+  ASSERT_TAG_LIST_HAS_UINT (list, GST_TAG_TRACK_COUNT, 77);
+  ASSERT_TAG_LIST_HAS_UINT (list, GST_TAG_ALBUM_VOLUME_NUMBER, 1);
+  ASSERT_TAG_LIST_HAS_UINT (list, GST_TAG_ALBUM_VOLUME_COUNT, 2);
+
+  {
+    GDate *date = NULL;
+
+    fail_unless (gst_tag_list_get_date (list, GST_TAG_DATE, &date));
+    fail_unless (date != NULL);
+    fail_unless (g_date_get_day (date) == 31);
+    fail_unless (g_date_get_month (date) == G_DATE_DECEMBER);
+    fail_unless (g_date_get_year (date) == 1954);
+
+    g_date_free (date);
+  }
+
+  /* unknown vorbis comments should go into a GST_TAG_EXTENDED_COMMENT */
+  gst_vorbis_tag_add (list, "CoEdSub_ID", "98172AF-973-10-B");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_EXTENDED_COMMENT,
+      "CoEdSub_ID=98172AF-973-10-B");
+  gst_vorbis_tag_add (list, "RuBuWuHash", "1337BA42F91");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_EXTENDED_COMMENT,
+      "RuBuWuHash=1337BA42F91");
+
+  gst_vorbis_tag_add (list, "REPLAYGAIN_REFERENCE_LOUDNESS", "89.");
+  ASSERT_TAG_LIST_HAS_DOUBLE (list, GST_TAG_REFERENCE_LEVEL, 89.);
+  gst_vorbis_tag_add (list, "REPLAYGAIN_TRACK_GAIN", "+12.36");
+  ASSERT_TAG_LIST_HAS_DOUBLE (list, GST_TAG_TRACK_GAIN, +12.36);
+  gst_vorbis_tag_add (list, "REPLAYGAIN_TRACK_PEAK", "0.96349");
+  ASSERT_TAG_LIST_HAS_DOUBLE (list, GST_TAG_TRACK_PEAK, 0.96349);
+  gst_vorbis_tag_add (list, "REPLAYGAIN_ALBUM_GAIN", "+10.12");
+  ASSERT_TAG_LIST_HAS_DOUBLE (list, GST_TAG_ALBUM_GAIN, +10.12);
+  /* now check that we can parse floating point numbers with any separator
+   * (',' or '.') regardless of the current locale */
+  gst_vorbis_tag_add (list, "REPLAYGAIN_ALBUM_PEAK", "0,98107");
+  ASSERT_TAG_LIST_HAS_DOUBLE (list, GST_TAG_ALBUM_PEAK, 0.98107);
+  gst_vorbis_tag_add (list, "LICENSE", "http://foo.com/license-1.html");
+
+  /* make sure we can convert back and forth without loss */
+  {
+    GstTagList *new_list, *even_newer_list;
+    GstBuffer *buf, *buf2;
+    gchar *vendor_id = NULL;
+
+    buf = gst_tag_list_to_vorbiscomment_buffer (list,
+        (const guint8 *) "\003vorbis", 7, "libgstunittest");
+    fail_unless (buf != NULL);
+    new_list = gst_tag_list_from_vorbiscomment_buffer (buf,
+        (const guint8 *) "\003vorbis", 7, &vendor_id);
+    fail_unless (new_list != NULL);
+    fail_unless (vendor_id != NULL);
+    g_free (vendor_id);
+    vendor_id = NULL;
+
+    GST_LOG ("new_list = %" GST_PTR_FORMAT, new_list);
+    fail_unless (taglists_are_equal (list, new_list));
+
+    buf2 = gst_tag_list_to_vorbiscomment_buffer (new_list,
+        (const guint8 *) "\003vorbis", 7, "libgstunittest");
+    fail_unless (buf2 != NULL);
+    even_newer_list = gst_tag_list_from_vorbiscomment_buffer (buf2,
+        (const guint8 *) "\003vorbis", 7, &vendor_id);
+    fail_unless (even_newer_list != NULL);
+    fail_unless (vendor_id != NULL);
+    g_free (vendor_id);
+    vendor_id = NULL;
+
+    GST_LOG ("even_newer_list = %" GST_PTR_FORMAT, even_newer_list);
+    fail_unless (taglists_are_equal (new_list, even_newer_list));
+
+    gst_tag_list_free (new_list);
+    gst_tag_list_free (even_newer_list);
+    gst_buffer_unref (buf);
+    gst_buffer_unref (buf2);
+  }
+
+  /* there can only be one language per taglist ... */
+  gst_tag_list_free (list);
+  list = gst_tag_list_new ();
+  gst_vorbis_tag_add (list, "LANGUAGE", "fr");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_LANGUAGE_CODE, "fr");
+
+  gst_tag_list_free (list);
+  list = gst_tag_list_new ();
+  gst_vorbis_tag_add (list, "LANGUAGE", "[fr]");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_LANGUAGE_CODE, "fr");
+
+  gst_tag_list_free (list);
+  list = gst_tag_list_new ();
+  gst_vorbis_tag_add (list, "LANGUAGE", "French [fr]");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_LANGUAGE_CODE, "fr");
+
+  gst_tag_list_free (list);
+  list = gst_tag_list_new ();
+  gst_vorbis_tag_add (list, "LANGUAGE", "[eng] English");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_LANGUAGE_CODE, "eng");
+
+  gst_tag_list_free (list);
+  list = gst_tag_list_new ();
+  gst_vorbis_tag_add (list, "LANGUAGE", "eng");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_LANGUAGE_CODE, "eng");
+
+  gst_tag_list_free (list);
+  list = gst_tag_list_new ();
+  gst_vorbis_tag_add (list, "LANGUAGE", "[eng]");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_LANGUAGE_CODE, "eng");
+
+  /* free-form *sigh* */
+  gst_tag_list_free (list);
+  list = gst_tag_list_new ();
+  gst_vorbis_tag_add (list, "LANGUAGE", "English");
+  ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_LANGUAGE_CODE, "English");
+
+  /* now, while we still have a taglist, test _to_vorbiscomment_buffer() */
+  {
+    GstBuffer *buf1, *buf2;
+
+    ASSERT_CRITICAL (gst_tag_list_to_vorbiscomment_buffer (NULL,
+            (const guint8 *) "x", 1, "x"));
+
+    buf1 = gst_tag_list_to_vorbiscomment_buffer (list, NULL, 0, NULL);
+    fail_unless (buf1 != NULL);
+
+    buf2 = gst_tag_list_to_vorbiscomment_buffer (list,
+        (const guint8 *) "foo", 3, NULL);
+    fail_unless (buf2 != NULL);
+
+    fail_unless (memcmp (GST_BUFFER_DATA (buf1), GST_BUFFER_DATA (buf2) + 3,
+            GST_BUFFER_SIZE (buf1)) == 0);
+
+    gst_buffer_unref (buf1);
+    gst_buffer_unref (buf2);
+  }
+
+  gst_tag_list_free (list);
+
+  /* make sure gst_tag_list_from_vorbiscomment_buffer() works with an
+   * empty ID (for Speex) */
+  {
+    const guint8 speex_comments_buf1[] = { 0x03, 0x00, 0x00, 0x00, 'f', 'o',
+      'o', 0x00, 0x00, 0x00, 0x00
+    };
+    GstBuffer *buf;
+    gchar *vendor = NULL;
+
+    buf = gst_buffer_new ();
+    GST_BUFFER_DATA (buf) = (guint8 *) speex_comments_buf1;
+    GST_BUFFER_SIZE (buf) = sizeof (speex_comments_buf1);
+
+    /* make sure it doesn't memcmp over the end of the buffer */
+    fail_unless (gst_tag_list_from_vorbiscomment_buffer (buf,
+            (const guint8 *) "averylongstringbrownfoxjumpoverthefence", 39,
+            &vendor) == NULL);
+    fail_unless (vendor == NULL);
+
+    /* make sure it bails out if the ID doesn't match */
+    fail_unless (gst_tag_list_from_vorbiscomment_buffer (buf,
+            (guint8 *) "short", 4, &vendor) == NULL);
+    fail_unless (vendor == NULL);
+
+    /* now read properly */
+    list = gst_tag_list_from_vorbiscomment_buffer (buf, NULL, 0, &vendor);
+    fail_unless (vendor != NULL);
+    fail_unless_equals_string (vendor, "foo");
+    fail_unless (list != NULL);
+    fail_unless (gst_structure_n_fields ((GstStructure *) list) == 0);
+    g_free (vendor);
+    gst_tag_list_free (list);
+
+    /* now again without vendor */
+    list = gst_tag_list_from_vorbiscomment_buffer (buf, NULL, 0, NULL);
+    fail_unless (list != NULL);
+    fail_unless (gst_structure_n_fields ((GstStructure *) list) == 0);
+    gst_tag_list_free (list);
+
+    gst_buffer_unref (buf);
+  }
+
+  /* the same with an ID */
+  {
+    const guint8 vorbis_comments_buf[] = { 0x03, 'v', 'o', 'r', 'b', 'i', 's',0x03, 0x00, 0x00, 0x00, 'f', 'o', 'o', 0x01, 0x00, 0x00, 0x00, 14 /*strlen ("ARTIST=foo bar")*/, 0x00, 0x00, 0x00, 'A', 'R', 'T', 'I', 'S','T', '=', 'f', 'o', 'o', ' ', 'b', 'a', 'r'};
+  //const guint8 vorbis_comments_buf[] = { 'a'};
+    GstBuffer *buf;
+    gchar *vendor = NULL;
+
+    buf = gst_buffer_new ();
+    GST_BUFFER_DATA (buf) = (guint8 *) vorbis_comments_buf;
+    GST_BUFFER_SIZE (buf) = sizeof (vorbis_comments_buf);
+
+    /* make sure it doesn't memcmp over the end of the buffer */
+    fail_unless (gst_tag_list_from_vorbiscomment_buffer (buf,
+            (const guint8 *) "averylongstringbrownfoxjumpoverthefence", 39,
+            &vendor) == NULL);
+    fail_unless (vendor == NULL);
+
+    /* make sure it bails out if the ID doesn't match */
+    fail_unless (gst_tag_list_from_vorbiscomment_buffer (buf,
+            (guint8 *) "short", 4, &vendor) == NULL);
+    fail_unless (vendor == NULL);
+
+    /* now read properly */
+    list = gst_tag_list_from_vorbiscomment_buffer (buf,
+        (guint8 *) "\003vorbis", 7, &vendor);
+    fail_unless (vendor != NULL);
+    fail_unless_equals_string (vendor, "foo");
+    fail_unless (list != NULL);
+    fail_unless (gst_structure_n_fields ((GstStructure *) list) == 1);
+    ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_ARTIST, "foo bar");
+    g_free (vendor);
+    gst_tag_list_free (list);
+
+    /* now again without vendor */
+    list = gst_tag_list_from_vorbiscomment_buffer (buf,
+        (guint8 *) "\003vorbis", 7, NULL);
+    fail_unless (list != NULL);
+    fail_unless (gst_structure_n_fields ((GstStructure *) list) == 1);
+    ASSERT_TAG_LIST_HAS_STRING (list, GST_TAG_ARTIST, "foo bar");
+    gst_tag_list_free (list);
+
+    gst_buffer_unref (buf);
+  }
+
+  /* check date with time */
+  {
+    GDate *date = NULL;
+
+    list = gst_tag_list_new ();
+    gst_vorbis_tag_add (list, "DATE", "2006-09-25 22:02:38");
+
+    fail_unless (gst_tag_list_get_date_index (list, GST_TAG_DATE, 0, &date));
+    fail_unless (date != NULL);
+    fail_unless (g_date_get_day (date) == 25);
+    fail_unless (g_date_get_month (date) == G_DATE_SEPTEMBER);
+    fail_unless (g_date_get_year (date) == 2006);
+
+    g_date_free (date);
+    gst_tag_list_free (list);
+  }
+
+  /* check date with month/day of 00-00 */
+  {
+    GDate *date = NULL;
+
+    list = gst_tag_list_new ();
+    gst_vorbis_tag_add (list, "DATE", "1992-00-00");
+
+    fail_unless (gst_tag_list_get_date_index (list, GST_TAG_DATE, 0, &date));
+    fail_unless (date != NULL);
+    fail_unless (g_date_get_year (date) == 1992);
+
+    g_date_free (date);
+    gst_tag_list_free (list);
+  }
+
+  /* check date with valid month, but day of 00 */
+  {
+    GDate *date = NULL;
+
+    list = gst_tag_list_new ();
+    gst_vorbis_tag_add (list, "DATE", "1992-05-00");
+
+    fail_unless (gst_tag_list_get_date_index (list, GST_TAG_DATE, 0, &date));
+    fail_unless (date != NULL);
+    fail_unless (g_date_get_year (date) == 1992);
+    fail_unless (g_date_get_month (date) == G_DATE_MAY);
+
+    g_date_free (date);
+    gst_tag_list_free (list);
+  }
+  std_log(LOG_FILENAME_LINE, "Test Successful");
+  create_xml(0);
+}
+
+
+
+void test_id3_tags()
+{
+  guint i;
+
+  xmlfile = "test_id3_tags";
+  std_log(LOG_FILENAME_LINE, "Test Started test_id3_tags");
+  fail_unless (gst_tag_id3_genre_count () > 0);
+
+  for (i = 0; i < gst_tag_id3_genre_count (); ++i) {
+    const gchar *genre;
+
+    genre = gst_tag_id3_genre_get (i);
+    fail_unless (genre != NULL);
+  }
+
+  {
+    /* TODO: GstTagList *gst_tag_list_new_from_id3v1 (const guint8 *data) */
+  }
+
+  /* gst_tag_from_id3_tag */
+  fail_unless (gst_tag_from_id3_tag ("TALB") != NULL);
+  ASSERT_CRITICAL (gst_tag_from_id3_tag (NULL));
+  fail_unless (gst_tag_from_id3_tag ("R2D2") == NULL);
+  fail_unless_equals_string (gst_tag_from_id3_tag ("WCOP"),
+      GST_TAG_COPYRIGHT_URI);
+
+  /* gst_tag_from_id3_user_tag */
+  ASSERT_CRITICAL (gst_tag_from_id3_user_tag (NULL, "foo"));
+  ASSERT_CRITICAL (gst_tag_from_id3_user_tag ("foo", NULL));
+  fail_unless (gst_tag_from_id3_user_tag ("R2D2", "R2D2") == NULL);
+
+  /* gst_tag_to_id3_tag */
+  ASSERT_CRITICAL (gst_tag_to_id3_tag (NULL));
+  fail_unless (gst_tag_to_id3_tag ("R2D2") == NULL);
+  fail_unless (gst_tag_to_id3_tag (GST_TAG_ARTIST) != NULL);
+  fail_unless_equals_string (gst_tag_to_id3_tag (GST_TAG_COPYRIGHT_URI),
+      "WCOP");
+
+  fail_unless (GST_TYPE_TAG_IMAGE_TYPE != 0);
+  fail_unless (g_type_name (GST_TYPE_TAG_IMAGE_TYPE) != NULL);
+  std_log(LOG_FILENAME_LINE, "Test Successful");
+  create_xml(0);
+}
+
+
+
+
+void test_id3v1_utf8_tag()
+{
+  const guint8 id3v1[128] = {
+    /* marker */
+    'T', 'A', 'G',
+    /* title (30 bytes) */
+    'D', 0xc3, 0xad, 'v', 'k', 'a', ' ', 's',
+    ' ', 'p', 'e', 'r', 'l', 'a', 'm', 'i',
+    ' ', 'v', 'e', ' ', 'v', 'l', 'a', 's',
+    'e', 'c', 'h', 0, 0, 0,
+    /* artist (30 bytes) */
+    'A', 'l', 'e', 0xc5, 0xa1, ' ', 'B', 'r', 'i', 'c', 'h', 't', 'a',
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+    /* album (30 bytes) */
+    'B', 'e', 's', 't', ' ', 'o', 'f', ' ', '(', 'P', 'r', 'o', 's', 't',
+    0xc4, 0x9b, ' ', 0xc3, 0xba, 0xc5, 0xbe, 'a', 's', 'n', 0xc3, 0xbd, ')',
+    0, 0, 0,
+    /* year (4 bytes) */
+    '2', '0', '0', '0',
+    /* comment (28 bytes) */
+    '-', '-', '-', ' ', 0xc4, 0x8d, 'e', 's', 'k', 0xc3, 0xa9, ' ', 'p',
+    0xc3, 0xad, 's', 'n', 'i', 0xc4, 0x8d, 'k', 'y', ' ', '-', '-', '-',
+    0, 0,
+    /* track number */
+    0, 0,
+    /* genre */
+    0x11
+  };
+  GstTagList *tags;
+  GDate *d;
+  gchar *s;
+
+  xmlfile = "test_id3v1_utf8_tag";
+  std_log(LOG_FILENAME_LINE, "Test Started test_id3v1_utf8_tag");
+  
+  /* set this, to make sure UTF-8 strings are really interpreted properly
+   * as UTF-8, regardless of the locale set */
+  g_setenv ("GST_ID3V1_TAG_ENCODING", "WINDOWS-1250", TRUE);
+
+  tags = gst_tag_list_new_from_id3v1 (id3v1);
+  fail_unless (tags != NULL);
+
+  GST_LOG ("Got tags: %" GST_PTR_FORMAT, tags);
+
+  s = NULL;
+  fail_unless (gst_tag_list_get_string (tags, GST_TAG_TITLE, &s));
+  fail_unless (s != NULL);
+  fail_unless_equals_string (s, "Dívka s perlami ve vlasech");
+  g_free (s);
+
+  s = NULL;
+  fail_unless (gst_tag_list_get_string (tags, GST_TAG_ARTIST, &s));
+  fail_unless (s != NULL);
+  fail_unless_equals_string (s, "Aleš Brichta");
+  g_free (s);
+
+  s = NULL;
+  fail_unless (gst_tag_list_get_string (tags, GST_TAG_ALBUM, &s));
+  fail_unless (s != NULL);
+  fail_unless_equals_string (s, "Best of (Prostě úžasný)");
+  g_free (s);
+
+  d = NULL;
+  fail_unless (gst_tag_list_get_date (tags, GST_TAG_DATE, &d));
+  fail_unless (d != NULL);
+  fail_unless_equals_int (g_date_get_year (d), 2000);
+  g_date_free (d);
+  d = NULL;
+
+  gst_tag_list_free (tags);
+
+  g_unsetenv ("GST_ID3V1_TAG_ENCODING");
+  std_log(LOG_FILENAME_LINE, "Test Successful");
+  create_xml(0);
+}
+
+
+
+void
+tag_suite (void)
+{
+test_muscibrainz_tag_registration();
+test_parse_extended_comment();
+test_vorbis_tags();
+test_id3_tags();
+test_id3v1_utf8_tag();
+}
+
+void (*fn[]) (void) = {
+test_muscibrainz_tag_registration,
+test_parse_extended_comment,
+test_vorbis_tags,
+test_id3_tags,
+test_id3v1_utf8_tag
+};
+
+char *args[] = {
+"test_muscibrainz_tag_registration",
+"test_parse_extended_comment",
+"test_vorbis_tags",
+"test_id3_tags",
+"test_id3v1_utf8_tag"
+};
+
+GST_CHECK_MAIN (gst_tag);
+
+#if 0
+int main()
+    {
+    gst_check_init (NULL, NULL);
+    test_muscibrainz_tag_registration();
+    test_parse_extended_comment();
+    test_vorbis_tags();
+    test_id3_tags();
+    test_id3v1_utf8_tag();
+    }
+    
+#endif