//
// Copyright (c) 2017 The Khronos Group Inc.
// 
// 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.
//
#include "harness/compat.h"

#include <stdio.h>
#include <string.h>
#include "procs.h"
#include "harness/testHarness.h"

// FIXME: To use certain functions in harness/imageHelpers.h
// (for example, generate_random_image_data()), the tests are required to declare
// the following variables (<rdar://problem/11111245>):

test_definition test_list[] = {
    ADD_TEST( read_array_int ),
    ADD_TEST( read_array_uint ),
    ADD_TEST( read_array_long ),
    ADD_TEST( read_array_ulong ),
    ADD_TEST( read_array_short ),
    ADD_TEST( read_array_ushort ),
    ADD_TEST( read_array_float ),
    ADD_TEST( read_array_char ),
    ADD_TEST( read_array_uchar ),
    ADD_TEST( read_array_struct ),
    ADD_TEST( write_array_int ),
    ADD_TEST( write_array_uint ),
    ADD_TEST( write_array_long ),
    ADD_TEST( write_array_ulong ),
    ADD_TEST( write_array_short ),
    ADD_TEST( write_array_ushort ),
    ADD_TEST( write_array_float ),
    ADD_TEST( write_array_char ),
    ADD_TEST( write_array_uchar ),
    ADD_TEST( write_array_struct ),
    ADD_TEST( read_image_float ),
    ADD_TEST( read_image_char ),
    ADD_TEST( read_image_uchar ),
    ADD_TEST( write_image_float ),
    ADD_TEST( write_image_char ),
    ADD_TEST( write_image_uchar ),
    ADD_TEST( copy_array ),
    ADD_TEST( copy_partial_array ),
    ADD_TEST( copy_image ),
    ADD_TEST( copy_array_to_image ),
    ADD_TEST( execute ),
};

const int test_num = ARRAY_SIZE( test_list );

// FIXME: use timer resolution rather than hardcoding 1µs per tick.

#define QUEUE_SECONDS_LIMIT 30
#define SUBMIT_SECONDS_LIMIT 30
#define COMMAND_SECONDS_LIMIT 30
int check_times(cl_ulong queueStart, cl_ulong commandSubmit, cl_ulong commandStart, cl_ulong commandEnd, cl_device_id device) {
  int err = 0;

  size_t profiling_resolution = 0;
  err = clGetDeviceInfo(device, CL_DEVICE_PROFILING_TIMER_RESOLUTION, sizeof(profiling_resolution), &profiling_resolution, NULL);
    test_error(err, "clGetDeviceInfo for CL_DEVICE_PROFILING_TIMER_RESOLUTION failed.\n");

  log_info("CL_PROFILING_COMMAND_QUEUED: %llu CL_PROFILING_COMMAND_SUBMIT: %llu CL_PROFILING_COMMAND_START: %llu CL_PROFILING_COMMAND_END: %llu CL_DEVICE_PROFILING_TIMER_RESOLUTION: %ld\n",
           queueStart, commandSubmit, commandStart, commandEnd, profiling_resolution);

  double queueTosubmitTimeS = (double)(commandSubmit - queueStart)*1e-9;
  double submitToStartTimeS = (double)(commandStart - commandSubmit)*1e-9;
  double startToEndTimeS = (double)(commandEnd - commandStart)*1e-9;

    log_info( "Profiling info:\n" );
    log_info( "Time from queue to submit : %fms\n", (double)(queueTosubmitTimeS) * 1000.f );
    log_info( "Time from submit to start : %fms\n", (double)(submitToStartTimeS) * 1000.f );
    log_info( "Time from start to end: %fms\n", (double)(startToEndTimeS) * 1000.f );

  if(queueStart > commandSubmit) {
    log_error("CL_PROFILING_COMMAND_QUEUED > CL_PROFILING_COMMAND_SUBMIT.\n");
    err = -1;
  }

  if (commandSubmit > commandStart) {
    log_error("CL_PROFILING_COMMAND_SUBMIT > CL_PROFILING_COMMAND_START.\n");
    err = -1;
  }

  if (commandStart > commandEnd) {
    log_error("CL_PROFILING_COMMAND_START > CL_PROFILING_COMMAND_END.\n");
    err = -1;
  }

  if (queueStart == 0 && commandStart == 0 && commandEnd == 0) {
    log_error("All values are 0. This is exceedingly unlikely.\n");
    err = -1;
  }

  if (queueTosubmitTimeS > QUEUE_SECONDS_LIMIT) {
    log_error("Time between queue and submit is too big: %fs, test limit: %fs.\n",
              queueTosubmitTimeS , (double)QUEUE_SECONDS_LIMIT);
    err = -1;
  }

   if (submitToStartTimeS > SUBMIT_SECONDS_LIMIT) {
    log_error("Time between submit and start is too big: %fs, test limit: %fs.\n",
              submitToStartTimeS , (double)QUEUE_SECONDS_LIMIT);
    err = -1;
  }

  if (startToEndTimeS > COMMAND_SECONDS_LIMIT) {
    log_error("Time between queue and start is too big: %fs, test limit: %fs.\n",
             startToEndTimeS , (double)QUEUE_SECONDS_LIMIT);
    err = -1;
  }
  return err;
}

int main( int argc, const char *argv[] )
{
    return runTestHarness(argc, argv, test_num, test_list, false,
                          CL_QUEUE_PROFILING_ENABLE);
}