From 6ebba86285390fe0db5297b73c35ef874b3b60ac Mon Sep 17 00:00:00 2001
From: eitsupi <ts1s1andn@gmail.com>
Date: Thu, 14 Nov 2024 10:47:34 +0000
Subject: [PATCH] fix: sub-second value parsing accurately

---
 R/parse.R                   | 14 +++++++-------
 tests/testthat/test-parse.R |  1 +
 2 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/R/parse.R b/R/parse.R
index d374301b..46751faf 100644
--- a/R/parse.R
+++ b/R/parse.R
@@ -14,7 +14,7 @@
 #' parse_hms("12:34:56")
 #' parse_hms("12:34:56.789")
 parse_hms <- function(x) {
-  as_hms(parse_time(x, format = "%H:%M:%OS"))
+  parse_time(x, format = "%H:%M:%OS")
 }
 
 #' @rdname parse_hms
@@ -24,14 +24,14 @@ parse_hms <- function(x) {
 #' @examples
 #' parse_hm("12:34")
 parse_hm <- function(x) {
-  as_hms(parse_time(x, format = "%H:%M"))
+  parse_time(x, format = "%H:%M")
 }
 
 parse_time <- function(x, format) {
-  difftime(
-    strptime(as.character(x), format = format),
-    strptime("0:0:0", format = "%X"),
-    units = "secs",
-    tz = "UTC"
+  parsed <- strptime(as.character(x), format = format, tz = "UTC")
+  hms(
+    seconds = parsed$sec,
+    minutes = parsed$min,
+    hours = parsed$hour
   )
 }
diff --git a/tests/testthat/test-parse.R b/tests/testthat/test-parse.R
index 8f939534..00c8b5ff 100644
--- a/tests/testthat/test-parse.R
+++ b/tests/testthat/test-parse.R
@@ -3,6 +3,7 @@ test_that("parse_hms", {
   expect_equal(parse_hms("12:34:56.789"), hms(56.789, 34, 12))
   expect_equal(parse_hms(NA), hms(NA))
   expect_equal(parse_hms(c("12:34:56", NA)), as_hms(c(hms(56, 34, 12), hms(NA))))
+  expect_identical(parse_hms("23:59:59.999999999"), as_hms(86399.999999999))
 })
 
 test_that("parse_hm", {