Changeset 141 for trunk/thune/tests
- Timestamp:
- 05/06/06 04:54:25 (3 years ago)
- Location:
- trunk/thune/tests/working
- Files:
-
- 2 modified
-
parse.good (modified) (2 diffs)
-
parse.t (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/thune/tests/working/parse.good
r125 r141 2 2 [:a-b 1 c2 1.23 2 3 3 3 'go 'd' 0 4 arr/1 pos/x 4 5 0.1 z:] 5 6 set-word! :a-b … … 12 13 char! 'd' 13 14 decimal! 0 15 selector! arr/1 16 selector! pos/x 14 17 decimal! 0.1 15 18 get-word! z: -
trunk/thune/tests/working/parse.t
r130 r141 38 38 ['0' - '9'] charset :digit 39 39 ['a' - 'z' 'A' - 'Z'] charset :alpha 40 ['a' - 'z' 'A' - 'Z' '0' - '9' "+-* /_.,!?|&"] charset :wordc40 ['a' - 'z' 'A' - 'Z' '0' - '9' "+-*_.,!?|&"] charset :wordc 41 41 ['a' - 'z' 'A' - 'Z' "+-*/_.,!?|&"] charset :word-start 42 42 ['0' - '9'] charset :digit … … 65 65 | word [ 66 66 ':' tok: (get-word! tok slice.prev app) 67 | '/' [some digit | word] tok: (selector! tok app) 67 68 | tok: (word! tok app) 68 69 ] … … 104 105 {:a-b 1 c2 1.23 2 3 105 106 'go 'd' 0.0 107 arr/1 pos/x 106 108 0.1 z:} read-thune 107 109 dup .
