[Mumps2Py:] [116] test file for the $select() intrinsic

[subversion@xxxxxxxxxxxxx]

Revision: 116
Author:   pgallot
Date:     2008-02-15 21:21:27 +0000 (Fri, 15 Feb 2008)

Log Message:
-----------
test file for the $select() intrinsic

Added Paths:
-----------
    trunk/testfiles/select.mps


Added: trunk/testfiles/select.mps
===================================================================
--- trunk/testfiles/select.mps	                        (rev 0)
+++ trunk/testfiles/select.mps	2008-02-15 21:21:27 UTC (rev 116)
@@ -0,0 +1,9 @@
+ S name="Watson" 
+ F i=3:-1:0 W !,$S(i=1:"here",i=2:"come",i=3:name)
+ f sex="M","F","Other" D
+ . W !
+ . SET name2=$S(sex="M":"Mr. ",sex="F":"Ms. ",1:"")_name
+ . F i=3:-1:1 W !,$S(i=1:"here",i=2:"come",i=3:name2)
+
+ 
+