Remove duplicate naive test. Move sys test to test-sys-time.R.

Should have been part of #211

Author: DavisVaughan

tests/testthat/test-sys-time.R

@@ -120,6 +120,16 @@ test_that("failure to parse throws a warning", {
   expect_snapshot(sys_time_parse("foo"))
 })
 
+# ------------------------------------------------------------------------------
+# format()
+
+test_that("allows `%z` and `%Z`", {
+  x <- sys_seconds(0)
+  expect_identical(format(x, format = "%z"), "+0000")
+  expect_identical(format(x, format = "%Ez"), "+00:00")
+  expect_identical(format(x, format = "%Z"), "UTC")
+})
+
 # ------------------------------------------------------------------------------
 # as_zoned_time()
 

tests/testthat/test-time-point.R

@@ -27,22 +27,6 @@ test_that("`max` defaults to `getOption('max.print')` but can be overridden", {
   expect_snapshot(print(x, max = 5))
 })
 
-# ------------------------------------------------------------------------------
-# format()
-
-test_that("naive-time doesn't allow `%z` or `%Z`", {
-  x <- naive_seconds(0)
-  expect_identical(format(x, format = "%z"), NA_character_)
-  expect_identical(format(x, format = "%Z"), NA_character_)
-})
-
-test_that("sys-time allows `%z` and `%Z`", {
-  x <- sys_seconds(0)
-  expect_identical(format(x, format = "%z"), "+0000")
-  expect_identical(format(x, format = "%Ez"), "+00:00")
-  expect_identical(format(x, format = "%Z"), "UTC")
-})
-
 # ------------------------------------------------------------------------------
 # time_point_floor() / _ceiling() / _round()