test_is_valid_date Subroutine

public subroutine test_is_valid_date()

Arguments

None

Calls

proc~~test_is_valid_date~~CallsGraph proc~test_is_valid_date test_is_valid_date assertfalse assertfalse proc~test_is_valid_date->assertfalse asserttrue asserttrue proc~test_is_valid_date->asserttrue proc~is_valid_date~2 is_valid_date proc~test_is_valid_date->proc~is_valid_date~2 proc~get_month_end get_month_end proc~is_valid_date~2->proc~get_month_end proc~is_between is_between proc~is_valid_date~2->proc~is_between proc~is_valid_month is_valid_month proc~is_valid_date~2->proc~is_valid_month proc~is_valid_year is_valid_year proc~is_valid_date~2->proc~is_valid_year proc~get_month_ends 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~2 is_leap_year proc~get_month_ends->proc~is_leap_year~2

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