# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 993122407 -7200
# Node ID 3b748ec54adbcfbadaf9ce0658fafd65fc900067
# Parent  d9d3ea81bfc340201742e7612d68e5fbfe14858d
*** empty log message ***

diff -r d9d3ea81bfc3 -r 3b748ec54adb RegressionTests__JITTest.st
--- 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
     ^ []