test_are_valid_date_fields Subroutine

public subroutine test_are_valid_date_fields()

Arguments

None

Calls

proc~~test_are_valid_date_fields~~CallsGraph proc~test_are_valid_date_fields test_are_valid_date_fields assertfalse assertfalse proc~test_are_valid_date_fields->assertfalse asserttrue asserttrue proc~test_are_valid_date_fields->asserttrue date_fields date_fields proc~test_are_valid_date_fields->date_fields is_valid is_valid proc~test_are_valid_date_fields->is_valid

Source Code

   subroutine test_are_valid_date_fields
      type(date_fields) :: df
      df = date_fields(2023, 4, 25) 
      @assertTrue(df % is_valid(), 'df should be valid.')
      df = date_fields(2023, 4, 31)
      @assertFalse(df % is_valid(), 'df should not be valid.')
   end subroutine test_are_valid_date_fields