Mercurial > repos > rhope
diff 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 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/teststring.rhope Thu Jul 08 21:55:47 2010 -0400 @@ -0,0 +1,30 @@ + +Main[] +{ + barbaz <- [right]Append["baz"] + ,right <- ["foobar"]Slice[3] + { Print[~] + { Print[right] + { Print[barbaz] + { + bar,baz <- [barbaz]Slice[3] + { Print[bar] + { Print[baz] + { + If[[bar]=[ [["b"]Append["a"]]Append["r"] ]] + { + Print["Comparison OK"] + { + ,delim,after <-["foshizzlemynizzle"]Partition["my"] + { Print[~] + { Print[delim] + { Print[after] }}} + + } + }{ + Print["Comparison failed"] + } + }}} + }}}} +} +