test_create_from_parameters_string_positive Subroutine

public subroutine test_create_from_parameters_string_positive()

Arguments

None

Calls

proc~~test_create_from_parameters_string_positive~~CallsGraph proc~test_create_from_parameters_string_positive test_create_from_parameters_string_positive ESMF_TimeIntervalGet ESMF_TimeIntervalGet proc~test_create_from_parameters_string_positive->ESMF_TimeIntervalGet assertequal assertequal proc~test_create_from_parameters_string_positive->assertequal none~create_from_parameters ExtDataPointerUpdate%create_from_parameters proc~test_create_from_parameters_string_positive->none~create_from_parameters none~get_offset ExtDataPointerUpdate%get_offset proc~test_create_from_parameters_string_positive->none~get_offset proc~make_offset_string make_offset_string proc~test_create_from_parameters_string_positive->proc~make_offset_string proc~mapl_verify MAPL_Verify proc~test_create_from_parameters_string_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~make_offset_string->proc~mapl_verify 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_string_positive()
      type(ExtDataPointerUpdate) :: ex
      integer :: status, rc
      character(len=STRLEN) :: offset_string
      integer, parameter :: OFFSET_IN_SECONDS = 300
      integer :: expected, actual
      type(ESMF_TimeInterval) :: interval

      call make_offset_string(OFFSET_IN_SECONDS, offset_string, _RC)
      expected = OFFSET_IN_SECONDS
      call ex%create_from_parameters(UPDATE_TIMESTRING, UPDATE_FREQ_STRING, offset_string, default_time, clock, _RC)
      interval = ex%get_offset()
      call ESMF_TimeIntervalGet(interval, s=actual, _RC)
      @assertEqual(expected, actual, ERR_MSG)

   end subroutine test_create_from_parameters_string_positive