• Home
• dev.optics
• monocle-law_sjs1_2.13
• 3.3.0
• source code
• IsoTests.scala

×

Project download

Many resources are needed to download a project. Please understand that we have to compensate our server costs. Thank you in advance.
Project price only 1 $

You can buy this project and download/modify it how often you want.

monocle.law.discipline.IsoTests.scala Maven / Gradle / Ivy

package monocle.law.discipline

import monocle.Iso
import monocle.law.IsoLaws
import org.scalacheck.Arbitrary
import org.scalacheck.Prop._
import org.typelevel.discipline.Laws

import cats.Eq

object IsoTests extends Laws {
  def apply[S: Arbitrary: Eq, A: Arbitrary: Eq](iso: Iso[S, A])(implicit arbAA: Arbitrary[A => A]): RuleSet = {
    val laws = new IsoLaws(iso)
    new SimpleRuleSet(
      "Iso",
      "round trip one way"              -> forAll((s: S) => laws.roundTripOneWay(s)),
      "round trip other way"            -> forAll((a: A) => laws.roundTripOtherWay(a)),
      "modify id = id"                  -> forAll((s: S) => laws.modifyIdentity(s)),
      "compose modify"                  -> forAll((s: S, f: A => A, g: A => A) => laws.composeModify(s, f, g)),
      "consistent replace with modify"  -> forAll((s: S, a: A) => laws.consistentReplaceModify(s, a)),
      "consistent modify with modifyId" -> forAll((s: S, f: A => A) => laws.consistentModifyModifyId(s, f)),
      "consistent get with modifyId"    -> forAll((s: S) => laws.consistentGetModifyId(s))
    )
  }
}