test_get_hour_field Subroutine

public subroutine test_get_hour_field()

Arguments

None

Calls

proc~~test_get_hour_field~~CallsGraph proc~test_get_hour_field test_get_hour_field assertequal assertequal proc~test_get_hour_field->assertequal asserttrue asserttrue proc~test_get_hour_field->asserttrue hour hour proc~test_get_hour_field->hour is_valid is_valid proc~test_get_hour_field->is_valid time_fields time_fields proc~test_get_hour_field->time_fields

Source Code

   subroutine test_get_hour_field
      type(time_fields) :: tf
      integer :: h = 13, m = 43, s = 37, ms = 100, tzo = 0
      tf = time_fields(h, m, s, ms, tzo)
      @assertTrue(tf % is_valid(), 'Failed to initialize tf')
      @assertEqual(h, tf % hour())
   end subroutine test_get_hour_field