test_ISO8601Time_getters Subroutine

public subroutine test_ISO8601Time_getters()

Arguments

None

Calls

proc~~test_iso8601time_getters~~CallsGraph proc~test_iso8601time_getters test_ISO8601Time_getters assertequal assertequal proc~test_iso8601time_getters->assertequal proc~get_hour ISO8601Time%get_hour proc~test_iso8601time_getters->proc~get_hour proc~get_millisecond ISO8601Time%get_millisecond proc~test_iso8601time_getters->proc~get_millisecond proc~get_minute ISO8601Time%get_minute proc~test_iso8601time_getters->proc~get_minute proc~get_second ISO8601Time%get_second proc~test_iso8601time_getters->proc~get_second proc~get_timezone_offset ISO8601Time%get_timezone_offset proc~test_iso8601time_getters->proc~get_timezone_offset

Source Code

   subroutine test_ISO8601Time_getters()
      type(ISO8601Time) :: time
      integer, parameter :: HOUR = 14
      integer, parameter :: MINUTE = 41
      integer, parameter :: SECOND = 37
      integer, parameter :: MILLISECOND = 357
      integer, parameter :: TZ_OFFSET = 0
      time%hour_ = HOUR
      time%minute_ = MINUTE
      time%second_ = SECOND
      time%millisecond_ = MILLISECOND
      time%timezone_offset_ = TZ_OFFSET

      @assertEqual(HOUR, time%get_hour())
      @assertEqual(MINUTE, time%get_minute())
      @assertEqual(SECOND, time%get_second())
      @assertEqual(MILLISECOND, time%get_millisecond())
      @assertEqual(TZ_OFFSET, time%get_timezone_offset())
      
   end subroutine test_ISO8601Time_getters