Fix another expired test

richfitz · Nov 29, 2023 · 0d6caa9 · 0d6caa9
1 parent ee458e8
commit 0d6caa9
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tests/testthat/test-zzz-commands-generic.R b/tests/testthat/test-zzz-commands-generic.R
@@ -138,7 +138,8 @@ test_that("PEXPIREAT", {
   on.exit(con$DEL(key))
 
   con$SET(key, "Hello")
-  expect_equal(con$PEXPIREAT(key, 1655555555005), 1)
+  t <- as.integer(con$TIME()[[1]])
+  expect_equal(con$EXPIREAT(key, t + 1000000000), 1)
   expect_gt(con$TTL(key), 0)
   expect_gt(con$PTTL(key), 0)
 })