diff options
Diffstat (limited to 'test')
-rw-r--r-- | test/files/neg/t4079.check | 4 | ||||
-rw-r--r-- | test/files/neg/t4079/t4079_1.scala | 33 | ||||
-rw-r--r-- | test/files/neg/t4079/t4079_2.scala | 3 | ||||
-rw-r--r-- | test/files/pos/t2741/2741_1.scala | 9 | ||||
-rw-r--r-- | test/files/pos/t2741/2741_2.scala | 5 |
5 files changed, 54 insertions, 0 deletions
diff --git a/test/files/neg/t4079.check b/test/files/neg/t4079.check new file mode 100644 index 0000000000..f4c956c445 --- /dev/null +++ b/test/files/neg/t4079.check @@ -0,0 +1,4 @@ +t4079_2.scala:2: error: could not find implicit value for parameter f: Functor[List] + Cat.compose[List,Option].Functor + ^ +one error found diff --git a/test/files/neg/t4079/t4079_1.scala b/test/files/neg/t4079/t4079_1.scala new file mode 100644 index 0000000000..cbae864788 --- /dev/null +++ b/test/files/neg/t4079/t4079_1.scala @@ -0,0 +1,33 @@ +trait Functor[F[_]] { + def map[A,B](fa: F[A], f: A => B): F[B] +} + +trait ComposeT[F[_],G[_]] { + type Apply[A] = F[G[A]] +} + +case class Compose[F[_],G[_]]() { + def Functor(implicit f: Functor[F], g: Functor[G]): Functor[ComposeT[F,G]#Apply] = + new Functor[ComposeT[F,G]#Apply] { + def map[A,B](c: ComposeT[F,G]#Apply[A], h: A => B) = + f.map(c, (x:G[A]) => g.map(x,h)) + } +} + +object Cat { + def compose[F[_],G[_]] = Compose[F,G]() +} + +object Functors { + implicit val List = new Functor[List] { + def map[A,B](fa: List[A], f: A => B): List[B] = fa map f + } + implicit val Option = new Functor[Option] { + def map[A,B](fa: Option[A], f: A => B): Option[B] = fa map f + } +} + +object Main { + import Functors._ + val cf = Cat.compose[List,Option].Functor +} diff --git a/test/files/neg/t4079/t4079_2.scala b/test/files/neg/t4079/t4079_2.scala new file mode 100644 index 0000000000..9069f0ab4e --- /dev/null +++ b/test/files/neg/t4079/t4079_2.scala @@ -0,0 +1,3 @@ +object Test { + Cat.compose[List,Option].Functor +} diff --git a/test/files/pos/t2741/2741_1.scala b/test/files/pos/t2741/2741_1.scala new file mode 100644 index 0000000000..d47ed3b6cb --- /dev/null +++ b/test/files/pos/t2741/2741_1.scala @@ -0,0 +1,9 @@ +trait Partial { + type Apply[XYZ] = List[XYZ] +} +trait MA[M[_]] +trait MAs { + val a: MA[Partial#Apply] = null // after compilation, the type is pickled as `MA[ [B] List[B] ]` +} + +object Scalaz extends MAs
\ No newline at end of file diff --git a/test/files/pos/t2741/2741_2.scala b/test/files/pos/t2741/2741_2.scala new file mode 100644 index 0000000000..41f6a64260 --- /dev/null +++ b/test/files/pos/t2741/2741_2.scala @@ -0,0 +1,5 @@ +// object Test compiles jointly, but not separately. +object Test { + import Scalaz._ + Scalaz.a +}
\ No newline at end of file |