test_is_valid_date Subroutine

public subroutine test_is_valid_date()

Arguments

None

Calls

proc~~test_is_valid_date~2~~CallsGraph proc~test_is_valid_date~2 test_MAPL_ISO8601_DateTime::test_is_valid_date assertfalse assertfalse proc~test_is_valid_date~2->assertfalse asserttrue asserttrue proc~test_is_valid_date~2->asserttrue proc~is_valid_date MAPL_ISO8601_DateTime::is_valid_date proc~test_is_valid_date~2->proc~is_valid_date proc~get_month_end MAPL_ISO8601_DateTime::get_month_end proc~is_valid_date->proc~get_month_end proc~is_between MAPL_ISO8601_DateTime::is_between proc~is_valid_date->proc~is_between proc~is_valid_month MAPL_ISO8601_DateTime::is_valid_month proc~is_valid_date->proc~is_valid_month proc~is_valid_year MAPL_ISO8601_DateTime::is_valid_year proc~is_valid_date->proc~is_valid_year proc~get_month_ends MAPL_ISO8601_DateTime::get_month_ends proc~get_month_end->proc~get_month_ends proc~is_valid_month->proc~is_between proc~is_valid_year->proc~is_between proc~is_leap_year MAPL_ISO8601_DateTime::is_leap_year proc~get_month_ends->proc~is_leap_year

Source Code

   subroutine test_is_valid_date()
      type(date_fields) :: valid_date
      type(date_fields) :: invalid_date
      valid_date = date_fields(2022, 7, 7)
      invalid_date = date_fields(2022, 6, 31)
      @assertTrue(is_valid_date(valid_date))
      @assertFalse(is_valid_date(invalid_date))
   end subroutine test_is_valid_date