tests/check/libs/profile.c

   1 /* GStreamer unit test for gstprofile
   2  *
   3  * Copyright (C) <2009> Edward Hervey <edward.hervey@collabora.co.uk>
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Library General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2 of the License, or (at your option) any later version.
   9  *
  10  * This library is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Library General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Library General Public
  16  * License along with this library; if not, write to the
  17  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  18  * Boston, MA 02111-1307, USA.
  19  */
  20
  21 #ifdef HAVE_CONFIG_H
  22 #include "config.h"
  23 #endif
  24
  25 /* #include <fcntl.h> */
  26 #include <unistd.h>
  27 #include <glib.h>
  28 #include <glib/gstdio.h>
  29 #include <gst/check/gstcheck.h>
  30
  31 #include <gst/pbutils/encoding-profile.h>
  32 #include <gst/pbutils/encoding-target.h>
  33
  34 #define CHECK_PROFILE(profile, name, description, format, preset, presence, restriction) \
  35   {                                                                     \
  36   fail_if(profile == NULL);                                             \
  37   fail_unless_equals_string (gst_encoding_profile_get_name (profile), name); \
  38   fail_unless_equals_string (gst_encoding_profile_get_description (profile), description); \
  39   fail_unless (gst_caps_is_equal (gst_encoding_profile_get_format (profile), format)); \
  40   fail_unless_equals_string (gst_encoding_profile_get_preset (profile), preset); \
  41   fail_unless_equals_int (gst_encoding_profile_get_presence (profile), presence); \
  42   fail_unless (gst_caps_is_equal (gst_encoding_profile_get_restriction (profile), restriction)); \
  43   }
  44
  45 GST_START_TEST (test_profile_creation)
  46 {
  47   GstEncodingProfile *encprof;
  48   GstEncodingAudioProfile *audioprof;
  49   GstEncodingVideoProfile *videoprof;
  50   GstCaps *ogg, *vorbis, *theora;
  51   GstCaps *test1, *test2;
  52
  53   ogg = gst_caps_new_simple ("application/ogg", NULL);
  54   vorbis = gst_caps_new_simple ("audio/x-vorbis", NULL);
  55   theora = gst_caps_new_simple ("video/x-theora", NULL);
  56
  57   encprof = (GstEncodingProfile *) gst_encoding_container_profile_new ((gchar *)
  58       "ogg-theora-vorbis", "dumb-profile", ogg, (gchar *) "dumb-preset");
  59   CHECK_PROFILE (encprof, "ogg-theora-vorbis", "dumb-profile", ogg,
  60       "dumb-preset", 0, NULL);
  61
  62   audioprof = gst_encoding_audio_profile_new (vorbis, (gchar *) "HQ", NULL, 0);
  63   CHECK_PROFILE ((GstEncodingProfile *) audioprof, NULL, NULL, vorbis, "HQ", 0,
  64       NULL);
  65
  66   videoprof = gst_encoding_video_profile_new (theora, (gchar *) "HQ", NULL, 0);
  67   CHECK_PROFILE ((GstEncodingProfile *) videoprof, NULL, NULL, theora, "HQ",
  68       0, NULL);
  69
  70   fail_unless (gst_encoding_container_profile_add_profile (
  71           (GstEncodingContainerProfile *) encprof,
  72           (GstEncodingProfile *) audioprof));
  73   fail_unless (gst_encoding_container_profile_add_profile (
  74           (GstEncodingContainerProfile *) encprof,
  75           (GstEncodingProfile *) videoprof));
  76
  77   /* Test caps */
  78   test1 = gst_caps_from_string ("video/x-theora; audio/x-vorbis");
  79   test2 = gst_encoding_profile_get_input_caps (encprof);
  80   fail_unless (gst_caps_is_equal (test1, test2));
  81   gst_caps_unref (test1);
  82   gst_caps_unref (test2);
  83
  84   gst_encoding_profile_unref (encprof);
  85   gst_caps_unref (ogg);
  86   gst_caps_unref (theora);
  87   gst_caps_unref (vorbis);
  88 }
  89
  90 GST_END_TEST;
  91
  92
  93 GST_START_TEST (test_profile_input_caps)
  94 {
  95   GstEncodingProfile *sprof;
  96   GstCaps *vorbis;
  97   GstCaps *out, *restriction, *test1;
  98
  99   vorbis = gst_caps_new_simple ("audio/x-vorbis", NULL);
 100
 101   /* Simple case, no restriction */
 102   sprof = (GstEncodingProfile *)
 103       gst_encoding_audio_profile_new (vorbis, NULL, NULL, 0);
 104   fail_if (sprof == NULL);
 105
 106   out = gst_encoding_profile_get_input_caps (sprof);
 107   fail_if (out == NULL);
 108   fail_unless (gst_caps_is_equal (out, vorbis));
 109   gst_caps_unref (out);
 110   gst_encoding_profile_unref (sprof);
 111
 112   /* One simple restriction */
 113   restriction = gst_caps_from_string ("audio/x-raw-int,channels=2,rate=44100");
 114   test1 = gst_caps_from_string ("audio/x-vorbis,channels=2,rate=44100");
 115   fail_if (restriction == NULL);
 116
 117   sprof = (GstEncodingProfile *)
 118       gst_encoding_audio_profile_new (vorbis, NULL, restriction, 0);
 119   fail_if (sprof == NULL);
 120
 121   out = gst_encoding_profile_get_input_caps (sprof);
 122   fail_if (out == NULL);
 123   GST_DEBUG ("got caps %" GST_PTR_FORMAT, out);
 124   fail_unless (gst_caps_is_equal (out, test1));
 125   gst_caps_unref (out);
 126   gst_caps_unref (restriction);
 127   gst_caps_unref (test1);
 128   gst_encoding_profile_unref (sprof);
 129
 130   gst_caps_unref (vorbis);
 131 }
 132
 133 GST_END_TEST;
 134
 135
 136 GST_START_TEST (test_target_naming)
 137 {
 138   GstEncodingTarget *target;
 139
 140   /* NULL values */
 141   ASSERT_CRITICAL (target = gst_encoding_target_new (NULL, NULL, NULL, NULL));
 142   fail_if (target != NULL);
 143   ASSERT_CRITICAL (target =
 144       gst_encoding_target_new ("donkey", NULL, NULL, NULL));
 145   fail_if (target != NULL);
 146   ASSERT_CRITICAL (target =
 147       gst_encoding_target_new (NULL, "donkey", NULL, NULL));
 148   fail_if (target != NULL);
 149   ASSERT_CRITICAL (target =
 150       gst_encoding_target_new (NULL, NULL, "donkey", NULL));
 151   fail_if (target != NULL);
 152
 153   /* Name and Category validation */
 154
 155   /* empty non-NULL strings */
 156   fail_if (gst_encoding_target_new ("", "valid", "description", NULL) != NULL);
 157   fail_if (gst_encoding_target_new ("valid", "", "description", NULL) != NULL);
 158
 159   /* don't start with a lower case ASCII character */
 160   fail_if (gst_encoding_target_new ("A", "valid", "description", NULL) != NULL);
 161   fail_if (gst_encoding_target_new ("3", "valid", "description", NULL) != NULL);
 162   fail_if (gst_encoding_target_new ("-", "valid", "description", NULL) != NULL);
 163   fail_if (gst_encoding_target_new ("!", "valid", "description", NULL) != NULL);
 164   fail_if (gst_encoding_target_new (" ", "valid", "description", NULL) != NULL);
 165   fail_if (gst_encoding_target_new ("valid", "A", "description", NULL) != NULL);
 166   fail_if (gst_encoding_target_new ("valid", "3", "description", NULL) != NULL);
 167   fail_if (gst_encoding_target_new ("valid", "-", "description", NULL) != NULL);
 168   fail_if (gst_encoding_target_new ("valid", "!", "description", NULL) != NULL);
 169   fail_if (gst_encoding_target_new ("valid", " ", "description", NULL) != NULL);
 170
 171   /* Starting with anything else is valid */
 172   target = gst_encoding_target_new ("a", "valid", "description", NULL);
 173   fail_if (target == NULL);
 174   gst_encoding_target_unref (target);
 175   target = gst_encoding_target_new ("z", "valid", "description", NULL);
 176   fail_if (target == NULL);
 177   gst_encoding_target_unref (target);
 178   target = gst_encoding_target_new ("valid", "a", "description", NULL);
 179   fail_if (target == NULL);
 180   gst_encoding_target_unref (target);
 181   target = gst_encoding_target_new ("valid", "z", "description", NULL);
 182   fail_if (target == NULL);
 183   gst_encoding_target_unref (target);
 184
 185   /* only inner valid characters are lower-case ASCII letters *OR* digits *OR* hyphens */
 186   fail_if (gst_encoding_target_new ("aA", "valid", "description",
 187           NULL) != NULL);
 188   fail_if (gst_encoding_target_new ("a!", "valid", "description",
 189           NULL) != NULL);
 190   fail_if (gst_encoding_target_new ("space donkeys", "valid", "description",
 191           NULL) != NULL);
 192   fail_if (gst_encoding_target_new ("howaboutùnicode", "valid", "description",
 193           NULL) != NULL);
 194   fail_if (gst_encoding_target_new ("valid", "aA", "description",
 195           NULL) != NULL);
 196   fail_if (gst_encoding_target_new ("valid", "a!", "description",
 197           NULL) != NULL);
 198
 199   target =
 200       gst_encoding_target_new ("donkey-4-ever", "valid", "description", NULL);
 201   fail_if (target == NULL);
 202   gst_encoding_target_unref (target);
 203   target =
 204       gst_encoding_target_new ("valid", "donkey-4-ever", "description", NULL);
 205   fail_if (target == NULL);
 206   gst_encoding_target_unref (target);
 207
 208 }
 209
 210 GST_END_TEST;
 211
 212 static GstEncodingTarget *
 213 create_saveload_target (const gchar * targetname)
 214 {
 215   GstEncodingTarget *target;
 216   GstEncodingProfile *profile, *sprof;
 217   GstCaps *caps, *caps2;
 218
 219   GST_DEBUG ("Creating target");
 220
 221   target = gst_encoding_target_new (targetname, "herding",
 222       "Plenty of pony glitter profiles", NULL);
 223   caps = gst_caps_from_string ("animal/x-pony");
 224   profile =
 225       (GstEncodingProfile *) gst_encoding_container_profile_new ("pony",
 226       "I don't want a description !", caps, NULL);
 227   gst_caps_unref (caps);
 228   gst_encoding_target_add_profile (target, profile);
 229
 230   caps = gst_caps_from_string ("audio/x-pony-song,pretty=True");
 231   caps2 = gst_caps_from_string ("audio/x-raw-int,channels=1,rate=44100");
 232   sprof =
 233       (GstEncodingProfile *) gst_encoding_audio_profile_new (caps, NULL, caps2,
 234       1);
 235   gst_encoding_container_profile_add_profile ((GstEncodingContainerProfile *)
 236       profile, sprof);
 237   gst_caps_unref (caps);
 238   gst_caps_unref (caps2);
 239
 240   caps = gst_caps_from_string ("video/x-glitter,sparkling=True");
 241   caps2 =
 242       gst_caps_from_string
 243       ("video/x-raw-yuv,width=640,height=480,framerate=15/1");
 244   sprof = (GstEncodingProfile *)
 245       gst_encoding_video_profile_new (caps, "seriously glittery", caps2, 0);
 246   gst_encoding_video_profile_set_variableframerate ((GstEncodingVideoProfile *)
 247       sprof, TRUE);
 248   gst_encoding_container_profile_add_profile ((GstEncodingContainerProfile *)
 249       profile, sprof);
 250   gst_caps_unref (caps);
 251   gst_caps_unref (caps2);
 252
 253   return target;
 254 }
 255
 256 GST_START_TEST (test_target_profile)
 257 {
 258   GstEncodingTarget *target;
 259   GstEncodingProfile *prof;
 260
 261   target = create_saveload_target ("myponytarget");
 262
 263   /* NULL isn't a valid profile name */
 264   ASSERT_CRITICAL (gst_encoding_target_get_profile (target, NULL));
 265
 266   /* try finding a profile that doesn't exist */
 267   fail_if (gst_encoding_target_get_profile (target,
 268           "no-really-does-not-exist"));
 269
 270   /* try finding a profile that exists */
 271   prof = gst_encoding_target_get_profile (target, "pony");
 272   fail_if (prof == NULL);
 273
 274   gst_encoding_profile_unref (prof);
 275   gst_encoding_target_unref (target);
 276 }
 277
 278 GST_END_TEST;
 279
 280 GST_START_TEST (test_saving_profile)
 281 {
 282   GstEncodingTarget *orig, *loaded = NULL;
 283   GstEncodingProfile *proforig, *profloaded;
 284   gchar *profile_file_name;
 285
 286   /* Create and store a target */
 287   orig = create_saveload_target ("myponytarget2");
 288   GST_DEBUG ("Saving target 'myponytarget2'");
 289   fail_unless (gst_encoding_target_save (orig, NULL));
 290
 291   /* Check we can load it */
 292   profile_file_name =
 293       g_build_filename (g_get_user_data_dir (), "gstreamer-0.11",
 294       "encoding-profiles", "herding", "myponytarget2.gep", NULL);
 295   GST_DEBUG ("Loading target from '%s'", profile_file_name);
 296   loaded = gst_encoding_target_load_from_file (profile_file_name, NULL);
 297   fail_unless (loaded != NULL);
 298   g_free (profile_file_name);
 299
 300   GST_DEBUG ("Checking targets are equal");
 301   /* Check targets are identical */
 302   /* 1. at the target level */
 303   fail_unless_equals_string (gst_encoding_target_get_name (orig),
 304       gst_encoding_target_get_name (loaded));
 305   fail_unless_equals_string (gst_encoding_target_get_category (orig),
 306       gst_encoding_target_get_category (loaded));
 307   fail_unless_equals_string (gst_encoding_target_get_description (orig),
 308       gst_encoding_target_get_description (loaded));
 309   fail_unless_equals_int (g_list_length ((GList *)
 310           gst_encoding_target_get_profiles (loaded)), 1);
 311
 312   /* 2. at the profile level */
 313   profloaded =
 314       (GstEncodingProfile *) gst_encoding_target_get_profiles (loaded)->data;
 315   proforig =
 316       (GstEncodingProfile *) gst_encoding_target_get_profiles (orig)->data;
 317
 318   fail_unless_equals_int (G_TYPE_FROM_INSTANCE (profloaded),
 319       G_TYPE_FROM_INSTANCE (proforig));
 320   GST_DEBUG ("Comparing loaded:%p to original:%p", profloaded, proforig);
 321   fail_unless (gst_encoding_profile_is_equal (profloaded, proforig));
 322
 323   gst_encoding_target_unref (orig);
 324   gst_encoding_target_unref (loaded);
 325 }
 326
 327 GST_END_TEST;
 328
 329 static void
 330 test_individual_target (GstEncodingTarget * target)
 331 {
 332   GstEncodingProfile *prof;
 333   GstCaps *tmpcaps, *tmpcaps2;
 334   GstEncodingProfile *sprof1, *sprof2;
 335
 336   GST_DEBUG ("Checking the target properties");
 337   /* Check the target  */
 338   fail_unless_equals_string (gst_encoding_target_get_name (target),
 339       "myponytarget");
 340   fail_unless_equals_string (gst_encoding_target_get_category (target),
 341       "herding");
 342   fail_unless_equals_string (gst_encoding_target_get_description (target),
 343       "Plenty of pony glitter profiles");
 344
 345   GST_DEBUG ("Checking the number of profiles the target contains");
 346   fail_unless_equals_int (g_list_length ((GList *)
 347           gst_encoding_target_get_profiles (target)), 1);
 348
 349
 350   GST_DEBUG ("Checking the container profile");
 351   /* Check the profile */
 352   prof = (GstEncodingProfile *) gst_encoding_target_get_profiles (target)->data;
 353   tmpcaps = gst_caps_from_string ("animal/x-pony");
 354   CHECK_PROFILE (prof, "pony", "I don't want a description !", tmpcaps, NULL, 0,
 355       0);
 356   gst_caps_unref (tmpcaps);
 357
 358   GST_DEBUG ("Checking the container profile has 2 stream profiles");
 359   /* Check the stream profiles */
 360   fail_unless_equals_int (g_list_length ((GList *)
 361           gst_encoding_container_profile_get_profiles (
 362               (GstEncodingContainerProfile *) prof)), 2);
 363
 364   GST_DEBUG ("Checking the container profile has the audio/x-pony-song stream");
 365   tmpcaps = gst_caps_from_string ("audio/x-pony-song,pretty=True");
 366   tmpcaps2 = gst_caps_from_string ("audio/x-raw-int,channels=1,rate=44100");
 367   sprof1 =
 368       (GstEncodingProfile *) gst_encoding_audio_profile_new (tmpcaps, NULL,
 369       tmpcaps2, 1);
 370   fail_unless (gst_encoding_container_profile_contains_profile (
 371           (GstEncodingContainerProfile *) prof, sprof1));
 372   gst_encoding_profile_unref (sprof1);
 373   gst_caps_unref (tmpcaps);
 374   gst_caps_unref (tmpcaps2);
 375
 376   GST_DEBUG ("Checking the container profile has the video//x-glitter stream");
 377   tmpcaps = gst_caps_from_string ("video/x-glitter,sparkling=True");
 378   tmpcaps2 =
 379       gst_caps_from_string
 380       ("video/x-raw-yuv,width=640,height=480,framerate=15/1");
 381   sprof2 = (GstEncodingProfile *)
 382       gst_encoding_video_profile_new (tmpcaps, "seriously glittery", tmpcaps2,
 383       0);
 384   gst_encoding_video_profile_set_variableframerate ((GstEncodingVideoProfile *)
 385       sprof2, TRUE);
 386   fail_unless (gst_encoding_container_profile_contains_profile (
 387           (GstEncodingContainerProfile *) prof, sprof2));
 388   gst_encoding_profile_unref (sprof2);
 389   gst_caps_unref (tmpcaps);
 390   gst_caps_unref (tmpcaps2);
 391 }
 392
 393 GST_START_TEST (test_loading_profile)
 394 {
 395   GstEncodingTarget *target;
 396   gchar *profile_file_name;
 397   GstEncodingProfile *profile;
 398   GstCaps *tmpcaps;
 399   GValue strvalue = { 0, };
 400   GValue objectvalue = { 0, };
 401
 402   /* Test loading using short method and all arguments */
 403   target = gst_encoding_target_load ("myponytarget", "herding", NULL);
 404   fail_unless (target != NULL);
 405   test_individual_target (target);
 406   gst_encoding_target_unref (target);
 407
 408   /* Test loading using short method and no category */
 409   target = gst_encoding_target_load ("myponytarget", NULL, NULL);
 410   fail_unless (target != NULL);
 411   test_individual_target (target);
 412   gst_encoding_target_unref (target);
 413
 414   /* Test loading using fully specified path */
 415   profile_file_name =
 416       g_build_filename (g_get_user_data_dir (), "gstreamer-0.11",
 417       "encoding-profiles", "herding", "myponytarget.gep", NULL);
 418
 419   GST_DEBUG ("Loading target from '%s'", profile_file_name);
 420   target = gst_encoding_target_load_from_file (profile_file_name, NULL);
 421   g_free (profile_file_name);
 422   fail_unless (target != NULL);
 423   test_individual_target (target);
 424   gst_encoding_target_unref (target);
 425
 426   /* Test getting the profiles directly
 427    * First without category */
 428   profile = gst_encoding_profile_find ("myponytarget", "pony", NULL);
 429   fail_unless (profile != NULL);
 430   tmpcaps = gst_caps_from_string ("animal/x-pony");
 431   CHECK_PROFILE (profile, "pony", "I don't want a description !", tmpcaps, NULL,
 432       0, 0);
 433   gst_caps_unref (tmpcaps);
 434   gst_encoding_profile_unref (profile);
 435
 436   /* Then with a specific category */
 437   profile = gst_encoding_profile_find ("myponytarget", "pony", "herding");
 438   fail_unless (profile != NULL);
 439   tmpcaps = gst_caps_from_string ("animal/x-pony");
 440   CHECK_PROFILE (profile, "pony", "I don't want a description !", tmpcaps, NULL,
 441       0, 0);
 442   gst_caps_unref (tmpcaps);
 443   gst_encoding_profile_unref (profile);
 444
 445   /* For my next trick, I will need the assistance of a GValue */
 446   g_value_init (&strvalue, G_TYPE_STRING);
 447   g_value_init (&objectvalue, GST_TYPE_ENCODING_PROFILE);
 448   g_value_set_static_string (&strvalue, "myponytarget/pony");
 449   fail_unless (g_value_transform (&strvalue, &objectvalue));
 450   profile = (GstEncodingProfile *) g_value_dup_object (&objectvalue);
 451   fail_if (profile == NULL);
 452   g_value_unset (&strvalue);
 453   g_value_unset (&objectvalue);
 454   tmpcaps = gst_caps_from_string ("animal/x-pony");
 455   CHECK_PROFILE (profile, "pony", "I don't want a description !", tmpcaps, NULL,
 456       0, 0);
 457   gst_caps_unref (tmpcaps);
 458   gst_encoding_profile_unref (profile);
 459
 460   /* Let's go crazy for error detection */
 461   fail_if (gst_encoding_profile_find ("myponytarget", "whales", NULL));
 462   fail_if (gst_encoding_profile_find ("myponytarget", "whales", "herding"));
 463   fail_if (gst_encoding_profile_find ("myponytarget", "", NULL));
 464   fail_if (gst_encoding_profile_find ("", "pony", NULL));
 465 }
 466
 467 GST_END_TEST;
 468
 469 GST_START_TEST (test_target_list)
 470 {
 471   GList *categories;
 472   GList *targets;
 473   GList *tmp;
 474
 475   /* Make sure we get our test category in the available categories */
 476   categories = gst_encoding_list_available_categories ();
 477   fail_if (categories == NULL);
 478   fail_if (g_list_find_custom (categories, "herding",
 479           (GCompareFunc) g_strcmp0) == NULL);
 480   g_list_foreach (categories, (GFunc) g_free, NULL);
 481   g_list_free (categories);
 482
 483   /* Try getting all available targets with a specified category */
 484   targets = gst_encoding_list_all_targets ("herding");
 485   fail_if (targets == NULL);
 486   for (tmp = targets; tmp; tmp = tmp->next) {
 487     GstEncodingTarget *target = (GstEncodingTarget *) tmp->data;
 488     if (!g_strcmp0 (gst_encoding_target_get_name (target), "myponytarget"))
 489       break;
 490   }
 491   /* If tmp is NULL, it means we iterated the whole list without finding
 492    * our target */
 493   fail_if (tmp == NULL);
 494   g_list_foreach (targets, (GFunc) g_object_unref, NULL);
 495   g_list_free (targets);
 496
 497   /* Try getting all available targets without a specified category */
 498   targets = gst_encoding_list_all_targets (NULL);
 499   fail_if (targets == NULL);
 500   for (tmp = targets; tmp; tmp = tmp->next) {
 501     GstEncodingTarget *target = (GstEncodingTarget *) tmp->data;
 502     if (!g_strcmp0 (gst_encoding_target_get_name (target), "myponytarget"))
 503       break;
 504   }
 505   /* If tmp is NULL, it means we iterated the whole list without finding
 506    * our target */
 507   fail_if (tmp == NULL);
 508   g_list_foreach (targets, (GFunc) g_object_unref, NULL);
 509   g_list_free (targets);
 510 }
 511
 512 GST_END_TEST;
 513
 514
 515 static const gchar *profile_string = "\
 516 [GStreamer Encoding Target]\n\
 517 name=myponytarget\n\
 518 category=herding\n\
 519 description=Plenty of pony glitter profiles\n\
 520 \n\
 521 [profile-pony1]\n\
 522 name=pony\n\
 523 type=container\n\
 524 description=I don't want a description !\n\
 525 format=animal/x-pony\n\
 526 \n\
 527 [streamprofile-pony11]\n\
 528 parent=pony\n\
 529 type=audio\n\
 530 format=audio/x-pony-song,pretty=True\n\
 531 restriction=audio/x-raw-int,channels=1,rate=44100\n\
 532 presence=1\n\
 533 \n\
 534 [streamprofile-pony12]\n\
 535 parent=pony\n\
 536 type=video\n\
 537 preset=seriously glittery\n\
 538 format=video/x-glitter,sparkling=True\n\
 539 restriction=video/x-raw-yuv,width=640,height=480,framerate=15/1\n\
 540 presence=0\n\
 541 variableframerate=true\n\
 542 ";
 543
 544 static void
 545 remove_profile_file (void)
 546 {
 547   gchar *profile_file_name;
 548
 549   profile_file_name =
 550       g_build_filename (g_get_user_data_dir (), "gstreamer-0.11",
 551       "encoding-profiles", "herding", "myponytarget.gep", NULL);
 552   g_unlink (profile_file_name);
 553   g_free (profile_file_name);
 554   profile_file_name =
 555       g_build_filename (g_get_user_data_dir (), "gstreamer-0.11",
 556       "encoding-profiles", "herding", "myponytarget2.gep", NULL);
 557   g_unlink (profile_file_name);
 558   g_free (profile_file_name);
 559 }
 560
 561 static void
 562 create_profile_file (void)
 563 {
 564   gchar *profile_file_name;
 565   gchar *profile_dir;
 566   GError *error = NULL;
 567
 568   profile_dir =
 569       g_build_filename (g_get_user_data_dir (), "gstreamer-0.11",
 570       "encoding-profiles", "herding", NULL);
 571   profile_file_name =
 572       g_build_filename (g_get_user_data_dir (), "gstreamer-0.11",
 573       "encoding-profiles", "herding", "myponytarget.gep", NULL);
 574   g_mkdir_with_parents (profile_dir, S_IRUSR | S_IWUSR | S_IXUSR);
 575   if (!g_file_set_contents (profile_file_name, profile_string,
 576           strlen (profile_string), &error))
 577     GST_WARNING ("Couldn't write contents to file : %s", error->message);
 578   g_free (profile_dir);
 579   g_free (profile_file_name);
 580 }
 581
 582 static void
 583 test_setup (void)
 584 {
 585   create_profile_file ();
 586 }
 587
 588 static void
 589 test_teardown (void)
 590 {
 591   remove_profile_file ();
 592 }
 593
 594
 595 static Suite *
 596 profile_suite (void)
 597 {
 598   Suite *s = suite_create ("profile support library");
 599   TCase *tc_chain = tcase_create ("general");
 600   gboolean can_write;
 601   gchar *gst_dir;
 602
 603   /* cehck if we can create profiles */
 604   gst_dir = g_build_filename (g_get_user_data_dir (), "gstreamer-0.11", NULL);
 605   can_write = (g_access (gst_dir, R_OK | W_OK | X_OK) == 0);
 606   g_free (gst_dir);
 607
 608   suite_add_tcase (s, tc_chain);
 609
 610   tcase_add_test (tc_chain, test_profile_creation);
 611   tcase_add_test (tc_chain, test_profile_input_caps);
 612   tcase_add_test (tc_chain, test_target_naming);
 613   tcase_add_test (tc_chain, test_target_profile);
 614   if (can_write) {
 615     tcase_add_test (tc_chain, test_loading_profile);
 616     tcase_add_test (tc_chain, test_saving_profile);
 617     tcase_add_test (tc_chain, test_target_list);
 618   }
 619
 620   tcase_add_unchecked_fixture (tc_chain, test_setup, test_teardown);
 621
 622   return s;
 623 }
 624
 625 GST_CHECK_MAIN (profile);