Added interop tests for constructors. development
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 03 Dec 2013 00:37:15 +0000
branchdevelopment
changeset 2953 7c542571c7c1
parent 2952 ff6465e92d95
child 2954 f5b13d9b249b
Added interop tests for constructors.
JavaLookupTests.st
java/libjava-projects/MethodLookupTests/src/cz/cvut/fit/swing/methodLookup/Object.java
--- a/JavaLookupTests.st	Tue Dec 03 00:17:49 2013 +0000
+++ b/JavaLookupTests.st	Tue Dec 03 00:37:15 2013 +0000
@@ -369,6 +369,48 @@
     "Modified (format): / 03-12-2012 / 17:45:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!JavaLookupTests methodsFor:'tests - java lookup - ctors'!
+
+test_ctor01_Integer_a
+    | o |
+
+    o :=  self javaTestClass new: 1.
+    self assert: (o instVarNamed: #eventsTally) == 1.
+    self assert: (o instVarNamed: #events) first = 'Integer Constructor'.
+
+    "Created: / 02-12-2013 / 23:39:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_ctor01_Integer_b
+    | o |
+
+    o :=  self javaTestClass new: (JAVA java lang Integer new: 1).
+    self assert: (o instVarNamed: #eventsTally) == 1.
+    self assert: (o instVarNamed: #events) first = 'Integer Constructor'.
+
+    "Created: / 02-12-2013 / 23:39:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_ctor01_String
+    | o |
+
+    o :=  self javaTestClass new: 'String'.
+    self assert: (o instVarNamed: #eventsTally) == 1.
+    self assert: (o instVarNamed: #events) first = 'String Constructor'.
+
+    "Created: / 02-12-2013 / 23:38:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_ctor01_default
+    | o |
+
+    o :=  self javaTestClass new.
+    self assert: (o instVarNamed: #eventsTally) == 1.
+    self assert: (o instVarNamed: #events) first = 'Default Constructor'.
+
+    "Created: / 02-12-2013 / 23:34:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !JavaLookupTests methodsFor:'tests - obsolete'!
 
 _testSetManipulator_add
--- a/java/libjava-projects/MethodLookupTests/src/cz/cvut/fit/swing/methodLookup/Object.java	Tue Dec 03 00:17:49 2013 +0000
+++ b/java/libjava-projects/MethodLookupTests/src/cz/cvut/fit/swing/methodLookup/Object.java	Tue Dec 03 00:37:15 2013 +0000
@@ -4,21 +4,29 @@
 
 public class Object implements TooGeneralInterface
 {
-    public ArrayList<String> events = new ArrayList<String>();
+    public char[][] events = new char[100][];
+    public int      eventsTally = 0;
 
     public Object()
     {
-        events.add("Default Constructor");
+        events[eventsTally++] = "Default Constructor".toCharArray();
     }
 
     public Object(String s)
     {
-        events.add("String Constructor");
+        s.compareTo("XX"); // Just to invoke some String method...
+        events[eventsTally++] = "String Constructor".toCharArray();
     }
 
     public Object(Integer i)
     {
-        events.add("Integer Constructor");
+        i.doubleValue(); // Just to invoke some Integer method
+        events[eventsTally++] = "Integer Constructor".toCharArray();
+    }
+    
+    public Object(cz.cvut.fit.swing.methodLookup.Object o)
+    {
+        events[eventsTally++] = "cz.cvut.fit.swing.methodLookup.Object".toCharArray();
     }
 
     public String sayHello()