Mercurial > repos > rhope
comparison teststring.rhope @ 78:4d5ea487f810
Working String implementation and some basic (but nowhere near exhaustive) tests
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Thu, 08 Jul 2010 21:55:47 -0400 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
77:a748300a4143 | 78:4d5ea487f810 |
---|---|
1 | |
2 Main[] | |
3 { | |
4 barbaz <- [right]Append["baz"] | |
5 ,right <- ["foobar"]Slice[3] | |
6 { Print[~] | |
7 { Print[right] | |
8 { Print[barbaz] | |
9 { | |
10 bar,baz <- [barbaz]Slice[3] | |
11 { Print[bar] | |
12 { Print[baz] | |
13 { | |
14 If[[bar]=[ [["b"]Append["a"]]Append["r"] ]] | |
15 { | |
16 Print["Comparison OK"] | |
17 { | |
18 ,delim,after <-["foshizzlemynizzle"]Partition["my"] | |
19 { Print[~] | |
20 { Print[delim] | |
21 { Print[after] }}} | |
22 | |
23 } | |
24 }{ | |
25 Print["Comparison failed"] | |
26 } | |
27 }}} | |
28 }}}} | |
29 } | |
30 |