Merge pull request #266 from theiterators/fix/implementation_from_method

Fixed from implementation

tagged-meta/src/main/scala/pl/iterators/kebs/tag/meta/tagged.scala

@@ -96,7 +96,7 @@ final class macroImpl(val c: whitebox.Context) {
         else List.empty
       val body =
         if (hasValidations)
-          q"validate($argName).map(_ => $argName.taggedWith[${tagType.tagName}[..$tagParams]])"
+          q"validate($argName).map(_.taggedWith[${tagType.tagName}[..$tagParams]])"
         else
           q"$argName.taggedWith[${tagType.tagName}[..$tagParams]]"
 

tagged-meta/src/test/scala/TaggedAnnotationFromMethodTest.scala

@@ -0,0 +1,31 @@
+import org.scalatest._
+import pl.iterators.kebs.tagged._
+import pl.iterators.kebs.tag.meta.tagged
+import org.scalatest.funsuite.AnyFunSuite
+import org.scalatest.matchers.should.Matchers
+
+@tagged object DomainTrimmedString {
+  trait NameTag
+  type Name = String @@ NameTag
+
+  object Name {
+    sealed trait Error
+    case object Empty extends Error
+
+    def validate(name: String) = if (name.trim.isEmpty) Left(Empty) else Right(name.trim)
+  }
+}
+
+class TaggedAnnotationFromMethodTest extends AnyFunSuite with Matchers with EitherValues {
+  import DomainTrimmedString._
+
+  test("from method must use result from validation") {
+    Name("   name   ") shouldEqual "name"
+  }
+
+  test("from method must forward Error value") {
+    intercept[Exception] {
+      Name("       ")
+    }
+  }
+}