test_get_num_cycles Subroutine

public subroutine test_get_num_cycles()

Arguments

None

Calls

proc~~test_get_num_cycles~2~~CallsGraph proc~test_get_num_cycles~2 test_get_num_cycles assertequal assertequal proc~test_get_num_cycles~2->assertequal none~get_num_cycles AdvancedMeter%get_num_cycles proc~test_get_num_cycles~2->none~get_num_cycles none~start AdvancedMeter%start proc~test_get_num_cycles~2->none~start get_measurement get_measurement none~start->get_measurement

Source Code

   subroutine test_get_num_cycles()
      type (AdvancedMeter) :: t

      t = AdvancedMeter(MpiTimerGauge())
      @assertEqual(0, t%get_num_cycles())
      call t%start()
      @assertEqual(0, t%get_num_cycles())
      call t%stop()
      @assertEqual(1, t%get_num_cycles())
      call t%start()
      @assertEqual(1, t%get_num_cycles())
      call t%stop()
      @assertEqual(2, t%get_num_cycles())
      
   end subroutine test_get_num_cycles