Mercurial Mercurial > hg > stx-libjava / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixes to make resolving tests pass jk_new_structure
authorhlopkmar
Tue, 06 Dec 2011 16:31:41 +0000
branchjk_new_structure
changeset 1226 bd1d5c4ca4a8
parent 1225 30600ca8173c
child 1227 5b7722ac31a4
fixes to make resolving tests pass
src/JavaClassRefTests.st file | annotate | diff | comparison | revisions
src/JavaRef2.st file | annotate | diff | comparison | revisions
src/extensions.st file | annotate | diff | comparison | revisions 
--- a/src/JavaClassRefTests.st	Tue Dec 06 15:50:50 2011 +0000
+++ b/src/JavaClassRefTests.st	Tue Dec 06 16:31:41 2011 +0000
@@ -167,7 +167,7 @@
 testAllPrimitiveArrayClasses
     | classRef  descriptor |
 
-    #( $B $C $D $F $I $J $S $Z ) do: 
+    #( $B $D $F $I $J $S $Z ) do: 
             [:each | 
             descriptor := '[' , each.
             classRef := self getClassRefNamed: descriptor.
@@ -192,14 +192,13 @@
 
 testAllPrimitiveMultiArrayClasses
     | classRef  descriptor |
-
-    #( $B $C $D $F $I $J $S $Z )
-        do: 
-            [:each | 
-            descriptor := '[[[[' , each.
-            classRef := self getClassRefNamed: descriptor.
-            self assertTrue: ((JavaDescriptor readFromString: descriptor) javaClass 
-                        = classRef resolve) ].
+    #( $B $D $F $I $J $S $Z ) do: [
+        :each | 
+        descriptor := '[[[[' , each.
+        classRef := self getClassRefNamed: descriptor.
+        self assertTrue: ((JavaDescriptor readFromString: descriptor) javaClass name
+                    = classRef resolve name)
+    ].
 
     "Created: / 23-05-2011 / 20:50:04 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
 ! !
--- a/src/JavaRef2.st	Tue Dec 06 15:50:50 2011 +0000
+++ b/src/JavaRef2.st	Tue Dec 06 16:31:41 2011 +0000
@@ -60,10 +60,10 @@
     
     '[JavaRef] Dont instantiate me with new. Call my custom overriden object creation method' 
         infoPrintCR.
-    self breakPoint:#mh.
+
     ^ self basicNew initialize.
 
-    "Modified: / 01-11-2011 / 13:35:41 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+    "Modified: / 06-12-2011 / 17:02:11 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
 ! !
 
 !JavaRef2 methodsFor:'accessing'!
--- a/src/extensions.st	Tue Dec 06 15:50:50 2011 +0000
+++ b/src/extensions.st	Tue Dec 06 16:31:41 2011 +0000
@@ -487,6 +487,13 @@
 ! !
 !BooleanArray class methodsFor:'accessing-java'!
 
+javaArrayClass
+    ^ JavaArray javaArrayClassFor: self
+
+    "Created: / 06-12-2011 / 17:29:22 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+! !
+!BooleanArray class methodsFor:'accessing-java'!
+
 javaComponentClass
 
     ^Boolean
@@ -767,6 +774,13 @@
 ! !
 !DoubleArray class methodsFor:'accessing-java'!
 
+javaArrayClass
+    ^ JavaArray javaArrayClassFor: self.
+
+    "Created: / 06-12-2011 / 17:28:26 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+! !
+!DoubleArray class methodsFor:'accessing-java'!
+
 javaComponentClass
 
     ^Float
@@ -840,6 +854,13 @@
 ! !
 !FloatArray class methodsFor:'accessing-java'!
 
+javaArrayClass
+    ^ JavaArray javaArrayClassFor: self.
+
+    "Created: / 06-12-2011 / 17:29:01 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+! !
+!FloatArray class methodsFor:'accessing-java'!
+
 javaComponentClass
 
     ^ShortFloat
hg/stx-libjava