test_parse_time Subroutine

public subroutine test_parse_time()

Arguments

None

Calls

proc~~test_parse_time~2~~CallsGraph proc~test_parse_time~2 test_parse_time assertequal assertequal proc~test_parse_time~2->assertequal asserttrue asserttrue proc~test_parse_time~2->asserttrue parse_time parse_time proc~test_parse_time~2->parse_time

Source Code

   subroutine test_parse_time()
      type(time_fields) :: time

      time = parse_time('17:41:07.513Z', TIME_DELIMITER)
      @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('174107.513Z', TIME_DELIMITER)
      @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