Skip to content

Commit

Permalink
Merge pull request #1992 from flipp5b/1991
Browse files Browse the repository at this point in the history
[v3] Override blocking inside CatsMonadError
  • Loading branch information
adamw authored Nov 8, 2023
2 parents 3cf812a + 3d9929b commit da22511
Show file tree
Hide file tree
Showing 2 changed files with 32 additions and 0 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -21,4 +21,6 @@ class CatsMonadError[F[_]](implicit F: Sync[F]) extends MonadError[F] {
override def flatten[T](ffa: F[F[T]]): F[T] = F.flatten(ffa)

override def ensure[T](f: F[T], e: => F[Unit]): F[T] = F.guaranteeCase(f)(_ => e)

override def blocking[T](t: => T): F[T] = F.blocking(t)
}
Original file line number Diff line number Diff line change
@@ -0,0 +1,30 @@
package sttp.client3.impl.cats

import cats.effect.IO
import cats.effect.unsafe.{IORuntime, IORuntimeConfig}
import org.scalatest.freespec.AsyncFreeSpec

class CatsMonadErrorTest extends AsyncFreeSpec {
"blocking" - {
"should shift to blocking execution context" in {
implicit val ioRuntime: IORuntime = createIORuntime(computePoolSize = 1)
val monad = new CatsMonadError[IO]

val program = monad
.blocking(Thread.sleep(100))
.background
.use(getOutcome => IO.race(getOutcome, IO.unit))

program
.flatMap(either => IO.delay(assert(either.isRight)))
.unsafeToFuture()
}
}

private def createIORuntime(computePoolSize: Int): IORuntime = {
val (compute, _) = IORuntime.createWorkStealingComputeThreadPool(computePoolSize)
val (blocking, _) = IORuntime.createDefaultBlockingExecutionContext()

IORuntime(compute, blocking, compute, () => (), IORuntimeConfig())
}
}

0 comments on commit da22511

Please sign in to comment.