--- a/RegressionTests__JITTest.st Thu Jun 21 09:36:17 2001 +0200
+++ b/RegressionTests__JITTest.st Thu Jun 21 13:20:07 2001 +0200
@@ -296,6 +296,15 @@
self assert:(self findFirst2:10) == 0.
self assert:(self findFirst2:4.0) == 4.
+
+ self assert:(self findFirst3:1) == 1.
+ self assert:(self findFirst3:2) == 2.
+ self assert:(self findFirst3:3) == 3.
+ self assert:(self findFirst3:4) == 4.
+ self assert:(self findFirst3:0) == 0.
+ self assert:(self findFirst3:10) == 0.
+ self assert:(self findFirst3:4.0) == 0.
+
"
self basicNew testFindFirst
"
@@ -776,6 +785,35 @@
"
!
+findFirst3:arg
+ i1 := #(1 2 3 4) asOrderedCollection.
+ ^ self findFirst3b:arg
+
+ "
+ self new findFirst3:1
+ self new findFirst3:2
+ self new findFirst3:3
+ self new findFirst3:4
+ self new findFirst3:0
+ self new findFirst3:10
+ self new findFirst3:4.0
+ "
+!
+
+findFirst3b:arg
+ ^ i1 findFirst:[:el | el == arg]
+
+ "
+ self new findFirst3:1
+ self new findFirst3:2
+ self new findFirst3:3
+ self new findFirst3:4
+ self new findFirst3:0
+ self new findFirst3:10
+ self new findFirst3:4.0
+ "
+!
+
nilBlock1
^ []