test_is_valid_time Subroutine

public subroutine test_is_valid_time()

Arguments

None

Calls

proc~~test_is_valid_time~~CallsGraph proc~test_is_valid_time test_is_valid_time assertfalse assertfalse proc~test_is_valid_time->assertfalse asserttrue asserttrue proc~test_is_valid_time->asserttrue is_valid_time is_valid_time proc~test_is_valid_time->is_valid_time time_fields time_fields proc~test_is_valid_time->time_fields

Source Code

   subroutine test_is_valid_time()
      type(time_fields) :: valid_time
      type(time_fields) :: invalid_time
      valid_time = time_fields(9, 41, 33, 456, 0)
      invalid_time = time_fields(24, 41, 33, 456, 0)
      @assertTrue(is_valid_time(valid_time))
      @assertFalse(is_valid_time(invalid_time))
   end subroutine test_is_valid_time