summaryrefslogtreecommitdiff
path: root/test/files/jvm
diff options
context:
space:
mode:
Diffstat (limited to 'test/files/jvm')
-rw-r--r--test/files/jvm/JavaInteraction.check4
-rw-r--r--test/files/jvm/JavaInteraction.scala24
-rw-r--r--test/files/jvm/serialization.check100
-rw-r--r--test/files/jvm/serialization.scala316
4 files changed, 444 insertions, 0 deletions
diff --git a/test/files/jvm/JavaInteraction.check b/test/files/jvm/JavaInteraction.check
new file mode 100644
index 0000000000..fb9d3cdd8c
--- /dev/null
+++ b/test/files/jvm/JavaInteraction.check
@@ -0,0 +1,4 @@
+p.x = 5
+p.c = java.awt.Color[r=255,g=0,b=0]
+p.getX() = 5.0
+p.getC() = java.awt.Color[r=255,g=0,b=0]
diff --git a/test/files/jvm/JavaInteraction.scala b/test/files/jvm/JavaInteraction.scala
new file mode 100644
index 0000000000..ee86e83dbd
--- /dev/null
+++ b/test/files/jvm/JavaInteraction.scala
@@ -0,0 +1,24 @@
+//############################################################################
+// Test Java interaction
+//############################################################################
+// $Id$
+
+import java.awt.Color;
+import java.awt.Point;
+
+class ColoredPoint(x: Int, y: Int, c_ : Color) extends Point(x, y) {
+ val c: Color = c_;
+ def getC(): Color = c;
+}
+
+object Test {
+ def main(args: Array[String]): Unit = {
+ val p = new ColoredPoint(5, 7, Color.RED);
+ System.out.println("p.x = " + p.x);
+ System.out.println("p.c = " + p.c);
+ System.out.println("p.getX() = " + p.getX());
+ System.out.println("p.getC() = " + p.getC());
+ }
+}
+
+//############################################################################
diff --git a/test/files/jvm/serialization.check b/test/files/jvm/serialization.check
new file mode 100644
index 0000000000..c2728a5401
--- /dev/null
+++ b/test/files/jvm/serialization.check
@@ -0,0 +1,100 @@
+x1 = List()
+y1 = List()
+x1 eq y1: true - y1 eq x1: true
+
+x2 = None
+y2 = None
+x2 eq y2: true - y2 eq x2: true
+
+x3 = Array[1,2,3]
+y3 = Array[1,2,3]
+arrayEquals(x3, y3): true
+
+x4 = <na>
+y4 = <na>
+x4(2): 4 - y4(2): 4
+
+x = List((buffers,20),(layers,2),(title,3))
+y = List((buffers,20),(layers,2),(title,3))
+x equals y: true - y equals x: true
+
+x = {buffers -> 20, layers -> 2, title -> 3}
+y = {buffers -> 20, layers -> 2, title -> 3}
+x equals y: true - y equals x: true
+
+x = {1}
+y = {1}
+x equals y: true - y equals x: true
+
+x = {5, 3}
+y = {5, 3}
+x equals y: true - y equals x: true
+
+x = Queue(a,b,c)
+y = Queue(a,b,c)
+x equals y: true - y equals x: true
+
+x = Stack(c, b, a)
+y = Stack(c, b, a)
+x equals y: true - y equals x: true
+
+x = {42 -> FortyTwo}
+y = {42 -> FortyTwo}
+x equals y: true - y equals x: true
+
+x = {0, 2}
+y = {0, 2}
+x equals y: true - y equals x: true
+
+x = {title -> 3, buffers -> 20, layers -> 2}
+y = {title -> 3, buffers -> 20, layers -> 2}
+x equals y: true - y equals x: true
+
+x = {0, 8, 9}
+y = {0, 8, 9}
+x equals y: true - y equals x: true
+
+x = {title, buffers, layers}
+y = {title, buffers, layers}
+x equals y: true - y equals x: true
+
+x = LinkedList(2, 3)
+y = LinkedList(2, 3)
+x equals y: true - y equals x: true
+
+x = Queue(20, 2, 3)
+y = Queue(20, 2, 3)
+x equals y: true - y equals x: true
+
+x = Stack(20, 2, 3)
+y = Stack(20, 2, 3)
+x equals y: true - y equals x: true
+
+x = <html><title>title</title><body></body></html>
+y = <html><title>title</title><body></body></html>
+x equals y: true - y equals x: true
+
+x = <html><body><table cellspacing="0" cellpadding="2"><tr><th>Last Name</th><th>First Name</th></tr><tr><td>Tom</td><td>20</td></tr><tr><td>Bob</td><td>22</td></tr><tr><td>James</td><td>19</td></tr></table></body></html>
+y = <html><body><table cellspacing="0" cellpadding="2"><tr><th>Last Name</th><th>First Name</th></tr><tr><td>Tom</td><td>20</td></tr><tr><td>Bob</td><td>22</td></tr><tr><td>James</td><td>19</td></tr></table></body></html>
+x equals y: true - y equals x: true
+
+x = Tim
+y = Tim
+x equals y: true - y equals x: true
+
+x = Bob
+y = Bob
+x equals y: true - y equals x: true
+
+x = John
+y = John
+x equals y: true - y equals x: true
+
+x = Bill
+y = Bill
+x equals y: true - y equals x: true
+
+x = Paul
+y = Paul
+x equals y: true - y equals x: true
+
diff --git a/test/files/jvm/serialization.scala b/test/files/jvm/serialization.scala
new file mode 100644
index 0000000000..f55af0d46f
--- /dev/null
+++ b/test/files/jvm/serialization.scala
@@ -0,0 +1,316 @@
+//############################################################################
+// Serialization
+//############################################################################
+// $Id$
+
+import java.lang.System;
+
+object EqualityTest {
+ def check[A, B](x: A, y: B): Unit = {
+ System.out.println("x = " + x);
+ System.out.println("y = " + y);
+ System.out.println(
+ "x equals y: " + (x equals y) + " - y equals x: " + (y equals x));
+ System.out.println();
+ }
+}
+
+object Serialize {
+ def write[A](o: A): Array[Byte] = { // throws Exception
+ val ba = new java.io.ByteArrayOutputStream(512);
+ val out = new java.io.ObjectOutputStream(ba);
+ out.writeObject(o);
+ out.close();
+ ba.toByteArray()
+ }
+ def read[A](buffer: Array[Byte]): A = { // throws Exception
+ val in =
+ new java.io.ObjectInputStream(new java.io.ByteArrayInputStream(buffer));
+ in.readObject().asInstanceOf[A]
+ }
+}
+
+//############################################################################
+// Test classes in package "scala"
+
+[serializable]
+object Test1_scala {
+ private def arrayToString[A](arr: Array[A]): String =
+ List.fromArray(arr).mkString("Array[",",","]");
+ private def arrayEquals[A, B](a1: Array[A], a2: Array[B]) =
+ (a1.length == a2.length) &&
+ (Iterator.range(0, a1.length) forall { i => a1(i) == a2(i) });
+ val x1 = Nil;
+ val x2 = None;
+ val x3 = Array(1, 2, 3);
+ val x4 = x: Int => 2 * x;
+
+ try {
+ val y1: List[All] = Serialize.read(Serialize.write(x1));
+ val y2: Option[All] = Serialize.read(Serialize.write(x2));
+ val y3: Array[Int] = Serialize.read(Serialize.write(x3));
+ val y4: Function[Int, Int] = Serialize.read(Serialize.write(x4));
+
+ System.out.println("x1 = " + x1);
+ System.out.println("y1 = " + y1);
+ System.out.println("x1 eq y1: " + (x1 eq y1) + " - y1 eq x1: " + (y1 eq x1));
+ System.out.println();
+ System.out.println("x2 = " + x2);
+ System.out.println("y2 = " + y2);
+ System.out.println("x2 eq y2: " + (x2 eq y2) + " - y2 eq x2: " + (y2 eq x2));
+ System.out.println();
+ System.out.println("x3 = " + arrayToString(x3));
+ System.out.println("y3 = " + arrayToString(y3));
+ System.out.println("arrayEquals(x3, y3): " + arrayEquals(x3, y3));
+ System.out.println();
+ System.out.println("x4 = <na>");
+ System.out.println("y4 = <na>");
+ System.out.println("x4(2): " + x4(2) + " - y4(2): " + y4(2));
+ System.out.println();
+ }
+ catch {
+ case e: Exception =>
+ e.printStackTrace();
+ System.out.println("Error in Test1_scala: " + e);
+ }
+}
+
+//############################################################################
+// Test classes in package "scala.collection.immutable"
+[serializable]
+object Test2_immutable {
+ import scala.collection.immutable.{BitSet,ListMap,ListSet,Queue,Stack,
+ TreeSet,TreeMap};
+
+ val x1 = List(
+ Pair("buffers", 20),
+ Pair("layers", 2),
+ Pair("title", 3)
+ );
+
+ val x2 = new ListMap[String, Int]
+ .incl(Pair("buffers", 20))
+ .incl(Pair("layers", 2))
+ .incl(Pair("title", 3));
+
+ val x3 = new BitSet(4, Array(2), true);
+
+ val x4 = new ListSet[Int]().incl(3).incl(5);
+
+ val x5 = new Queue("a", "b", "c");
+
+ val x6 = new Stack().push("a", "b", "c");
+
+ val x7 = new TreeMap[Int, String] + 42 -> "FortyTwo";
+
+ val x8 = new TreeSet[Int]().incl(2).incl(0);
+
+ try {
+ val y1: List[Pair[String, Int]] = Serialize.read(Serialize.write(x1));
+ val y2: ListMap[String, Int] = Serialize.read(Serialize.write(x2));
+ val y3: BitSet = Serialize.read(Serialize.write(x3));
+ val y4: ListSet[Int] = Serialize.read(Serialize.write(x4));
+ val y5: Queue[String] = Serialize.read(Serialize.write(x5));
+ val y6: Stack[String] = Serialize.read(Serialize.write(x6));
+ val y7: TreeMap[Int, String] = Serialize.read(Serialize.write(x7));
+ val y8: TreeSet[Int] = Serialize.read(Serialize.write(x8));
+
+ EqualityTest.check(x1, y1);
+ EqualityTest.check(x2, y2);
+ EqualityTest.check(x3, y3);
+ EqualityTest.check(x4, y4);
+ EqualityTest.check(x5, y5);
+ EqualityTest.check(x6, y6);
+ EqualityTest.check(x7, y7);
+ EqualityTest.check(x8, y8);
+ }
+ catch {
+ case e: Exception =>
+ System.out.println("Error in Test2_immutable: " + e);
+ }
+}
+
+//############################################################################
+// Test classes in package "scala.collection.mutable"
+
+object Test3_mutable {
+ import scala.collection.mutable.{BitSet,HashMap,HashSet,LinkedList,
+ Queue,Stack};
+
+ val x1 = new HashMap[String, Int];
+ x1 ++= Test2_immutable.x1;
+
+ val x2 = new BitSet();
+ x2.set(0);
+ x2.set(8);
+ x2.set(9);
+
+ val x3 = new HashSet[String];
+ x3 ++= Test2_immutable.x1.map(p => p._1);
+
+ val x4 = new LinkedList[Int](2, null);
+ x4.append(new LinkedList(3, null));
+
+ val x5 = new Queue[Int];
+ x5 ++= Test2_immutable.x1.map(p => p._2);
+
+ val x6 = new Stack[Int];
+ x6 ++= x5;
+
+ try {
+ val y1: HashMap[String, Int] = Serialize.read(Serialize.write(x1));
+ val y2: BitSet = Serialize.read(Serialize.write(x2));
+ val y3: HashSet[String] = Serialize.read(Serialize.write(x3));
+ val y4: LinkedList[Int] = Serialize.read(Serialize.write(x4));
+ val y5: Queue[Int] = Serialize.read(Serialize.write(x5));
+ val y6: Stack[Int] = Serialize.read(Serialize.write(x6));
+
+ EqualityTest.check(x1, y1);
+ EqualityTest.check(x2, y2);
+ EqualityTest.check(x3, y3);
+ EqualityTest.check(x4, y4);
+ EqualityTest.check(x5, y5);
+ EqualityTest.check(x6, y6);
+ }
+ catch {
+ case e: Exception =>
+ System.out.println("Error in Test3_mutable: " + e);
+ }
+}
+
+//############################################################################
+// Test classes in package "scala.xml"
+
+object Test4_xml {
+ import scala.xml.{Elem};
+
+ val x1 = <html><title>title</title><body></body></html>;
+
+ case class Person(name: String, age: Int);
+
+ class AddressBook(a: Person*) {
+ private val people: List[Person] = a.toList;
+ def toXHTML =
+ <table cellpadding="2" cellspacing="0">
+ <tr>
+ <th>Last Name</th>
+ <th>First Name</th>
+ </tr>
+ { for (val p <- people) yield
+ <tr>
+ <td> { p.name } </td>
+ <td> { p.age.toString() } </td>
+ </tr> }
+ </table>;
+ }
+
+ val people = new AddressBook(
+ Person("Tom", 20),
+ Person("Bob", 22),
+ Person("James", 19));
+
+ val x2 =
+ <html>
+ <body>
+ { people.toXHTML }
+ </body>
+ </html>;
+
+ try {
+ val y1: scala.xml.Elem = Serialize.read(Serialize.write(x1));
+ val y2: scala.xml.Elem = Serialize.read(Serialize.write(x2));
+
+ EqualityTest.check(x1, y1);
+ EqualityTest.check(x2, y2);
+ }
+ catch {
+ case e: Exception =>
+ System.out.println("Error in Test4_xml: " + e);
+ }
+}
+
+//############################################################################
+// Test user-defined classes WITHOUT nesting
+
+[serializable]
+class Person(_name: String) {
+ private var name = _name;
+ override def toString() = name;
+ override def equals(that: Any): Boolean =
+ that.isInstanceOf[Person] &&
+ (name == that.asInstanceOf[Person].name);
+}
+
+[serializable]
+class Employee(_name: String) {
+ private var name = _name;
+ override def toString() = name;
+}
+[serializable]
+object bob extends Employee("Bob");
+
+object Test5 {
+ val x1 = new Person("Tim");
+ val x2 = bob;
+
+ try {
+ val y1: Person = Serialize.read(Serialize.write(x1));
+ val y2: Employee = Serialize.read(Serialize.write(x2));
+
+ EqualityTest.check(x1, y1);
+ EqualityTest.check(x2, y2);
+ }
+ catch {
+ case e: Exception =>
+ System.out.println("Error in Test5: " + e);
+ }
+}
+
+//############################################################################
+// Test user-defined classes WITH nesting
+
+[serializable]
+object Test6 {
+ [serializable]
+ object bill extends Employee("Bill") {
+ val x = paul;
+ }
+ [serializable]
+ object paul extends Person("Paul") {
+ val x = 4; // bill; => StackOverflowException !!!
+ }
+ val x1 = new Person("John");
+ val x2 = bill;
+ val x3 = paul;
+
+ try {
+ val y1: Person = Serialize.read(Serialize.write(x1));
+ val y2: Employee = Serialize.read(Serialize.write(x2));
+ val y3: Person = Serialize.read(Serialize.write(x3));
+
+ EqualityTest.check(x1, y1);
+ EqualityTest.check(x2, y2);
+ EqualityTest.check(x3, y3);
+ }
+ catch {
+ case e: Exception =>
+ System.out.println("Error in Test6: " + e);
+ }
+}
+
+//############################################################################
+// Test code
+
+object Test {
+ def main(args: Array[String]): Unit = {
+ Test1_scala;
+ Test2_immutable;
+ Test3_mutable;
+ Test4_xml;
+ Test5;
+ Test6
+ }
+}
+
+//############################################################################
+
generated by cgit v1.2.3 (git 2.39.1) at 2024-07-26 14:10:29 +0000