summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorMartin Odersky <odersky@gmail.com>2006-07-24 15:38:59 +0000
committerMartin Odersky <odersky@gmail.com>2006-07-24 15:38:59 +0000
commitb2455fcc388e35125adc527a4b4f8021f0b95523 (patch)
tree2da5321b6b3e7e829e88420cf1b895ac578d6668 /test
parent3f8fefbe721758ceb6918a4db37a8e28f807e518 (diff)
downloadscala-b2455fcc388e35125adc527a4b4f8021f0b95523.tar.gz
scala-b2455fcc388e35125adc527a4b4f8021f0b95523.tar.bz2
scala-b2455fcc388e35125adc527a4b4f8021f0b95523.zip
Diffstat (limited to 'test')
-rw-r--r--test/files/pos/orderedpoints.scala30
-rw-r--r--test/files/pos/viewtest3.scala60
2 files changed, 0 insertions, 90 deletions
diff --git a/test/files/pos/orderedpoints.scala b/test/files/pos/orderedpoints.scala
deleted file mode 100644
index f972028bce..0000000000
--- a/test/files/pos/orderedpoints.scala
+++ /dev/null
@@ -1,30 +0,0 @@
-package test;
-
-class Point1(x: int) extends Object with Ordered[Point1] {
- val xCoord = x;
- def compare [b >: Point1 <% Ordered[b]](that: b): int = that match {
- case that1: Point1 => this.xCoord.compare(that1.xCoord)
- case _ => -that.compare(this)
- }
-}
-class Point2(x: int, y: int) extends Point1(x) with Ordered[Point2] {}
-/*
- val yCoord = y;
- override def compareTo [b >: Point2 <% Ordered[b]](that: b): int = that match {
- case that1: Point2 =>
- val r = super.compareTo(that1);
- if (r == 0) this.yCoord.compareTo(that1.yCoord) else r
- case _ => -that.compareTo(this)
- }
-}
-object Test extends Application {
- val p1 = new Point1(1);
- val q1 = new Point1(2);
- System.out.println(p1 < q1);
- val p2 = new Point2(1, 2);
- val q2 = new Point2(1, 3);
- System.out.println(p2 < q2);
- System.out.println(p1 < q2);
- System.out.println(p2 < q1);
-}
-*/
diff --git a/test/files/pos/viewtest3.scala b/test/files/pos/viewtest3.scala
deleted file mode 100644
index aa7b2ec539..0000000000
--- a/test/files/pos/viewtest3.scala
+++ /dev/null
@@ -1,60 +0,0 @@
-package testview;
-
-trait Tree[+a <% Ordered[a]] {
- def insert[c >: b, b >: a <: c](x: b)(implicit d: c => Ordered[c]): Tree[b]
- def elements: List[a]
-}
-
-object Empty extends Tree[All] {
- def insert[c >: b, b >: a <: c](x: b)(implicit d: c => Ordered[c]): Tree[b] =
- new Node(x, Empty, Empty);
- def elements: List[All] = List();
-}
-
-class Node[a <% Ordered[a]](elem: a, l: Tree[a], r: Tree[a]) extends Tree[a] {
- def insert[c >: b, b >: a <: c](x: b)(implicit d: c => Ordered[c]): Tree[b] =
- if (x == elem) this
- else if (x < elem) new Node(elem, l insert x, r)
- else new Node(elem, l, r insert x);
- def elements: List[a] =
- l.elements ::: List(elem) ::: r.elements
-}
-
-case class Str(elem: String) extends Ordered[Str] {
- def compare[b >: Str <% Ordered[b]](that: b): int = that match {
- case that1: Str => this.elem compare that1.elem
- case _ => -(that compare this)
- }
-}
-
-object Test {
-// import O.view;
-
- private def toCharList(s: String): List[Char] =
- if (s.length() == 0) List()
- else s.charAt(0) :: toCharList(s.substring(1));
-
- def main(args: Array[String]) = {
- {
- var t: Tree[String] = Empty;
- for (val s <- args) {
- t = t insert s
- }
- System.out.println(t.elements)
- }
- {
- var t: Tree[Str] = Empty;
- for (val s <- args) {
- t = t insert Str(s)
- }
- System.out.println(t.elements)
- }
- {
- var t: Tree[List[char]] = Empty;
- for (val s <- args) {
- t = t insert toCharList(s)
- }
- System.out.println(t.elements)
- }
- }
-}