timer_overflow.c

Go to the documentation of this file.

/*
 * File:    timer_overflow.c
 * Author:  Kevin London
 *      london@cs.utk.edu
 * Mods:    <your name here>
 *      <your email address>
 */

/* This file looks for possible timer overflows. */

#include "papi_test.h"

#define TIMER_THRESHOLD 100
extern int TESTS_QUIET;

int
main( int argc, char **argv )
{
    int sleep_time = TIMER_THRESHOLD;
    int retval, i;
    long long timer;

    if ( argc > 1 ) {
        if ( !strcmp( argv[1], "TESTS_QUIET" ) )
            tests_quiet( argc, argv );
        else {
            sleep_time = atoi( argv[1] );
            if ( sleep_time <= 0 )
                sleep_time = TIMER_THRESHOLD;
        }
    }

    if ( TESTS_QUIET ) {
        /* Skip the test in TESTS_QUIET so that the main script doesn't
         * run this as it takes a long time to check for overflow
         */
        printf( "%-40s SKIPPED\nLine # %d\n", __FILE__, __LINE__ );
        printf( "timer_overflow takes a long time to run, run separately.\n" );
        exit( 0 );
    }

    printf( "This test will take about: %f minutes.\n",
            ( float ) ( 20 * ( sleep_time / 60.0 ) ) );
    if ( ( retval =
           PAPI_library_init( PAPI_VER_CURRENT ) ) != PAPI_VER_CURRENT )
        test_fail( __FILE__, __LINE__, "PAPI_library_init", retval );

    timer = PAPI_get_real_usec(  );
    for ( i = 0; i <= 20; i++ ) {
        if ( timer < 0 )
            break;
        sleep( ( unsigned int ) sleep_time );
        timer = PAPI_get_real_usec(  );
    }
    if ( timer < 0 )
        test_fail( __FILE__, __LINE__, "PAPI_get_real_usec: overflow", 1 );
    else
        test_pass( __FILE__, NULL, 0 );
    exit( 1 );
}