test_ISO8601Date_getters Subroutine

public subroutine test_ISO8601Date_getters()

Arguments

None

Calls

proc~~test_iso8601date_getters~~CallsGraph proc~test_iso8601date_getters test_ISO8601Date_getters assertequal assertequal proc~test_iso8601date_getters->assertequal proc~get_day ISO8601Date%get_day proc~test_iso8601date_getters->proc~get_day proc~get_month ISO8601Date%get_month proc~test_iso8601date_getters->proc~get_month proc~get_year ISO8601Date%get_year proc~test_iso8601date_getters->proc~get_year

Source Code

   subroutine test_ISO8601Date_getters()
      type(ISO8601Date) :: date
      integer, parameter :: YEAR = 2022
      integer, parameter :: MONTH = 07
      integer, parameter :: DAY = 07
      date%year_ = YEAR
      date%month_ = MONTH
      date%day_ = DAY
      @assertEqual(YEAR, date%get_year())
      @assertEqual(MONTH, date%get_month())
      @assertEqual(DAY, date%get_day())
   end subroutine test_ISO8601Date_getters