diff options
Diffstat (limited to 'tests/018/getput.tl')
| -rw-r--r-- | tests/018/getput.tl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/018/getput.tl b/tests/018/getput.tl index 7e8e2be1..ed5a4e5f 100644 --- a/tests/018/getput.tl +++ b/tests/018/getput.tl @@ -31,3 +31,11 @@ (true (contains "syntax error" errors)) t (true (contains "unterminated" errors)) t (true (contains ":1" errors)) t)) + +(mtest + (map-command-lines "tr '[a-z]' '[A-Z]'" '#"a b c") #"A B C" + (map-process-lines "tr" '#"[a-z] [A-Z]" '#"a b c") #"A B C" + (map-command-str "tr '[a-z]' '[A-Z]'" "abc") "ABC" + (map-process-str "tr" '#"[a-z] [A-Z]" "abc") "ABC" + (map-command-buf "tr '[a-z]' '[A-Z]'" #b'616263') #b'414243' + (map-process-buf "tr" '#"[a-z] [A-Z]" #b'616263') #b'414243') |