Changeset 82 for trunk/orca/tests

Timestamp:

03/08/06 18:01:08 (3 years ago)

Author:

krobillard

Message:

find/skip now works on blocks.

Location:

trunk/orca/tests

Files:

• run_test (modified) (1 diff)
• working/find.r (modified) (1 diff)

trunk/orca/tests/run_test

@@ -2 +2 @@
 
 INTERPRETER=../orca
-REBOL=rebol
+#REBOL=rebol
 #REBOL=./rebol
-#REBOL=./rebol_view_1.2.47
+REBOL=./rebol_view_1.2.47
 
 #DIFF='diff -w --ignore-blank-lines'

trunk/orca/tests/working/find.r

@@ -5 +5 @@
 x: find [%t11.ext  %t1.ext] %t1.EXT
 print ["test1 - block/string case" type? x x]
+
+
+
+s: [1 2 3 4]
+print ["skip1" find/skip s 1 2]
+print ["skip2" find/skip s 2 2]
+print ["skip3" find/skip s 3 2]
+print ["skip4" find/skip s 4 2]