/* Time inconsistency check test
 *              by: john stultz (johnstul@us.ibm.com)
 *              (C) Copyright IBM 2003, 2004, 2005, 2012
 *              (C) Copyright Linaro Limited 2015
 *              Licensed under the GPLv2
 *
 *  To build:
 *      $ gcc inconsistency-check.c -o inconsistency-check -lrt
 *
 *   This program 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 of the License, or
 *   (at your option) any later version.
 *
 *   This program 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.
 */



#include <stdio.h>
#include <unistd.h>
#include <stdlib.h>
#include <time.h>
#include <sys/time.h>
#include <sys/timex.h>
#include <string.h>
#include <signal.h>
#include <include/vdso/time64.h>
#include "kselftest.h"

/* CLOCK_HWSPECIFIC == CLOCK_SGI_CYCLE (Deprecated) */
#define CLOCK_HWSPECIFIC                10

#define CALLS_PER_LOOP 64

char *clockstring(int clockid)
{
        switch (clockid) {
        case CLOCK_REALTIME:
                return "CLOCK_REALTIME";
        case CLOCK_MONOTONIC:
                return "CLOCK_MONOTONIC";
        case CLOCK_PROCESS_CPUTIME_ID:
                return "CLOCK_PROCESS_CPUTIME_ID";
        case CLOCK_THREAD_CPUTIME_ID:
                return "CLOCK_THREAD_CPUTIME_ID";
        case CLOCK_MONOTONIC_RAW:
                return "CLOCK_MONOTONIC_RAW";
        case CLOCK_REALTIME_COARSE:
                return "CLOCK_REALTIME_COARSE";
        case CLOCK_MONOTONIC_COARSE:
                return "CLOCK_MONOTONIC_COARSE";
        case CLOCK_BOOTTIME:
                return "CLOCK_BOOTTIME";
        case CLOCK_REALTIME_ALARM:
                return "CLOCK_REALTIME_ALARM";
        case CLOCK_BOOTTIME_ALARM:
                return "CLOCK_BOOTTIME_ALARM";
        case CLOCK_TAI:
                return "CLOCK_TAI";
        }
        return "UNKNOWN_CLOCKID";
}

/* returns 1 if a <= b, 0 otherwise */
static inline int in_order(struct timespec a, struct timespec b)
{
        /* use unsigned to avoid false positives on 2038 rollover */
        if ((unsigned long)a.tv_sec < (unsigned long)b.tv_sec)
                return 1;
        if ((unsigned long)a.tv_sec > (unsigned long)b.tv_sec)
                return 0;
        if (a.tv_nsec > b.tv_nsec)
                return 0;
        return 1;
}



int consistency_test(int clock_type, unsigned long seconds)
{
        struct timespec list[CALLS_PER_LOOP];
        int i, inconsistent;
        long now, then;
        time_t t;
        char *start_str;

        clock_gettime(clock_type, &list[0]);
        now = then = list[0].tv_sec;

        /* timestamp start of test */
        t = time(0);
        start_str = ctime(&t);

        while (seconds == -1 || now - then < seconds) {
                inconsistent = -1;

                /* Fill list */
                for (i = 0; i < CALLS_PER_LOOP; i++)
                        clock_gettime(clock_type, &list[i]);

                /* Check for inconsistencies */
                for (i = 0; i < CALLS_PER_LOOP - 1; i++)
                        if (!in_order(list[i], list[i+1]))
                                inconsistent = i;

                /* display inconsistency */
                if (inconsistent >= 0) {
                        unsigned long long delta;

                        ksft_print_msg("\%s\n", start_str);
                        for (i = 0; i < CALLS_PER_LOOP; i++) {
                                if (i == inconsistent)
                                        ksft_print_msg("--------------------\n");
                                ksft_print_msg("%lu:%lu\n", list[i].tv_sec,
                                                        list[i].tv_nsec);
                                if (i == inconsistent + 1)
                                        ksft_print_msg("--------------------\n");
                        }
                        delta = list[inconsistent].tv_sec * NSEC_PER_SEC;
                        delta += list[inconsistent].tv_nsec;
                        delta -= list[inconsistent+1].tv_sec * NSEC_PER_SEC;
                        delta -= list[inconsistent+1].tv_nsec;
                        ksft_print_msg("Delta: %llu ns\n", delta);
                        fflush(0);
                        /* timestamp inconsistency*/
                        t = time(0);
                        ksft_print_msg("%s\n", ctime(&t));
                        return -1;
                }
                now = list[0].tv_sec;
        }
        return 0;
}


int main(int argc, char *argv[])
{
        int clockid, opt;
        int userclock = CLOCK_REALTIME;
        int maxclocks = CLOCK_TAI + 1;
        int runtime = 10;
        struct timespec ts;

        /* Process arguments */
        while ((opt = getopt(argc, argv, "t:c:")) != -1) {
                switch (opt) {
                case 't':
                        runtime = atoi(optarg);
                        break;
                case 'c':
                        userclock = atoi(optarg);
                        maxclocks = userclock + 1;
                        break;
                default:
                        printf("Usage: %s [-t <secs>] [-c <clockid>]\n", argv[0]);
                        printf("        -t: Number of seconds to run\n");
                        printf("        -c: clockid to use (default, all clockids)\n");
                        exit(-1);
                }
        }

        setbuf(stdout, NULL);

        ksft_print_header();
        ksft_set_plan(maxclocks - userclock);

        for (clockid = userclock; clockid < maxclocks; clockid++) {

                if (clockid == CLOCK_HWSPECIFIC || clock_gettime(clockid, &ts)) {
                        ksft_test_result_skip("%-31s\n", clockstring(clockid));
                        continue;
                }

                if (consistency_test(clockid, runtime)) {
                        ksft_test_result_fail("%-31s\n", clockstring(clockid));
                        ksft_exit_fail();
                } else {
                        ksft_test_result_pass("%-31s\n", clockstring(clockid));
                }
        }
        ksft_exit_pass();
}