test_ESMF_Time_from_ISO8601 Subroutine

public subroutine test_ESMF_Time_from_ISO8601()

Arguments

None

Calls

proc~~test_esmf_time_from_iso8601~~CallsGraph proc~test_esmf_time_from_iso8601 test_ESMF_Time_from_ISO8601 ESMF_TimeGet ESMF_TimeGet proc~test_esmf_time_from_iso8601->ESMF_TimeGet assertequal assertequal proc~test_esmf_time_from_iso8601->assertequal asserttrue asserttrue proc~test_esmf_time_from_iso8601->asserttrue proc~set_esmf_time_from_iso8601 set_ESMF_Time_from_ISO8601 proc~test_esmf_time_from_iso8601->proc~set_esmf_time_from_iso8601 ESMF_TimeSet ESMF_TimeSet proc~set_esmf_time_from_iso8601->ESMF_TimeSet proc~mapl_return MAPL_Return proc~set_esmf_time_from_iso8601->proc~mapl_return proc~mapl_verify MAPL_Verify proc~set_esmf_time_from_iso8601->proc~mapl_verify at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine test_ESMF_Time_from_ISO8601()
      character(len=*), parameter :: isostring = '1999-12-31T23:29:59'
      character(len=len(isostring)) :: actual
      type(ESMF_Time) :: time
      integer :: status

      call set_ESMF_Time_from_ISO8601(time, isostring, rc = status)
      @assertTrue(status == _SUCCESS, 'Failed to set ESMF_Time')
      call ESMF_TimeGet(time, timeStringISOFrac = actual, rc = status)
      @assertTrue(status == _SUCCESS, 'Failed to get isostring')
      @assertEqual(isostring, actual, 'ISO8601 strings do not match.')
      
   end subroutine test_ESMF_Time_from_ISO8601