| [Mumps2Py:] [89] test file for the $FIND intrinsic function. |
[ Thread Index |
Date Index
| More lists.mumps2py.org/discuss Archives
]
Revision: 89
Author: pgallot
Date: 2008-02-11 21:33:45 +0000 (Mon, 11 Feb 2008)
Log Message:
-----------
test file for the $FIND intrinsic function.
Added Paths:
-----------
trunk/testfiles/find.mps
Added: trunk/testfiles/find.mps
===================================================================
--- trunk/testfiles/find.mps (rev 0)
+++ trunk/testfiles/find.mps 2008-02-11 21:33:45 UTC (rev 89)
@@ -0,0 +1,5 @@
+ SET teststr="ABCABC"
+ WRITE !,$F(teststr,"B")
+ WRITE !,$F(teststr,"A",3)
+ WRITE !,$F(teststr,"AB",3)
+ FOR i=1:1:6 W !,$E(teststr,i,$F(teststr,"A",i)-1)