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 date_fields date_fields proc~test_is_valid_date->date_fields is_valid_date is_valid_date proc~test_is_valid_date->is_valid_date

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