test_get_day_field Subroutine

public subroutine test_get_day_field()

Arguments

None

Calls

proc~~test_get_day_field~~CallsGraph proc~test_get_day_field test_get_day_field assertequal assertequal proc~test_get_day_field->assertequal asserttrue asserttrue proc~test_get_day_field->asserttrue date_fields date_fields proc~test_get_day_field->date_fields day day proc~test_get_day_field->day is_valid is_valid proc~test_get_day_field->is_valid

Source Code

   subroutine test_get_day_field
      type(date_fields) :: df
      integer :: d = 23, m = 4, y = 2023
      df = date_fields(y, m, d)
      @assertTrue(df % is_valid(), 'Failed to initialize df')
      @assertEqual(d, df % day(), 'Wrong month')
   end subroutine test_get_day_field