disable_component.c

Go to the documentation of this file.

/*
 * File:    disable_component.c
 * Author:  Vince Weaver
 *              vweaver1@eecs.utk.edu
 */
 
/*
  This tests the functionality of PAPI_disable_component()
*/
 
#include <stdio.h>
 
#include "papi.h"
#include "papi_test.h"
 
 
int
main( int argc, char **argv )
{
   int retval;
   const PAPI_component_info_t* cmpinfo;
   int numcmp, cid, active_components=0;
 
   /* Set TESTS_QUIET variable */
   tests_quiet( argc, argv );
 
   /* Disable All Compiled-in Components */
   numcmp = PAPI_num_components(  );
 
   if (!TESTS_QUIET) printf("Compiled-in components:\n");
   for( cid = 0; cid < numcmp; cid++ ) {
      cmpinfo = PAPI_get_component_info( cid );
 
      if (!TESTS_QUIET) {
         printf( "Name:   %-23s %s\n", cmpinfo->name, cmpinfo->description);
      }
 
      retval=PAPI_disable_component( cid );
      if (retval!=PAPI_OK) {
     test_fail(__FILE__,__LINE__,"Error disabling component",retval);
      }
   }
 
 
   /* Initialize the library */
   retval = PAPI_library_init( PAPI_VER_CURRENT );
   if ( retval != PAPI_VER_CURRENT ) {
      test_fail( __FILE__, __LINE__, "PAPI_library_init", retval );
   }
 
   /* Try to disable after init, should fail */
   retval=PAPI_disable_component( 0 );
   if (retval==PAPI_OK) {
      test_fail( __FILE__, __LINE__, "PAPI_disable_component should fail", 
         retval );
   }
 
   if (!TESTS_QUIET) printf("\nAfter init components:\n");
   for( cid = 0; cid < numcmp; cid++ ) {
 
      cmpinfo = PAPI_get_component_info( cid );
 
      if (!TESTS_QUIET) {
    printf( "%d %d Name:   %-23s %s\n",
        cid,
        PAPI_get_component_index((char *)cmpinfo->name),
        cmpinfo->name ,cmpinfo->description);
 
      }
 
      if (cid!=PAPI_get_component_index((char *)cmpinfo->name)) {
         test_fail( __FILE__, __LINE__, "PAPI_get_component_index mismatch",
         2 );
      }
 
 
      if (cmpinfo->disabled) {
     if (!TESTS_QUIET) {
            printf("   \\-> Disabled: %s\n",cmpinfo->disabled_reason);
     }
      } else {
     active_components++;
      }
   }
 
   if (active_components>0) {
      test_fail( __FILE__, __LINE__, "too many active components", retval );
   }
 
    test_pass( __FILE__ );
 
    return PAPI_OK;
}