TEST ()

{

  /* Makes sure it is possible to save a small roi in a buffer with a

   * bigger extent

   */

  GeglBuffer    *buffer = NULL;

  GeglRectangle  extent = {-40, -40, 80, 80};

  GeglRectangle  roi = {0, 0, 20, 20};

  gchar         *path = NULL;

  test_start ();

  /* Create */

  buffer = gegl_buffer_new (&extent, babl_format ("Y float"));

  fill (buffer, 0.5);

  path = g_build_filename (g_get_tmp_dir (), "gegl-buffer-tmp.gegl", NULL);

  /* Save */

  gegl_buffer_save (buffer, path, &roi;;

  g_object_unref (buffer);

  buffer = NULL;

  /* Load */

  buffer = gegl_buffer_load (path);

  print_buffer (buffer);

  g_object_unref (buffer);

  buffer = NULL;

  g_unlink (path);

  g_free (path);

  test_end ();

}