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 proc~is_valid_time~2 is_valid_time proc~test_is_valid_time->proc~is_valid_time~2 proc~is_valid_hour is_valid_hour proc~is_valid_time~2->proc~is_valid_hour proc~is_valid_millisecond is_valid_millisecond proc~is_valid_time~2->proc~is_valid_millisecond proc~is_valid_minute is_valid_minute proc~is_valid_time~2->proc~is_valid_minute proc~is_valid_second is_valid_second proc~is_valid_time~2->proc~is_valid_second proc~is_valid_timezone_offset is_valid_timezone_offset proc~is_valid_time~2->proc~is_valid_timezone_offset proc~is_between is_between proc~is_valid_hour->proc~is_between proc~is_valid_millisecond->proc~is_between proc~is_valid_minute->proc~is_between proc~is_valid_second->proc~is_between

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