test_create_from_parameters_heartbeat_negative_positive Subroutine

public subroutine test_create_from_parameters_heartbeat_negative_positive()

Arguments

None

Calls

proc~~test_create_from_parameters_heartbeat_negative_positive~~CallsGraph proc~test_create_from_parameters_heartbeat_negative_positive test_create_from_parameters_heartbeat_negative_positive ESMF_TimeIntervalGet ESMF_TimeIntervalGet proc~test_create_from_parameters_heartbeat_negative_positive->ESMF_TimeIntervalGet assertfalse assertfalse proc~test_create_from_parameters_heartbeat_negative_positive->assertfalse none~create_from_parameters ExtDataPointerUpdate%create_from_parameters proc~test_create_from_parameters_heartbeat_negative_positive->none~create_from_parameters proc~mapl_verify MAPL_Verify proc~test_create_from_parameters_heartbeat_negative_positive->proc~mapl_verify none~create_from_parameters->proc~mapl_verify ESMF_ClockGet ESMF_ClockGet none~create_from_parameters->ESMF_ClockGet ESMF_TimeGet ESMF_TimeGet none~create_from_parameters->ESMF_TimeGet ESMF_TimeSet ESMF_TimeSet none~create_from_parameters->ESMF_TimeSet ESMF_UtilStringUpperCase ESMF_UtilStringUpperCase none~create_from_parameters->ESMF_UtilStringUpperCase interface~mapl_assert MAPL_Assert none~create_from_parameters->interface~mapl_assert proc~mapl_return MAPL_Return none~create_from_parameters->proc~mapl_return proc~string_to_esmf_timeinterval string_to_esmf_timeinterval none~create_from_parameters->proc~string_to_esmf_timeinterval proc~string_to_integer_time string_to_integer_time none~create_from_parameters->proc~string_to_integer_time proc~mapl_throw_exception MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception proc~mapl_return->proc~mapl_throw_exception at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~string_to_esmf_timeinterval->proc~mapl_verify proc~string_to_esmf_timeinterval->interface~mapl_assert proc~string_to_esmf_timeinterval->proc~mapl_return ESMF_TimeIntervalSet ESMF_TimeIntervalSet proc~string_to_esmf_timeinterval->ESMF_TimeIntervalSet proc~string_to_integer_time->proc~mapl_return

Source Code

   subroutine test_create_from_parameters_heartbeat_negative_positive()
      type(ExtDataPointerUpdate) :: ex
      integer :: status, rc
      character(len=*), parameter :: OFFSET_STRING = '-+' // HEARTBEAT_STRING
      type(ESMF_TimeInterval) :: offset, interval
      integer :: expected, actual

      offset = timestep
      call ESMF_TimeIntervalGet(offset, s=expected, _RC)
      call ex%create_from_parameters(UPDATE_TIMESTRING, UPDATE_FREQ_STRING, OFFSET_STRING, default_time, clock, rc=status)
      @assertFalse(status == 0, 'An exception should have been thrown.')

   end subroutine test_create_from_parameters_heartbeat_negative_positive