--- a/RegressionTests__JITTest.st Thu Jun 21 09:29:31 2001 +0200
+++ b/RegressionTests__JITTest.st Thu Jun 21 09:36:17 2001 +0200
@@ -280,21 +280,21 @@
!JITTest methodsFor:'public - test - blocks'!
testFindFirst
- self assert:(self tstFindFirst1:1) == 1.
- self assert:(self tstFindFirst1:2) == 2.
- self assert:(self tstFindFirst1:3) == 3.
- self assert:(self tstFindFirst1:4) == 4.
- self assert:(self tstFindFirst1:0) == 0.
- self assert:(self tstFindFirst1:10) == 0.
- self assert:(self tstFindFirst1:4.0) == 0.
-
- self assert:(self tstFindFirst2:1) == 1.
- self assert:(self tstFindFirst2:2) == 2.
- self assert:(self tstFindFirst2:3) == 3.
- self assert:(self tstFindFirst2:4) == 4.
- self assert:(self tstFindFirst2:0) == 0.
- self assert:(self tstFindFirst2:10) == 0.
- self assert:(self tstFindFirst2:4.0) == 4.
+ self assert:(self findFirst1:1) == 1.
+ self assert:(self findFirst1:2) == 2.
+ self assert:(self findFirst1:3) == 3.
+ self assert:(self findFirst1:4) == 4.
+ self assert:(self findFirst1:0) == 0.
+ self assert:(self findFirst1:10) == 0.
+ self assert:(self findFirst1:4.0) == 0.
+
+ self assert:(self findFirst2:1) == 1.
+ self assert:(self findFirst2:2) == 2.
+ self assert:(self findFirst2:3) == 3.
+ self assert:(self findFirst2:4) == 4.
+ self assert:(self findFirst2:0) == 0.
+ self assert:(self findFirst2:10) == 0.
+ self assert:(self findFirst2:4.0) == 4.
"
self basicNew testFindFirst
@@ -742,6 +742,40 @@
"
!
+findFirst1:arg
+ |idx|
+
+ i1 := #(1 2 3 4) asOrderedCollection.
+ ^ i1 findFirst:[:el | el == arg]
+
+ "
+ self new findFirst1:1
+ self new findFirst1:2
+ self new findFirst1:3
+ self new findFirst1:4
+ self new findFirst1:0
+ self new findFirst1:10
+ self new findFirst1:4.0
+ "
+!
+
+findFirst2:arg
+ |idx|
+
+ i1 := #(1 2 3 4) asOrderedCollection.
+ ^ i1 findFirst:[:el | el = arg]
+
+ "
+ self new findFirst2:1
+ self new findFirst2:2
+ self new findFirst2:3
+ self new findFirst2:4
+ self new findFirst2:0
+ self new findFirst2:10
+ self new findFirst2:4.0
+ "
+!
+
nilBlock1
^ []
@@ -769,40 +803,6 @@
"
!
-tstFindFirst1:arg
- |idx|
-
- i1 := #(1 2 3 4) asOrderedCollection.
- ^ i1 findFirst:[:el | el == arg]
-
- "
- self new tstFindFirst1:1
- self new tstFindFirst1:2
- self new tstFindFirst1:3
- self new tstFindFirst1:4
- self new tstFindFirst1:0
- self new tstFindFirst1:10
- self new tstFindFirst1:4.0
- "
-!
-
-tstFindFirst2:arg
- |idx|
-
- i1 := #(1 2 3 4) asOrderedCollection.
- ^ i1 findFirst:[:el | el = arg]
-
- "
- self new tstFindFirst2:1
- self new tstFindFirst2:2
- self new tstFindFirst2:3
- self new tstFindFirst2:4
- self new tstFindFirst2:0
- self new tstFindFirst2:10
- self new tstFindFirst2:4.0
- "
-!
-
zeroBlock1
^ [0]