Changeset 179 for trunk/thune/tests

Timestamp:

06/10/06 02:17:23 (3 years ago)

Author:

krobillard

Message:

Thune - Added 'either.

Location:

trunk/thune/tests/working

Files:

• control.good (modified) (1 diff)
• control.t (modified) (1 diff)

trunk/thune/tests/working/control.good

@@ -16 +16 @@
 --- foreach 0 ---
 --- foreach 1 ---
- 1
- 2
- a
- b
- one
- two
- tree
+1
+2
+a
+b
+one
+two
+tree
 --- foreach 2 ---
- 1 2
- a b
- one two
- tree none
+1 2
+a b
+one two
+tree none
 --- foreach 3 ---
- 1 2 a
- b one two
- tree none none
+1 2 a
+b one two
+tree none none
 --- foreach 8 ---
- 1 2 a b one two tree none
+1 2 a b one two tree none
+--- either ---
+'T'
+'F'
+'F'
+'T'
+'T'
+'T'
 Tests done

trunk/thune/tests/working/control.t

@@ -12 +12 @@
 
 
-[[" " prin first reduce prin] iter eol prin] proc :rprint     ; (block -- )
-
 [1 2 'a 'b "one" "two" "tree"] :data
 
 "--- foreach 0 ---" print
-data tail [a] [[a] rprint] foreach
+data tail [a] [[a] print] foreach
 
 "--- foreach 1 ---" print
-data [a] [[a] rprint] foreach
+data [a] [[a] print] foreach
 
 "--- foreach 2 ---" print
-data [a b] [[a b] rprint] foreach
+data [a b] [[a b] print] foreach
 
 "--- foreach 3 ---" print
-data [a b c] [[a b c] rprint] foreach
+data [a b c] [[a b c] print] foreach
 
 "--- foreach 8 ---" print
-data [a b c d e f g h] [[a b c d e f g h] rprint] foreach
+data [a b c d e f g h] [[a b c d e f g h] print] foreach
+
+
+"--- either ---" print
+true   'T' 'F' either .
+false  'T' 'F' either .
+none   'T' 'F' either .
+0      'T' 'F' either .
+"str"  'T' 'F' either .
+1 ['T' .]['F' .] either