You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
491 B
19 lines
491 B
package require punk |
|
catch {unset result} |
|
|
|
dict= {a aaa b {z zzz x xxx y yyy}} |
|
|
|
pipeset pipeline result.= in.= val $dict |> string toupper |> @@B/X= |
|
puts stdout "pipeline: $pipeline" |
|
$pipeline |
|
puts stdout "result: $result" |
|
punk::assert {$result eq "XXX"} |
|
|
|
pipeset pipeline result.= in.= val $dict |> string toupper |> @tail/end/not-head/not-tail/0/0= |
|
puts stdout "pipeline: $pipeline" |
|
$pipeline |
|
puts stdout "result: $result" |
|
punk::assert {$result eq "ZZZ"} |
|
|
|
|
|
puts "-done-" |