Для понимания не составления шагов полностью в модульном тесте с использованием Reader

Question

У меня есть конечная реализация без тегов с модульным тестом, когда я запускаю модульный тест, вызывается только первый шаг, а не остальные.

Вот цель теста:

class NameThing[F[_]: Monad](implicit console: Console[F]) {

  def program: F[Unit] = for {
    _ <- console.prompt
    rawName <- console.read
    fullName = parse(rawName)
    _ <- console.display(fullName)
  } yield ()

  def parse(rawName:String):FullName = {
    val parts = rawName.split(" ")
    FullName(parts(0), parts(1))
  }
}

Модульный тест:

implicit object TestConsole extends Console[Test] {
      override def prompt: Test[Unit] = {
        println("ok1")
        Reader(TestEnv => TestEnv.prompt)
      }
      override def read: Test[String] =  {
        println("ok2")
        Reader(TestEnv => TestEnv.read)
      }
      override def display(fullName: FullName): Test[Unit] = {
        println("ok3")
        Reader(TestEnv => TestEnv.display(fullName.toString))
      }
    }

    val result = new NameThing[Test]().program.run

Я вижу только ОК1.

Полный код здесь: https://bitbucket.org/jameskingconsulting/scala-effects

Answer 1

Попробуйте

new NameThing[Test]().program.run(TestEnv())

new NameThing[Test]().program.run - это просто TestEnv => Unit (где .run - Kleisli * run), вы должны вызвать его на TestEnv для фактического запустить программу.