1 files changed, 93 insertions, 0 deletions
diff --git a/libgweather/tools/test_sun_moon.c b/libgweather/tools/test_sun_moon.c
new file mode 100644
index 0000000..6cdfb50
--- /dev/null
+++ b/libgweather/tools/test_sun_moon.c
@@ -0,0 +1,93 @@
+/* test_sun_moon.c: Test for Sun and Moon computations
+ *
+ * SPDX-FileCopyrightText: 2009 Frank Solensky
+ * SPDX-FileCopyrightText: 2011, 2012, 2015 Giovanni Campagna
+ * SPDX-License-Identifier: GPL-2.0-or-later
+ */
+
+#include "config.h"
+
+#include <glib.h>
+#include <string.h>
+#include <time.h>
+
+#include "gweather-weather.h"
+#include "gweather-private.h"
+
+int
+main (int argc, char **argv)
+{
+    GWeatherInfo   *info;
+    GOptionContext* context;
+    GError*         error = NULL;
+    gdouble         latitude, longitude;
+    gchar*          gtime = NULL;
+    GDate           gdate;
+    struct tm       tm;
+    time_t          phases[4];
+    const GOptionEntry entries[] = {
+	{ "latitude", 0, 0, G_OPTION_ARG_DOUBLE, &latitude,
+	  "observer's latitude in degrees north", NULL },
+	{ "longitude", 0, 0,  G_OPTION_ARG_DOUBLE, &longitude,
+	  "observer's longitude in degrees east", NULL },
+	{ "time", 0, 0, G_OPTION_ARG_STRING, &gtime,
+	  "time in seconds from Unix epoch", NULL },
+	{ NULL }
+    };
+
+    context = g_option_context_new ("- test libgweather sun/moon calculations");
+    g_option_context_add_main_entries (context, entries, NULL);
+    g_option_context_parse (context, &argc, &argv, &error);
+
+    if (error) {
+	perror (error->message);
+	return error->code;
+    }
+    else if (latitude < -90. || latitude > 90.) {
+	perror ("invalid latitude: should be [-90 .. 90]");
+	return -1;
+    } else if (longitude < -180. || longitude > 180.) {
+	perror ("invalid longitude: should be [-180 .. 180]");
+	return -1;
+    }
+
+    info = g_object_new (GWEATHER_TYPE_INFO, NULL);
+    info->location.latitude = DEGREES_TO_RADIANS(latitude);
+    info->location.longitude = DEGREES_TO_RADIANS(longitude);
+    info->location.latlon_valid = TRUE;
+    info->valid = TRUE;
+
+    if (gtime != NULL) {
+	//	printf(" gtime=%s\n", gtime);
+	g_date_set_parse(&gdate, gtime);
+	g_date_to_struct_tm(&gdate, &tm);
+	info->current_time = mktime(&tm);
+    } else {
+	info->current_time = time(NULL);
+    }
+
+    _gweather_info_ensure_sun (info);
+    _gweather_info_ensure_moon (info);
+
+    printf ("  Latitude %7.3f %c  Longitude %7.3f %c for %s  All times UTC\n",
+	    fabs(latitude), (latitude >= 0. ? 'N' : 'S'),
+	    fabs(longitude), (longitude >= 0. ? 'E' : 'W'),
+	    asctime(gmtime(&info->current_time)));
+    printf("daytime:   %s\n", gweather_info_is_daytime(info) ? "yes" : "no");
+    printf("sunrise:   %s",
+	   (info->sunriseValid ? ctime(&info->sunrise) : "(invalid)\n"));
+    printf("sunset:    %s",
+	   (info->sunsetValid ? ctime(&info->sunset)  : "(invalid)\n"));
+    if (info->moonValid) {
+	printf("moonphase: %g\n", info->moonphase);
+	printf("moonlat:   %g\n", info->moonlatitude);
+
+	if (gweather_info_get_upcoming_moonphases(info, phases)) {
+	    printf("    New:   %s", asctime(gmtime(&phases[0])));
+	    printf("    1stQ:  %s", asctime(gmtime(&phases[1])));
+	    printf("    Full:  %s", asctime(gmtime(&phases[2])));
+	    printf("    3rdQ:  %s", asctime(gmtime(&phases[3])));
+	}
+    }
+    return 0;
+}