fixing return for pttl to interpreted as millis (#819)

Co-authored-by: Shawn Garner <[email protected]>

modules/effects/src/main/scala/dev/profunktor/redis4cats/redis.scala

@@ -447,17 +447,17 @@ private[redis4cats] class BaseRedis[F[_]: FutureLift: MonadThrow: Log, K, V](
       case d    => FiniteDuration(d, TimeUnit.SECONDS).some
     }
 
-  private def toFiniteDuration(duration: java.lang.Long): Option[FiniteDuration] =
+  private def toFiniteDuration(units: TimeUnit)(duration: java.lang.Long): Option[FiniteDuration] =
     duration match {
       case d if d < 0 => none[FiniteDuration]
-      case d          => FiniteDuration(d, TimeUnit.SECONDS).some
+      case d          => FiniteDuration(d, units).some
     }
 
   override def ttl(key: K): F[Option[FiniteDuration]] =
-    async.flatMap(_.ttl(key).futureLift.map(toFiniteDuration))
+    async.flatMap(_.ttl(key).futureLift.map(toFiniteDuration(TimeUnit.SECONDS)))
 
   override def pttl(key: K): F[Option[FiniteDuration]] =
-    async.flatMap(_.pttl(key).futureLift.map(toFiniteDuration))
+    async.flatMap(_.pttl(key).futureLift.map(toFiniteDuration(TimeUnit.MILLISECONDS)))
 
   override def scan: F[KeyScanCursor[K]] =
     async.flatMap(_.scan().futureLift.map(KeyScanCursor[K]))

modules/tests/src/test/scala/dev/profunktor/redis4cats/TestScenarios.scala

@@ -256,6 +256,7 @@ trait TestScenarios { self: FunSuite =>
       _ <- IO(assert(c.nonEmpty))
       d <- redis.pttl("f1")
       _ <- IO(assert(d.nonEmpty))
+      _ <- IO(assert(d.exists(_ <= 10.seconds)))
       _ <- redis.set("f2", "yay")
       i <- redis.expire("f2", 50.millis)
       _ <- IO(assertEquals(i, true))