Test cases close #13, #95. No review.

(That's right, multiple two digit tickets.)

2 files changed, 46 insertions, 0 deletions

diff --git a/test/files/pos/bug0013.scala b/test/files/pos/bug0013.scala
new file mode 100644
index 0000000000..999a2ab61c
--- /dev/null
+++ b/test/files/pos/bug0013.scala
@@ -0,0 +1,31 @@
+// covariant linked list
+abstract class M { self =>
+
+    type T
+    final type selfType = M {type T <: self.T}
+    type actualSelfType >: self.type <: selfType
+
+    def next: selfType
+
+    // I don't understand why this doesn't compile, but that's a separate matter
+    // error: method all2 cannot be accessed in M.this.selfType
+    // because its instance type => Stream[M{type T <: M.this.selfType#T}]
+    // contains a malformed type: M.this.selfType#T
+    // def all2: Stream[M {type T <: self.T}] = Stream.cons(self: actualSelfType, next.all2)
+
+
+    // compiles successfully
+    // def all3: Stream[M {type T <: self.T}] = all3Impl(self: actualSelfType)
+    // private def all3Impl(first: M {type T <: self.T}): Stream[M {type T <: self.T}] = Stream.cons(first, all3Impl(first.next))
+
+
+
+    def all4: Stream[M {type T <: self.T}] = Unrelated.all4Impl[T](self: actualSelfType)
+}
+
+object Unrelated {
+    def all4Impl[U](first: M {type T <: U}): Stream[M {type T <: U}] = Stream.cons(first, all4Impl(first.next))
+
+    // compiles successfully
+    // def all4Impl[U](first: M {type T <: U}): Stream[M {type T <: U}] = Stream.cons(first, all4Impl[U](first.next))
+}
\ No newline at end of file
diff --git a/test/files/pos/bug0095.scala b/test/files/pos/bug0095.scala
new file mode 100644
index 0000000000..71386cf5c7
--- /dev/null
+++ b/test/files/pos/bug0095.scala
@@ -0,0 +1,15 @@
+class ParseResult[+T]
+case class Success[+T](t: T) extends ParseResult[T]
+
+abstract class Nonterminal[Output] {
+
+  type SubNonterminal = Nonterminal[T] forSome { type T <: Output }
+
+  def parse: ParseResult[Output]
+
+  def parse1(nts: List[SubNonterminal]): ParseResult[Output] =
+    nts match {
+      case nt::nts => nt.parse match { case Success(so) => Success(so) }
+      case Nil => throw new Error
+    }
+}