root/trunk/orca/tests/working/find.r
| Revision 82, 268 bytes (checked in by krobillard, 3 years ago) |
|---|
| Line | |
|---|---|
| 1 | REBOL [ |
| 2 | Purpose: {Test 'find native} |
| 3 | ] |
| 4 | |
| 5 | x: find [%t11.ext %t1.ext] %t1.EXT |
| 6 | print ["test1 - block/string case" type? x x] |
| 7 | |
| 8 | |
| 9 | |
| 10 | s: [1 2 3 4] |
| 11 | print ["skip1" find/skip s 1 2] |
| 12 | print ["skip2" find/skip s 2 2] |
| 13 | print ["skip3" find/skip s 3 2] |
| 14 | print ["skip4" find/skip s 4 2] |
Note: See TracBrowser
for help on using the browser.
