time32 only handles second and millisecond

romainfrancois · romainfrancois · commit 605e3021dbfd · 2018-09-24T20:15:01.000+02:00
time64 only handles microsecond and nanosecond
diff --git a/r/tests/testthat/test-types.R b/r/tests/testthat/test-types.R
@@ -259,53 +259,9 @@ test_that("time32 types work as expected", {
   expect_equal(x$children(), list())
   expect_equal(x$bit_width(), 32L)
   expect_equal(x$unit(), unclass(TimeUnit$MILLI))
-
-  x <- time32(TimeUnit$MICRO)
-  expect_equal(x$id(), 19L)
-  expect_equal(x$name(), "time32")
-  expect_equal(x$ToString(), "time32[us]")
-  expect_true(x == x)
-  expect_false(x == null())
-  expect_equal(x$num_children(), 0L)
-  expect_equal(x$children(), list())
-  expect_equal(x$bit_width(), 32L)
-  expect_equal(x$unit(), unclass(TimeUnit$MICRO))
-
-  x <- time32(TimeUnit$NANO)
-  expect_equal(x$id(), 19L)
-  expect_equal(x$name(), "time32")
-  expect_equal(x$ToString(), "time32[ns]")
-  expect_true(x == x)
-  expect_false(x == null())
-  expect_equal(x$num_children(), 0L)
-  expect_equal(x$children(), list())
-  expect_equal(x$bit_width(), 32L)
-  expect_equal(x$unit(), unclass(TimeUnit$NANO))
 })
 
 test_that("time64 types work as expected", {
-  x <- time64(TimeUnit$SECOND)
-  expect_equal(x$id(), 20L)
-  expect_equal(x$name(), "time64")
-  expect_equal(x$ToString(), "time64[s]")
-  expect_true(x == x)
-  expect_false(x == null())
-  expect_equal(x$num_children(), 0L)
-  expect_equal(x$children(), list())
-  expect_equal(x$bit_width(), 64L)
-  expect_equal(x$unit(), unclass(TimeUnit$SECOND))
-
-  x <- time64(TimeUnit$MILLI)
-  expect_equal(x$id(), 20L)
-  expect_equal(x$name(), "time64")
-  expect_equal(x$ToString(), "time64[ms]")
-  expect_true(x == x)
-  expect_false(x == null())
-  expect_equal(x$num_children(), 0L)
-  expect_equal(x$children(), list())
-  expect_equal(x$bit_width(), 64L)
-  expect_equal(x$unit(), unclass(TimeUnit$MILLI))
-
   x <- time64(TimeUnit$MICRO)
   expect_equal(x$id(), 20L)
   expect_equal(x$name(), "time64")
