/* test-recur-weekly.c - Test weekly recurrences.
   Copyright (C) 2006 Neal H. Walfield <neal@walfield.org>

   This file is part of GPE.

   GPE is free software; you can redistribute it and/or modify it
   under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2, or (at your option)
   any later version.

   GPE 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 General Public
   License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111, USA. */

int do_test (int argc, char *argv[]);

#include "test-skeleton.h"

#include <stdio.h>
#include <error.h>
#include "gpe/event-db.h"

static int fail;

#define TIME_TO_STRING(t, buffer) \
  ({ \
    struct tm _tm; \
    time_t __t = t; \
    localtime_r (&__t, &_tm); \
    strftime (buffer, sizeof (buffer), "%a %F", &_tm); \
   })

int
do_test (int argc, char *argv[])
{
  char *file;
  int fd;
  /* 2006-06-21 00:00:00 UTC.  */
  time_t start = 1150848000;
  setenv ("TZ", "UTC", 1);
  tzset ();

  /* Initialize the g_object system.  */
  g_type_init ();

  fd = create_temp_file (".", &file);
  /* event_db_new will open it itself.  */
  close (fd);

  GError *err = NULL;
  EventDB *edb = event_db_new (file, &err);
  if (! edb)
    error (1, 0, "evend_db_new: %s", err->message);

  void edb_error (EventDB *edb, const char *error)
    {
      puts (error);
    }
  g_signal_connect (G_OBJECT (edb),
		    "error", G_CALLBACK (edb_error), NULL);

  /* Every four weeks, ten occurrences.  */
  Event *ev = event_new (edb, NULL, NULL, NULL);
  event_set_summary (ev, "every 4 weeks, 10 occurrences", NULL);
  event_set_recurrence_start (ev, start, NULL);
  event_set_duration (ev, 60, NULL);
  event_set_recurrence_type (ev, RECUR_WEEKLY, NULL);
  event_set_recurrence_increment (ev, 4, NULL);
  event_set_recurrence_count (ev, 10, NULL);
  g_object_unref (ev);

  /* Every 3 weeks until 10 weeks from START.  */
  ev = event_new (edb, NULL, NULL, NULL);
  char buffer[200];
  time_t e = start + 10 * 7 * 24 * 60 * 60;
  TIME_TO_STRING (e, buffer);
  char summary[200];
  sprintf (summary, "untimed, S,M,F every 3 weeks until %s", buffer);
  event_set_summary (ev, summary, NULL);
  event_set_recurrence_start (ev, start, NULL);
  event_set_untimed (ev, TRUE, NULL);
  event_set_duration (ev, 0, NULL);
  event_set_recurrence_type (ev, RECUR_WEEKLY, NULL);
  event_set_recurrence_increment (ev, 3, NULL);
  event_set_recurrence_end (ev, e, NULL);
  /* But only sundays, mondays and fridays.  */
  GSList *byday = g_slist_prepend (NULL, g_strdup ("SU"));
  byday = g_slist_prepend (byday, g_strdup ("MO"));
  byday = g_slist_prepend (byday, g_strdup ("FR"));
  event_set_recurrence_byday (ev, byday, NULL);
  g_object_unref (ev);

  int i;
  for (i = -2; i < 52; i ++)
    {
      time_t s = start + i * 7 * 24 * 60 * 60;
      time_t e = s + 7 * 24 * 60 * 60 - 1;

      GSList *list = event_db_list_for_period (edb, s, e, NULL);

      char buffer[200];
      TIME_TO_STRING (s, buffer);
      printf ("Week %d: ", i);
      fputs (buffer, stdout);
      fputs (" until ", stdout);
      TIME_TO_STRING (e, buffer);
      puts (buffer);

      GSList *l;
      list = g_slist_sort (list, event_compare_func);
      for (l = list; l; l = l->next)
	{
	  Event *ev = EVENT (l->data);
	  TIME_TO_STRING (event_get_start (ev), buffer);
	  printf ("%s: %s\n", buffer, event_get_summary (ev, NULL));
	}

      event_list_unref (list);
    }

  return fail;
}