From 72da305329d3a8889e4e5f8d81a0ecad04b097ad Mon Sep 17 00:00:00 2001 From: Martin Odersky Date: Wed, 18 Jun 2008 15:39:36 +0000 Subject: gixed gilles' gadt problems. Added some tests --- test/files/pos/gadt-gilles.scala | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 test/files/pos/gadt-gilles.scala (limited to 'test/files/pos/gadt-gilles.scala') diff --git a/test/files/pos/gadt-gilles.scala b/test/files/pos/gadt-gilles.scala new file mode 100644 index 0000000000..662be9017d --- /dev/null +++ b/test/files/pos/gadt-gilles.scala @@ -0,0 +1,37 @@ +object Test { + trait A[T] + trait B[U, V] extends A[U with V] // indirect constraint + trait C + trait D + + val x: A[C with D] = new B[C, D] {} + val y: A[C with D] = x match { case b: B[u, v] => (new B[u, v] {}): A[u with v] } // OK + + + def f[T, U](p: A[T with U]): A[T with U] = p match { case b: B[u, v] => new A[u with v] {} } // Not OK +} + +object Test1 { + + trait T[U, V <: U] + + def f(r: Any) = r match { + + case t: T[u, v] => new T[u, v]{} + + } + +} +object Test2 { + + trait T[U, V <: U] + + val x: T[Int, Int] = new T[Int, Int]{} + + x match { + + case t: T[u, v] => new T[u, v]{} + + } + +} -- cgit v1.2.3