Adds compile-time tests

gaelrenoux · Mar 24, 2024 · de5cf77 · de5cf77
1 parent 82bb584
commit de5cf77
Showing 1 changed file with 24 additions and 0 deletions.
diff --git a/core/src/test/scala/io/github/gaelrenoux/tranzactio/DatabaseOpsCompileTest.scala b/core/src/test/scala/io/github/gaelrenoux/tranzactio/DatabaseOpsCompileTest.scala
@@ -229,6 +229,26 @@ trait DatabaseOpsCompileTest {
 
   }
 
+
+  val typedServiceOperations: DatabaseTBase[Marker, Connection]
+  val typedModuleOperations: DatabaseTBase.Module[Marker, Connection, DatabaseService]
+
+  object DatabaseTChecks {
+
+    val a: ZIO[Environment, Either[DbException, String], Int] =
+      typedServiceOperations.transaction(z[Connection with Environment, String])
+
+    val b: ZIO[Any, Either[DbException, String], Int] =
+      typedServiceOperations.transaction(z[Connection, String])
+
+    val c: ZIO[DatabaseT[Marker] with Environment, Either[DbException, String], Int] =
+      typedModuleOperations.transaction(z[Connection with Environment, String])
+
+    val d: ZIO[DatabaseT[Marker], Either[DbException, String], Int] =
+      typedModuleOperations.transaction(z[Connection, String])
+
+  }
+
 }
 
 object DatabaseOpsCompileTest {
@@ -239,5 +259,9 @@ object DatabaseOpsCompileTest {
 
   type Database = DatabaseService
 
+  type DatabaseT[M] = DatabaseTBase[M, Connection]
+
   trait Environment
+
+  trait Marker
 }