Add $regex.filter[_out]_{match,search}() functions

1 files changed, 116 insertions, 0 deletions

diff --git a/tests/function/regex/testscript b/tests/function/regex/testscript
index 5167390..538bdab 100644
--- a/tests/function/regex/testscript
+++ b/tests/function/regex/testscript
@@ -478,6 +478,64 @@
   }
 }
 
+: filter-match
+:
+{
+  : match
+  :
+  {
+    : string
+    :
+    $* <<EOI >'-O2 -O3'
+    print $regex.filter_match(-g -O2 -O3, [string] '-O[23]')
+    EOI
+
+    : untyped
+    :
+    $* <<EOI >'-O2 -O3'
+    print $regex.filter_match(-g -O2 -O3, '-O[23]')
+    EOI
+
+    : strings
+    :
+    $* <<EOI >'-O2 -O3'
+    print $regex.filter_match([strings] -g -O2 -O3, '-O[23]')
+    EOI
+
+    : nomatch
+    :
+    $* <<EOI >''
+    print $regex.filter_match(-g -O1, '-O[23]')
+    EOI
+  }
+
+  : filter-out
+  :
+  {
+    : untyped
+    :
+    $* <<EOI >'-g'
+    print $regex.filter_out_match(-g -O2 -O3, '-O[23]')
+    EOI
+
+    : all-match
+    :
+    $* <<EOI >''
+    print $regex.filter_out_match(-O2 -O3, '-O[23]')
+    EOI
+  }
+
+  : flags
+  :
+  {
+    : icase
+    :
+    $* <<EOI >'Foo.cxx'
+    print $regex.filter_match(Foo.cxx, 'f[^.]+.*', icase)
+    EOI
+  }
+}
+
 : find-search
 :
 {
@@ -520,6 +578,64 @@
   }
 }
 
+: filter-search
+:
+{
+  : match
+  :
+  {
+    : string
+    :
+    $* <<EOI >'-O2 -O3'
+    print $regex.filter_search(-g -O2 -O3, [string] '-O')
+    EOI
+
+    : untyped
+    :
+    $* <<EOI >'-O2 -O3'
+    print $regex.filter_search(-g -O2 -O3, '-O')
+    EOI
+
+    : strings
+    :
+    $* <<EOI >'-O2 -O3'
+    print $regex.filter_search([strings] -g -O2 -O3, '-O')
+    EOI
+
+    : nomatch
+    :
+    $* <<EOI >''
+    print $regex.filter_search(-g, '-O')
+    EOI
+  }
+
+  : filter-out
+  :
+  {
+    : untyped
+    :
+    $* <<EOI >'-g'
+    print $regex.filter_out_search(-g -O2 -O3, '-O')
+    EOI
+
+    : all-match
+    :
+    $* <<EOI >''
+    print $regex.filter_out_search(-O2 -O3, '-O')
+    EOI
+  }
+
+  : flags
+  :
+  {
+    : icase
+    :
+    $* <<EOI >'Foo.cxx'
+    print $regex.filter_search(Foo.cxx, 'f', icase)
+    EOI
+  }
+}
+
 : merge
 :
 {