t_timer.cpp

Go to the documentation of this file.

/*****************************************************************************\
*                                                                             *
*  Name   : test_timer                                                        *
*  Author : Chris Koeritz                                                     *
*                                                                             *
*******************************************************************************
* Copyright (c) 1991-$now By Author.  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 is online at:      *
*     http://www.fsf.org/copyleft/gpl.html                                    *
* Please send any updates to: fred@gruntose.com                               *
\*****************************************************************************/

#include <basis/chaos.h>
#include <basis/function.h>
#include <basis/guards.h>
#include <basis/log_base.h>
#include <mechanisms/timer.h>
#include <opsystem/application_shell.h>
#include <loggers/console_logger.h>
#include <data_struct/static_memory_gremlin.h>

#define DEBUG_TIMER

// ACCEPT: acceptable timer deviation from the total time to wait.
// NOTE: timer characteristics and the sleep characteristics for machines vary.
// it may be necessary to play with ACCEPT to get this program to accept the
// machine's particular characteristics.
#define ACCEPT 0.01
#define WIDER_ACCEPT 0.05
#define WIDEST_ACCEPT 0.20

#define LOG(s) EMERGENCY_LOG(program_wide_logger(), s)

class test_timer : public application_shell
{
public:
  test_timer() : application_shell(class_name()) {}
  IMPLEMENT_CLASS_NAME("test_timer");
  virtual int execute();
};

int test_timer::execute()
{
  timer fred_time;
  chaos randomizer;

  int to_sleep = randomizer.inclusive(2000, 10000);
    // needs longer ints for the last two checks...
  fred_time.start();
  portable::sleep_ms(to_sleep);
  fred_time.halt();
#ifdef DEBUG_TIMER
  LOG(isprintf("sleep of %0.3f seconds took %d milliseconds\n",
      float(to_sleep) / 1000.0, fred_time.milliseconds()));
#endif
  if (absolute_value(to_sleep - fred_time.milliseconds())
      > ACCEPT * to_sleep)
    deadly_error(class_name(), "first", "unacceptable timer deviation");
  fred_time.reset();

  to_sleep = randomizer.inclusive(7000, 12000);
  fred_time.start();
  portable::sleep_ms(to_sleep);
  fred_time.halt();
#ifdef DEBUG_TIMER
  LOG(isprintf("sleep of %0.3f seconds took %d milliseconds\n",
      float(to_sleep) / 1000.0, fred_time.milliseconds()));
#endif
  if (absolute_value(to_sleep - fred_time.milliseconds()) > ACCEPT * to_sleep)
    deadly_error(class_name(), "second", "unacceptable timer deviation");
  fred_time.reset();

/*
  to_sleep = randomizer.inclusive(18, 188);
  to_sleep *= 11000;
  fred_time.start();
  usleep(to_sleep);
  fred_time.halt();
#ifdef DEBUG_TIMER
  MessageBox(NIL, istring("sleep of %d milliseconds took %d milliseconds\n",
    to_sleep / 1000, fred_time.milliseconds()), "info", MB_OK);
#endif
  if (absolute_value(to_sleep - 1000.0 * fred_time.milliseconds())
      > WIDER_ACCEPT * to_sleep)
    deadly_error(class_name(), "third", "unacceptable timer deviation");
  fred_time.reset();

  to_sleep = randomizer.inclusive(190, 88);
  to_sleep *= 100;
  fred_time.start();
  usleep(to_sleep);
  fred_time.halt();
#ifdef DEBUG_TIMER
  LOG(isprintf("sleep of %d milliseconds took %d milliseconds\n",
      to_sleep / 1000, fred_time.milliseconds());
#endif
  if (absolute_value(to_sleep - 1000.0 * fred_time.milliseconds())
      > WIDEST_ACCEPT * to_sleep)
    deadly_error(class_name(), "fourth", "unacceptable timer deviation");
  fred_time.reset();
*/
  guards::alert_message("timer:: works for those functions tested.");
  return 0;
}

HOOPLE_MAIN(test_timer, )

---