--- 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