add tests to generated Scala3 code

Author: lemastero

scala3/.gitignore

@@ -0,0 +1,2 @@
+*.class
+*.log

scala3/.scalafmt.conf

@@ -0,0 +1,2 @@
+version = 3.5.8
+runner.dialect = scala3

scala3/build.sbt

@@ -0,0 +1,22 @@
+val zioVersion = "2.0.22"
+
+lazy val root = project
+  .in(file("."))
+  .settings(
+    inThisBuild(
+      List(
+        name := "scala3",
+        organization := "examples",
+        version := "0.0.1",
+        scalaVersion := "3.4.1"
+      )
+    ),
+    libraryDependencies ++= Seq(
+      "dev.zio" %% "zio"               % zioVersion,
+      "dev.zio" %% "zio-test"          % zioVersion % Test,
+      "dev.zio" %% "zio-test-sbt"      % zioVersion % Test,
+      "dev.zio" %% "zio-test-junit"    % zioVersion % Test,
+      "dev.zio" %% "zio-test-magnolia" % zioVersion % Test
+    ),
+    testFrameworks := Seq(new TestFramework("zio.test.sbt.ZTestFramework"))
+  )

scala3/project/build.properties

@@ -0,0 +1 @@
+sbt.version=1.9.9

scala3/project/plugins.sbt

@@ -0,0 +1,2 @@
+addSbtPlugin("io.github.davidgregory084" % "sbt-tpolecat" % "0.4.2")
+addSbtPlugin("org.scalameta"             % "sbt-scalafmt" % "2.5.2")

scala3/src/main/scala/examples/adts.scala

@@ -0,0 +1,18 @@
+package examples
+
+object adts:
+
+  sealed trait Rgb
+  case object Red extends Rgb
+  case object Green extends Rgb
+  case object Blue extends Rgb
+
+  sealed trait Bool
+  case object True extends Bool
+  case object False extends Bool
+  
+  final case class RgbPair(snd: Bool, fst: Rgb)
+
+  def idRgb(theArg: Rgb): Rgb = theArg
+  
+  def constRgbPair(rgbArg: Rgb, rgbPairArg: RgbPair): RgbPair = rgbPairArg

scala3/src/test/scala/examples/RgbSpec.scala

@@ -0,0 +1,24 @@
+package examples
+
+import zio.test.Assertion.equalTo
+import zio.test.junit.JUnitRunnableSpec
+import zio.test.{ assert, suite, test }
+
+import examples.adts.{ Rgb, Red, Green, Blue, idRgb }
+import examples.adts.{ RgbPair, constRgbPair }
+import examples.adts.{ Bool, True, False }
+
+object RgbSpec extends JUnitRunnableSpec:
+
+  def spec = suite("Test Rgb")(
+    test("identity on Rgb") {
+      assert(idRgb(Red))(equalTo(Red))
+      assert(idRgb(Green))(equalTo(Green))
+      assert(idRgb(Blue))(equalTo(Blue))
+    },
+    test ("const on RgbPair") {
+      assert( constRgbPair(Red,   RgbPair(True, Blue) ) )(equalTo( RgbPair(True, Blue) ))
+      assert( constRgbPair(Green, RgbPair(False, Red) ) )(equalTo( RgbPair(False, Red) ))
+      assert( constRgbPair(Blue,  RgbPair(True, Blue) ) )(equalTo( RgbPair(True, Blue) ))
+    }
+  )