aboutsummaryrefslogtreecommitdiff
path: root/tests/function/regex
diff options
context:
space:
mode:
Diffstat (limited to 'tests/function/regex')
-rw-r--r--tests/function/regex/testscript82
1 files changed, 82 insertions, 0 deletions
diff --git a/tests/function/regex/testscript b/tests/function/regex/testscript
index 6ee4c4d..091c28a 100644
--- a/tests/function/regex/testscript
+++ b/tests/function/regex/testscript
@@ -129,6 +129,88 @@
EOE
}
+: replace_lines
+:
+{
+ : untyped
+ :
+ {
+ : return-list
+ :
+ {
+ : non-null-fmt
+ :
+ $* <<EOI >'foo.hxx bar.txt'
+ v = "foo.cxx
+ bar.txt"
+
+ print $regex.replace_lines($v, '(.*)\.cxx', '\1.hxx')
+ EOI
+
+ : null-fmt
+ :
+ $* <<EOI >'bar.txt'
+ v = "foo.cxx
+ bar.txt"
+
+ print $regex.replace_lines($v, '(.*)\.cxx', [null])
+ EOI
+ }
+
+ : return-lines
+ :
+ : Note that print adds the trailing newline the value it prints.
+ :
+ {
+ : non-null-fmt
+ :
+ $* <<EOI >>EOO
+ v = "foo.cxx
+ bar.txt"
+
+ print $regex.replace_lines($v, '(.*)\.cxx', '\1.hxx', return_lines)
+ EOI
+ foo.hxx
+ bar.txt
+ EOO
+
+ : null-fmt
+ :
+ $* <<EOI >'bar.txt'
+ v = "foo.cxx
+ bar.txt"
+
+ print $regex.replace_lines($v, '(.*)\.cxx', [null], return_lines)
+ EOI
+ }
+ }
+
+ : strings
+ :
+ {
+ : return-list
+ :
+ $* <<EOI >'foo.hxx bar.txt'
+ v = [string] "foo.cxx
+ bar.txt"
+
+ print $regex.replace_lines($v, [string] '(.*)\.cxx', [string] '\1.hxx')
+ EOI
+
+ : return-lines
+ :
+ $* <<EOI >>EOO
+ v = [string] "foo.cxx
+ bar.txt"
+
+ print $regex.replace_lines($v, [string] '(.*)\.cxx', [string]'\1.hxx', return_lines)
+ EOI
+ foo.hxx
+ bar.txt
+ EOO
+ }
+}
+
: match
:
{