test_reset Subroutine

public subroutine test_reset()

Arguments

None

Calls

proc~~test_reset~~CallsGraph proc~test_reset test_reset assertequal assertequal proc~test_reset->assertequal assertfalse assertfalse proc~test_reset->assertfalse none~add_cycle~2 AdvancedMeter%add_cycle proc~test_reset->none~add_cycle~2 none~get_num_cycles AdvancedMeter%get_num_cycles proc~test_reset->none~get_num_cycles none~get_total~2 AdvancedMeter%get_total proc~test_reset->none~get_total~2 none~is_active AdvancedMeter%is_active proc~test_reset->none~is_active none~reset~30 AdvancedMeter%reset proc~test_reset->none~reset~30 none~start~20 AdvancedMeter%start proc~test_reset->none~start~20 none~get_mean_cycle AdvancedMeter%get_mean_cycle none~add_cycle~2->none~get_mean_cycle get_measurement get_measurement none~start~20->get_measurement none~get_mean_cycle->none~get_num_cycles

Source Code

   subroutine test_reset()
      type (AdvancedMeter) :: t

      t = AdvancedMeter(MpiTimerGauge())
      call t%start()
      call t%add_cycle(increment=1._REAL64)
      call t%reset()

      @assertEqual(0, t%get_num_cycles())
      @assertFalse(t%is_active())
      @assertEqual(0, t%get_total())

   end subroutine test_reset