tests/check/gst/gsttag.c

   1 /*
   2  * Copyright (C) 2003 Benjamin Otte <in7y118@public.uni-hamburg.de>
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Library General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Library General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Library General Public
  15  * License along with this library; if not, write to the
  16  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  17  * Boston, MA 02111-1307, USA.
  18  */
  19
  20 #include <gst/check/gstcheck.h>
  21
  22 #include <string.h>
  23
  24 /* multiple artists are possible (unfixed) */
  25 #define UTAG GST_TAG_ARTIST
  26 #define UNFIXED1 "Britney Spears"
  27 #define UNFIXED2 "Evanescence"
  28 #define UNFIXED3 "AC/DC"
  29 #define UNFIXED4 "The Prodigy"
  30
  31 /* license is fixed */
  32 #define FTAG GST_TAG_LICENSE
  33 #define FIXED1 "Lesser General Public License"
  34 #define FIXED2 "Microsoft End User License Agreement"
  35 #define FIXED3 "Mozilla Public License"
  36 #define FIXED4 "Public Domain"
  37
  38 /* checks that a tag contains the given values and not more values */
  39 static void
  40 check_tags (const GstTagList * list, const gchar * tag, const gchar * value,
  41     ...)
  42 {
  43   va_list args;
  44   gchar *str;
  45   guint i = 0;
  46
  47   va_start (args, value);
  48   while (value != NULL) {
  49     fail_unless (gst_tag_list_get_string_index (list, tag, i, &str));
  50     fail_unless (strcmp (value, str) == 0);
  51     g_free (str);
  52
  53     value = va_arg (args, gchar *);
  54     i++;
  55   }
  56   fail_unless (i == gst_tag_list_get_tag_size (list, tag));
  57   va_end (args);
  58 }
  59
  60 static void
  61 check_tags_empty (const GstTagList * list)
  62 {
  63   GST_DEBUG ("taglist: %" GST_PTR_FORMAT, list);
  64   fail_unless ((list == NULL) || (gst_tag_list_is_empty (list)));
  65 }
  66
  67 #define NEW_LIST_FIXED(mode)                                    \
  68 G_STMT_START {                                                  \
  69   if (list) gst_tag_list_unref (list);                          \
  70   list = gst_tag_list_new_empty ();                             \
  71   gst_tag_list_add (list, mode, FTAG, FIXED1, FTAG, FIXED2,     \
  72                     FTAG, FIXED3, FTAG, FIXED4, NULL);          \
  73   mark_point();                                                 \
  74 } G_STMT_END;
  75
  76 #define NEW_LIST_UNFIXED(mode)                                  \
  77 G_STMT_START {                                                  \
  78   if (list) gst_tag_list_unref (list);                          \
  79   list = gst_tag_list_new_empty ();                             \
  80   gst_tag_list_add (list, mode, UTAG, UNFIXED1, UTAG, UNFIXED2, \
  81                     UTAG, UNFIXED3, UTAG, UNFIXED4, NULL);      \
  82   mark_point();                                                 \
  83 } G_STMT_END;
  84
  85 #define NEW_LISTS_FIXED(mode)                                   \
  86 G_STMT_START {                                                  \
  87   if (list) gst_tag_list_unref (list);                          \
  88   list = gst_tag_list_new_empty ();                             \
  89   gst_tag_list_add (list, GST_TAG_MERGE_APPEND, FTAG, FIXED1,   \
  90                     FTAG, FIXED2, NULL);                        \
  91   if (list2) gst_tag_list_unref (list2);                        \
  92   list2 = gst_tag_list_new_empty ();                            \
  93   gst_tag_list_add (list2, GST_TAG_MERGE_APPEND, FTAG, FIXED3,  \
  94                     FTAG, FIXED4, NULL);                        \
  95   if (merge) gst_tag_list_unref (merge);                        \
  96   merge = gst_tag_list_merge (list, list2, mode);               \
  97   mark_point();                                                 \
  98 } G_STMT_END;
  99
 100 #define NEW_LISTS_UNFIXED(mode)                                 \
 101 G_STMT_START {                                                  \
 102   if (list) gst_tag_list_unref (list);                          \
 103   list = gst_tag_list_new_empty ();                             \
 104   gst_tag_list_add (list, GST_TAG_MERGE_APPEND, UTAG, UNFIXED1, \
 105                     UTAG, UNFIXED2, NULL);                      \
 106   if (list2) gst_tag_list_unref (list2);                        \
 107   list2 = gst_tag_list_new_empty ();                            \
 108   gst_tag_list_add (list2, GST_TAG_MERGE_APPEND, UTAG, UNFIXED3,\
 109                     UTAG, UNFIXED4, NULL);                      \
 110   if (merge) gst_tag_list_unref (merge);                        \
 111   merge = gst_tag_list_merge (list, list2, mode);               \
 112   mark_point();                                                 \
 113 } G_STMT_END;
 114
 115 #define NEW_LISTS_EMPTY1(mode)                                  \
 116 G_STMT_START {                                                  \
 117   if (list) gst_tag_list_unref (list);                          \
 118   list = NULL;                                                  \
 119   if (list2) gst_tag_list_unref (list2);                        \
 120   list2 = gst_tag_list_new_empty ();                            \
 121   gst_tag_list_add (list2, GST_TAG_MERGE_APPEND, FTAG, FIXED3,  \
 122                     FTAG, FIXED4, NULL);                        \
 123   if (merge) gst_tag_list_unref (merge);                        \
 124   merge = gst_tag_list_merge (list, list2, mode);               \
 125   mark_point();                                                 \
 126 } G_STMT_END;
 127
 128 #define NEW_LISTS_EMPTY2(mode)                                  \
 129 G_STMT_START {                                                  \
 130   if (list) gst_tag_list_unref (list);                          \
 131   list = gst_tag_list_new_empty ();                             \
 132   gst_tag_list_add (list, GST_TAG_MERGE_APPEND, FTAG, FIXED1,   \
 133                     FTAG, FIXED2, NULL);                        \
 134   if (list2) gst_tag_list_unref (list2);                        \
 135   list2 = NULL;                                                 \
 136   if (merge) gst_tag_list_unref (merge);                        \
 137   merge = gst_tag_list_merge (list, list2, mode);               \
 138   mark_point();                                                 \
 139 } G_STMT_END;
 140
 141
 142 GST_START_TEST (test_basics)
 143 {
 144   /* make sure the assumptions work */
 145   fail_unless (gst_tag_is_fixed (FTAG));
 146   fail_unless (!gst_tag_is_fixed (UTAG));
 147   /* we check string here only */
 148   fail_unless (gst_tag_get_type (FTAG) == G_TYPE_STRING);
 149   fail_unless (gst_tag_get_type (UTAG) == G_TYPE_STRING);
 150 }
 151
 152 GST_END_TEST
 153 GST_START_TEST (test_add)
 154 {
 155   GstTagList *list = NULL;
 156
 157   /* check additions */
 158   /* unfixed */
 159   NEW_LIST_UNFIXED (GST_TAG_MERGE_REPLACE_ALL);
 160   check_tags (list, UTAG, UNFIXED4, NULL);
 161   NEW_LIST_UNFIXED (GST_TAG_MERGE_REPLACE);
 162   check_tags (list, UTAG, UNFIXED4, NULL);
 163   NEW_LIST_UNFIXED (GST_TAG_MERGE_PREPEND);
 164   check_tags (list, UTAG, UNFIXED4, UNFIXED3, UNFIXED2, UNFIXED1, NULL);
 165   NEW_LIST_UNFIXED (GST_TAG_MERGE_APPEND);
 166   check_tags (list, UTAG, UNFIXED1, UNFIXED2, UNFIXED3, UNFIXED4, NULL);
 167   NEW_LIST_UNFIXED (GST_TAG_MERGE_KEEP);
 168   check_tags (list, UTAG, UNFIXED1, NULL);
 169   NEW_LIST_UNFIXED (GST_TAG_MERGE_KEEP_ALL);
 170   check_tags (list, UTAG, NULL);
 171
 172   /* fixed */
 173   NEW_LIST_FIXED (GST_TAG_MERGE_REPLACE_ALL);
 174   check_tags (list, FTAG, FIXED4, NULL);
 175   NEW_LIST_FIXED (GST_TAG_MERGE_REPLACE);
 176   check_tags (list, FTAG, FIXED4, NULL);
 177   NEW_LIST_FIXED (GST_TAG_MERGE_PREPEND);
 178   check_tags (list, FTAG, FIXED4, NULL);
 179   NEW_LIST_FIXED (GST_TAG_MERGE_APPEND);
 180   check_tags (list, FTAG, FIXED1, NULL);
 181   NEW_LIST_FIXED (GST_TAG_MERGE_KEEP);
 182   check_tags (list, FTAG, FIXED1, NULL);
 183   NEW_LIST_FIXED (GST_TAG_MERGE_KEEP_ALL);
 184   check_tags (list, FTAG, NULL);
 185
 186   /* clean up */
 187   if (list)
 188     gst_tag_list_unref (list);
 189 }
 190
 191 GST_END_TEST
 192 GST_START_TEST (test_merge)
 193 {
 194   GstTagList *list = NULL, *list2 = NULL, *merge = NULL;
 195
 196   /* check merging */
 197   /* unfixed */
 198   GST_DEBUG ("unfixed");
 199   NEW_LISTS_UNFIXED (GST_TAG_MERGE_REPLACE_ALL);
 200   check_tags (merge, UTAG, UNFIXED3, UNFIXED4, NULL);
 201   NEW_LISTS_UNFIXED (GST_TAG_MERGE_REPLACE);
 202   check_tags (merge, UTAG, UNFIXED3, UNFIXED4, NULL);
 203   NEW_LISTS_UNFIXED (GST_TAG_MERGE_PREPEND);
 204   check_tags (merge, UTAG, UNFIXED3, UNFIXED4, UNFIXED1, UNFIXED2, NULL);
 205   NEW_LISTS_UNFIXED (GST_TAG_MERGE_APPEND);
 206   check_tags (merge, UTAG, UNFIXED1, UNFIXED2, UNFIXED3, UNFIXED4, NULL);
 207   NEW_LISTS_UNFIXED (GST_TAG_MERGE_KEEP);
 208   check_tags (merge, UTAG, UNFIXED1, UNFIXED2, NULL);
 209   NEW_LISTS_UNFIXED (GST_TAG_MERGE_KEEP_ALL);
 210   check_tags (merge, UTAG, UNFIXED1, UNFIXED2, NULL);
 211
 212   /* fixed */
 213   GST_DEBUG ("fixed");
 214   NEW_LISTS_FIXED (GST_TAG_MERGE_REPLACE_ALL);
 215   check_tags (merge, FTAG, FIXED3, NULL);
 216   NEW_LISTS_FIXED (GST_TAG_MERGE_REPLACE);
 217   check_tags (merge, FTAG, FIXED3, NULL);
 218   NEW_LISTS_FIXED (GST_TAG_MERGE_PREPEND);
 219   check_tags (merge, FTAG, FIXED3, NULL);
 220   NEW_LISTS_FIXED (GST_TAG_MERGE_APPEND);
 221   check_tags (merge, FTAG, FIXED1, NULL);
 222   NEW_LISTS_FIXED (GST_TAG_MERGE_KEEP);
 223   check_tags (merge, FTAG, FIXED1, NULL);
 224   NEW_LISTS_FIXED (GST_TAG_MERGE_KEEP_ALL);
 225   check_tags (merge, FTAG, FIXED1, NULL);
 226
 227   /* first list empty */
 228   GST_DEBUG ("first empty");
 229   NEW_LISTS_EMPTY1 (GST_TAG_MERGE_REPLACE_ALL);
 230   check_tags (merge, FTAG, FIXED3, NULL);
 231   NEW_LISTS_EMPTY1 (GST_TAG_MERGE_REPLACE);
 232   check_tags (merge, FTAG, FIXED3, NULL);
 233   NEW_LISTS_EMPTY1 (GST_TAG_MERGE_PREPEND);
 234   check_tags (merge, FTAG, FIXED3, NULL);
 235   NEW_LISTS_EMPTY1 (GST_TAG_MERGE_APPEND);
 236   check_tags (merge, FTAG, FIXED3, NULL);
 237   NEW_LISTS_EMPTY1 (GST_TAG_MERGE_KEEP);
 238   check_tags (merge, FTAG, FIXED3, NULL);
 239   NEW_LISTS_EMPTY1 (GST_TAG_MERGE_KEEP_ALL);
 240   check_tags_empty (merge);
 241
 242   /* second list empty */
 243   GST_DEBUG ("second empty");
 244   NEW_LISTS_EMPTY2 (GST_TAG_MERGE_REPLACE_ALL);
 245   check_tags_empty (merge);
 246   NEW_LISTS_EMPTY2 (GST_TAG_MERGE_REPLACE);
 247   check_tags (merge, FTAG, FIXED1, NULL);
 248   NEW_LISTS_EMPTY2 (GST_TAG_MERGE_PREPEND);
 249   check_tags (merge, FTAG, FIXED1, NULL);
 250   NEW_LISTS_EMPTY2 (GST_TAG_MERGE_APPEND);
 251   check_tags (merge, FTAG, FIXED1, NULL);
 252   NEW_LISTS_EMPTY2 (GST_TAG_MERGE_KEEP);
 253   check_tags (merge, FTAG, FIXED1, NULL);
 254   NEW_LISTS_EMPTY2 (GST_TAG_MERGE_KEEP_ALL);
 255   check_tags (merge, FTAG, FIXED1, NULL);
 256
 257   /* clean up */
 258   if (list)
 259     gst_tag_list_unref (list);
 260   if (list2)
 261     gst_tag_list_unref (list2);
 262   if (merge)
 263     gst_tag_list_unref (merge);
 264 }
 265
 266 GST_END_TEST
 267 GST_START_TEST (test_date_tags)
 268 {
 269   GstTagList *tag_list, *tag_list2;
 270   GDate *date, *date2;
 271   gchar *str;
 272
 273   date = g_date_new_dmy (14, 10, 2005);
 274   tag_list = gst_tag_list_new_empty ();
 275   gst_tag_list_add (tag_list, GST_TAG_MERGE_APPEND, GST_TAG_DATE, date, NULL);
 276
 277   str = gst_tag_list_to_string (tag_list);
 278   fail_if (str == NULL);
 279   fail_if (strstr (str, "2005-10-14") == NULL);
 280
 281   tag_list2 = gst_tag_list_new_from_string (str);
 282   fail_if (tag_list2 == NULL);
 283   fail_if (!gst_tag_list_get_date (tag_list2, GST_TAG_DATE, &date2));
 284   fail_unless (gst_tag_list_is_equal (tag_list2, tag_list));
 285   gst_tag_list_unref (tag_list2);
 286   g_free (str);
 287
 288   fail_if (g_date_compare (date, date2) != 0);
 289   fail_if (g_date_get_day (date) != 14);
 290   fail_if (g_date_get_month (date) != 10);
 291   fail_if (g_date_get_year (date) != 2005);
 292   fail_if (g_date_get_day (date2) != 14);
 293   fail_if (g_date_get_month (date2) != 10);
 294   fail_if (g_date_get_year (date2) != 2005);
 295   g_date_free (date2);
 296
 297   gst_tag_list_unref (tag_list);
 298   g_date_free (date);
 299 }
 300
 301 GST_END_TEST;
 302
 303 GST_START_TEST (test_type)
 304 {
 305   GstTagList *taglist;
 306
 307   taglist = gst_tag_list_new_empty ();
 308   fail_unless (GST_IS_TAG_LIST (taglist));
 309   gst_tag_list_unref (taglist);
 310
 311   /* this should be fine */
 312   fail_if (GST_IS_TAG_LIST (NULL));
 313
 314   /* check gst_tag_list_is_empty */
 315   ASSERT_CRITICAL (gst_tag_list_is_empty (NULL));
 316   taglist = gst_tag_list_new_empty ();
 317   fail_unless (gst_tag_list_is_empty (taglist));
 318   gst_tag_list_add (taglist, GST_TAG_MERGE_APPEND, GST_TAG_ARTIST, "JD", NULL);
 319   fail_if (gst_tag_list_is_empty (taglist));
 320   gst_tag_list_unref (taglist);
 321 }
 322
 323 GST_END_TEST;
 324
 325 GST_START_TEST (test_set_non_utf8_string)
 326 {
 327   GstTagList *taglist;
 328   guint8 foobar[2] = { 0xff, 0x00 };    /* not UTF-8 */
 329
 330   taglist = gst_tag_list_new_empty ();
 331   fail_unless (taglist != NULL);
 332
 333   ASSERT_WARNING (gst_tag_list_add (taglist, GST_TAG_MERGE_APPEND,
 334           GST_TAG_ARTIST, (gchar *) foobar, NULL));
 335
 336   /* That string field with a non-UTF8 string should not have been added */
 337   fail_unless (gst_tag_list_is_empty (taglist));
 338
 339   gst_tag_list_unref (taglist);
 340 }
 341
 342 GST_END_TEST;
 343
 344 GST_START_TEST (test_buffer_tags)
 345 {
 346   GstTagList *tags;
 347   GstBuffer *buf1, *buf2;
 348
 349   tags = gst_tag_list_new_empty ();
 350   buf1 = gst_buffer_new_and_alloc (222);
 351   buf2 = gst_buffer_new_and_alloc (100);
 352   gst_tag_list_add (tags, GST_TAG_MERGE_APPEND, GST_TAG_IMAGE, buf1,
 353       GST_TAG_PREVIEW_IMAGE, buf2, NULL);
 354   gst_buffer_unref (buf1);
 355   gst_buffer_unref (buf2);
 356
 357   buf1 = buf2 = NULL;
 358   fail_if (!gst_tag_list_get_buffer (tags, GST_TAG_IMAGE, &buf1));
 359   gst_buffer_unref (buf1);
 360   fail_if (!gst_tag_list_get_buffer (tags, GST_TAG_PREVIEW_IMAGE, &buf2));
 361   gst_buffer_unref (buf2);
 362
 363   fail_if (gst_tag_list_get_buffer_index (tags, GST_TAG_IMAGE, 1, &buf1));
 364   fail_if (gst_tag_list_get_buffer_index (tags, GST_TAG_IMAGE, 2, &buf1));
 365   fail_if (gst_tag_list_get_buffer_index (tags, GST_TAG_PREVIEW_IMAGE, 1,
 366           &buf1));
 367   fail_if (gst_tag_list_get_buffer_index (tags, GST_TAG_PREVIEW_IMAGE, 2,
 368           &buf1));
 369
 370   fail_if (!gst_tag_list_get_buffer_index (tags, GST_TAG_IMAGE, 0, &buf1));
 371   fail_if (!gst_tag_list_get_buffer_index (tags, GST_TAG_PREVIEW_IMAGE, 0,
 372           &buf2));
 373   fail_unless_equals_int (gst_buffer_get_size (buf1), 222);
 374   fail_unless_equals_int (gst_buffer_get_size (buf2), 100);
 375
 376   gst_buffer_unref (buf1);
 377   gst_buffer_unref (buf2);
 378
 379   gst_tag_list_unref (tags);
 380 }
 381
 382 GST_END_TEST;
 383
 384 GST_START_TEST (test_empty_tags)
 385 {
 386   GstTagList *tags;
 387
 388   /* only get g_warnings() with git */
 389   if (GST_VERSION_NANO != 1)
 390     return;
 391
 392   tags = gst_tag_list_new_empty ();
 393   ASSERT_WARNING (gst_tag_list_add (tags, GST_TAG_MERGE_APPEND,
 394           GST_TAG_ARTIST, NULL, NULL));
 395   ASSERT_WARNING (gst_tag_list_add (tags, GST_TAG_MERGE_APPEND,
 396           GST_TAG_ARTIST, "", NULL));
 397   gst_tag_list_add (tags, GST_TAG_MERGE_APPEND, GST_TAG_ARTIST, "xyz", NULL);
 398   gst_tag_list_unref (tags);
 399 }
 400
 401 GST_END_TEST;
 402
 403 GST_START_TEST (test_new_full)
 404 {
 405   GstTagList *tags;
 406   gchar *artist, *title;
 407   gdouble track_gain;
 408   guint track_num;
 409
 410   tags = gst_tag_list_new (GST_TAG_ARTIST, "Arty Ist",
 411       GST_TAG_TRACK_NUMBER, 9, GST_TAG_TRACK_GAIN, 4.242, GST_TAG_TITLE,
 412       "Title!", NULL);
 413
 414   fail_unless (gst_tag_list_get_string (tags, GST_TAG_ARTIST, &artist));
 415   fail_unless_equals_string (artist, "Arty Ist");
 416   fail_unless (gst_tag_list_get_string (tags, GST_TAG_TITLE, &title));
 417   fail_unless_equals_string (title, "Title!");
 418   fail_unless (gst_tag_list_get_uint (tags, GST_TAG_TRACK_NUMBER, &track_num));
 419   fail_unless_equals_int (track_num, 9);
 420   fail_unless (gst_tag_list_get_double (tags, GST_TAG_TRACK_GAIN, &track_gain));
 421   fail_unless_equals_float (track_gain, 4.242);
 422   fail_unless (tags != NULL);
 423
 424   gst_tag_list_unref (tags);
 425   g_free (artist);
 426   g_free (title);
 427 }
 428
 429 GST_END_TEST;
 430
 431 GST_START_TEST (test_merge_strings_with_comma)
 432 {
 433   GstTagList *tags;
 434   gchar *artists = NULL;
 435
 436   tags = gst_tag_list_new_empty ();
 437   gst_tag_list_add (tags, GST_TAG_MERGE_APPEND, GST_TAG_ARTIST, "Foo", NULL);
 438   gst_tag_list_add (tags, GST_TAG_MERGE_APPEND, GST_TAG_ARTIST, "Bar", NULL);
 439   gst_tag_list_add (tags, GST_TAG_MERGE_APPEND, GST_TAG_ARTIST, "Yay", NULL);
 440   gst_tag_list_get_string (tags, GST_TAG_ARTIST, &artists);
 441   fail_unless (artists != NULL);
 442   /* can't check for exact string since the comma separator is i18n-ed */
 443   fail_unless (strstr (artists, "Foo") != NULL);
 444   fail_unless (strstr (artists, "Bar") != NULL);
 445   fail_unless (strstr (artists, "Yay") != NULL);
 446   g_free (artists);
 447   gst_tag_list_unref (tags);
 448 }
 449
 450 GST_END_TEST;
 451
 452 GST_START_TEST (test_equal)
 453 {
 454   GstTagList *tags, *tags2;
 455   GstSample *sample1, *sample2, *sample11;
 456   GstBuffer *buf;
 457
 458   tags = gst_tag_list_new_empty ();
 459   gst_tag_list_add (tags, GST_TAG_MERGE_APPEND, GST_TAG_ARTIST, "Foo", NULL);
 460   gst_tag_list_add (tags, GST_TAG_MERGE_APPEND, GST_TAG_ARTIST, "Bar", NULL);
 461   gst_tag_list_add (tags, GST_TAG_MERGE_APPEND, GST_TAG_ARTIST, "Yay", NULL);
 462
 463   tags2 = gst_tag_list_new_empty ();
 464   fail_unless (!gst_tag_list_is_equal (tags2, tags));
 465   gst_tag_list_add (tags2, GST_TAG_MERGE_APPEND, GST_TAG_ARTIST, "Yay", NULL);
 466   fail_unless (!gst_tag_list_is_equal (tags2, tags));
 467   gst_tag_list_add (tags2, GST_TAG_MERGE_APPEND, GST_TAG_ARTIST, "Bar", NULL);
 468   fail_unless (!gst_tag_list_is_equal (tags2, tags));
 469   gst_tag_list_add (tags2, GST_TAG_MERGE_APPEND, GST_TAG_ARTIST, "Foo", NULL);
 470   fail_unless (gst_tag_list_is_equal (tags2, tags));
 471
 472   gst_tag_list_add (tags, GST_TAG_MERGE_APPEND, GST_TAG_REFERENCE_LEVEL,
 473       9.87654321, NULL);
 474   fail_unless (!gst_tag_list_is_equal (tags2, tags));
 475   gst_tag_list_add (tags2, GST_TAG_MERGE_APPEND, GST_TAG_REFERENCE_LEVEL,
 476       9.87654320, NULL);
 477   /* want these two double values to be equal despite minor differences */
 478   fail_unless (gst_tag_list_is_equal (tags2, tags));
 479
 480   /* want this to be unequal though, difference too large */
 481   gst_tag_list_add (tags2, GST_TAG_MERGE_REPLACE, GST_TAG_REFERENCE_LEVEL,
 482       9.87654310, NULL);
 483   fail_unless (!gst_tag_list_is_equal (tags2, tags));
 484
 485   gst_tag_list_unref (tags);
 486   gst_tag_list_unref (tags2);
 487
 488   /* samples */
 489   buf = gst_buffer_new_wrapped (g_strdup ("test 1-2-3"), 10);
 490   sample1 = gst_sample_new (buf, NULL, NULL, NULL);
 491   gst_buffer_unref (buf);
 492
 493   buf = gst_buffer_new_wrapped (g_strdup ("test 1-2-3"), 10);
 494   sample11 = gst_sample_new (buf, NULL, NULL, NULL);
 495   gst_buffer_unref (buf);
 496
 497   buf = gst_buffer_new_wrapped (g_strdup ("test 2-3-4-5"), 12);
 498   sample2 = gst_sample_new (buf, NULL, NULL, NULL);
 499   gst_buffer_unref (buf);
 500
 501   tags = gst_tag_list_new_empty ();
 502   gst_tag_list_add (tags, GST_TAG_MERGE_APPEND, GST_TAG_IMAGE, sample1, NULL);
 503
 504   tags2 = gst_tag_list_new_empty ();
 505   fail_unless (!gst_tag_list_is_equal (tags2, tags));
 506
 507   /* sample sample, should be very equal now */
 508   gst_tag_list_add (tags2, GST_TAG_MERGE_APPEND, GST_TAG_IMAGE, sample1, NULL);
 509   fail_unless (gst_tag_list_is_equal (tags2, tags));
 510   gst_tag_list_unref (tags2);
 511
 512   /* same buffer content, but different buffer instances, still rather equal */
 513   tags2 = gst_tag_list_new_empty ();
 514   gst_tag_list_add (tags2, GST_TAG_MERGE_APPEND, GST_TAG_IMAGE, sample11, NULL);
 515   fail_unless (gst_tag_list_is_equal (tags2, tags));
 516   gst_tag_list_unref (tags2);
 517
 518   /* different buffer content, should not be equal */
 519   tags2 = gst_tag_list_new_empty ();
 520   gst_tag_list_add (tags2, GST_TAG_MERGE_APPEND, GST_TAG_IMAGE, sample2, NULL);
 521   fail_unless (!gst_tag_list_is_equal (tags2, tags));
 522   gst_tag_list_unref (tags2);
 523
 524   gst_tag_list_unref (tags);
 525
 526   gst_sample_unref (sample1);
 527   gst_sample_unref (sample11);
 528   gst_sample_unref (sample2);
 529 }
 530
 531 GST_END_TEST;
 532
 533 GST_START_TEST (test_writability)
 534 {
 535   GstTagList *tags, *wtags;
 536
 537   tags = gst_tag_list_new_empty ();
 538   gst_tag_list_add (tags, GST_TAG_MERGE_APPEND, GST_TAG_ARTIST, "Foo", NULL);
 539
 540   /* take ref, should no longer be writable */
 541   gst_tag_list_ref (tags);
 542   ASSERT_CRITICAL (gst_tag_list_add (tags, GST_TAG_MERGE_APPEND,
 543           GST_TAG_ARTIST, "Bar", NULL));
 544
 545   wtags = gst_tag_list_make_writable (tags);
 546   /* should be ok now */
 547   gst_tag_list_add (wtags, GST_TAG_MERGE_APPEND, GST_TAG_ARTIST, "Bar", NULL);
 548   gst_tag_list_unref (wtags);
 549
 550   /* this too, since we dropped the second ref in make_writable */
 551   gst_tag_list_add (tags, GST_TAG_MERGE_APPEND, GST_TAG_ARTIST, "Bar", NULL);
 552   gst_tag_list_unref (tags);
 553 }
 554
 555 GST_END_TEST;
 556
 557 static Suite *
 558 gst_tag_suite (void)
 559 {
 560   Suite *s = suite_create ("GstTag");
 561   TCase *tc_chain = tcase_create ("general");
 562
 563   suite_add_tcase (s, tc_chain);
 564   tcase_add_test (tc_chain, test_basics);
 565   tcase_add_test (tc_chain, test_add);
 566   tcase_add_test (tc_chain, test_merge);
 567   tcase_add_test (tc_chain, test_merge_strings_with_comma);
 568   tcase_add_test (tc_chain, test_date_tags);
 569   tcase_add_test (tc_chain, test_type);
 570   tcase_add_test (tc_chain, test_set_non_utf8_string);
 571   tcase_add_test (tc_chain, test_buffer_tags);
 572   tcase_add_test (tc_chain, test_empty_tags);
 573   tcase_add_test (tc_chain, test_new_full);
 574   tcase_add_test (tc_chain, test_equal);
 575   tcase_add_test (tc_chain, test_writability);
 576
 577   return s;
 578 }
 579
 580 GST_CHECK_MAIN (gst_tag);