test_parse_time Subroutine

public subroutine test_parse_time()

Arguments

None

Calls

proc~~test_parse_time~2~~CallsGraph proc~test_parse_time~2 test_MAPL_ISO8601_DateTime::test_parse_time assertequal assertequal proc~test_parse_time~2->assertequal asserttrue asserttrue proc~test_parse_time~2->asserttrue proc~parse_time MAPL_ISO8601_DateTime::parse_time proc~test_parse_time~2->proc~parse_time proc~is_valid_time MAPL_ISO8601_DateTime::is_valid_time proc~parse_time->proc~is_valid_time proc~is_whole_number MAPL_ISO8601_DateTime::is_whole_number proc~parse_time->proc~is_whole_number proc~parse_timezone_offset MAPL_ISO8601_DateTime::parse_timezone_offset proc~parse_time->proc~parse_timezone_offset proc~read_whole_number MAPL_ISO8601_DateTime::read_whole_number proc~parse_time->proc~read_whole_number proc~undelimit MAPL_ISO8601_DateTime::undelimit proc~parse_time->proc~undelimit proc~is_valid_hour MAPL_ISO8601_DateTime::is_valid_hour proc~is_valid_time->proc~is_valid_hour proc~is_valid_millisecond MAPL_ISO8601_DateTime::is_valid_millisecond proc~is_valid_time->proc~is_valid_millisecond proc~is_valid_minute MAPL_ISO8601_DateTime::is_valid_minute proc~is_valid_time->proc~is_valid_minute proc~is_valid_second MAPL_ISO8601_DateTime::is_valid_second proc~is_valid_time->proc~is_valid_second proc~is_valid_timezone_offset MAPL_ISO8601_DateTime::is_valid_timezone_offset proc~is_valid_time->proc~is_valid_timezone_offset proc~parse_timezone_offset->proc~is_whole_number proc~parse_timezone_offset->proc~read_whole_number proc~read_whole_number_indexed MAPL_ISO8601_DateTime::read_whole_number_indexed proc~read_whole_number->proc~read_whole_number_indexed proc~is_between MAPL_ISO8601_DateTime::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 proc~read_whole_number_indexed->proc~is_whole_number proc~get_integer_digit_from_string MAPL_ISO8601_DateTime::get_integer_digit_from_string proc~read_whole_number_indexed->proc~get_integer_digit_from_string

Source Code

   subroutine test_parse_time()
      type(time_fields) :: time

      time = parse_time('T17:41:07.513Z')
      @assertTrue(time%is_valid_)
      @assertEqual(17, time%hour_)
      @assertEqual(41, time%minute_)
      @assertEqual(7, time%second_)
      @assertEqual(513, time%millisecond_)
      @assertEqual(0, time%timezone_offset_)

      time = parse_time('T174107.513Z')
      @assertTrue(time%is_valid_)
      @assertEqual(17, time%hour_)
      @assertEqual(41, time%minute_)
      @assertEqual(7, time%second_)
      @assertEqual(513, time%millisecond_)
      @assertEqual(0, time%timezone_offset_)

   end subroutine test_parse_time