/*
 * Copyright (c) 2010-2011 Apple Inc. All rights reserved.
 *
 * @APPLE_APACHE_LICENSE_HEADER_START@
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 *
 * @APPLE_APACHE_LICENSE_HEADER_END@
 */

#include <stdlib.h>
#include <assert.h>
#include <stdio.h>
#include <string.h>
#include <math.h>
#ifdef __APPLE__
#include <mach/mach_time.h>
#include <libkern/OSAtomic.h>
#endif

#include <dispatch/dispatch.h>

#include <bsdtests.h>
#include "dispatch_test.h"

#define delay (1ull * NSEC_PER_SEC)
#define interval (5ull * NSEC_PER_USEC)

#define N 25000

static dispatch_source_t t[N];
static dispatch_queue_t q;
static dispatch_group_t g;

static volatile int32_t count;
static mach_timebase_info_data_t tbi;
static uint64_t start, last;

#define elapsed_ms(x) (((now-(x))*tbi.numer/tbi.denom)/(1000ull*NSEC_PER_USEC))

void
test_fin(void *cxt)
{
	fprintf(stderr, "Called back every %llu us on average\n",
			(delay/count)/NSEC_PER_USEC);
	test_long_less_than("Frequency", 1, ceil((double)delay/(count*interval)));
	int i;
	for (i = 0; i < N; i++) {
		dispatch_source_cancel(t[i]);
		dispatch_release(t[i]);
	}
	dispatch_resume(q);
	dispatch_release(q);
	dispatch_release(g);
	test_ptr("finalizer ran", cxt, cxt);
	test_stop();
}

void
test_short_timer(void)
{
	// Add a large number of timers with suspended target queue in front of
	// the timer being measured <rdar://problem/7401353>
	g = dispatch_group_create();
	q = dispatch_queue_create("q", NULL);
	int i;
	for (i = 0; i < N; i++) {
		t[i] = dispatch_source_create(DISPATCH_SOURCE_TYPE_TIMER, 0, 0, q);
		dispatch_source_set_timer(t[i], DISPATCH_TIME_NOW, interval, 0);
		dispatch_group_enter(g);
		dispatch_source_set_registration_handler(t[i], ^{
			dispatch_suspend(t[i]);
			dispatch_group_leave(g);
		});
		dispatch_resume(t[i]);
	}
	// Wait for registration & configuration of all timers
	dispatch_group_wait(g, DISPATCH_TIME_FOREVER);
	dispatch_suspend(q);
	for (i = 0; i < N; i++) {
		dispatch_resume(t[i]);
	}

	dispatch_source_t s = dispatch_source_create(DISPATCH_SOURCE_TYPE_TIMER,
			0, 0, dispatch_get_global_queue(0, 0));
	test_ptr_notnull("dispatch_source_create", s);
	dispatch_source_set_timer(s, DISPATCH_TIME_NOW, interval, 0);
	dispatch_source_set_event_handler(s, ^{
		uint64_t now = mach_absolute_time();
		if (!count) {
			dispatch_after(dispatch_time(DISPATCH_TIME_NOW, delay),
					dispatch_get_global_queue(0, 0), ^{
				dispatch_source_cancel(s);
				dispatch_release(s);
			});
			fprintf(stderr, "First timer callback  (after %4llu ms)\n",
					elapsed_ms(start));
		}
		OSAtomicIncrement32(&count);
		if (elapsed_ms(last) >= 100) {
			fprintf(stderr, "%5d timer callbacks (after %4llu ms)\n", count,
					elapsed_ms(start));
			last = now;
		}
	});
	dispatch_set_context(s, s);
	dispatch_set_finalizer_f(s, test_fin);
	fprintf(stderr, "Scheduling %llu us timer\n", interval/NSEC_PER_USEC);
	start = last = mach_absolute_time();
	dispatch_resume(s);
}

int
main(void)
{
	dispatch_test_start("Dispatch Short Timer"); // <rdar://problem/7765184>
	mach_timebase_info(&tbi);
	test_short_timer();
	dispatch_main();
	return 0;
}