From 86bd93d16bfb2d44c6d894db43b7ccd29374fccb Mon Sep 17 00:00:00 2001
From: Karen Arutyunov <karen@codesynthesis.com>
Date: Thu, 15 Dec 2022 14:18:19 +0300
Subject: Add $regex.filter[_out]_{match,search}() functions

---
 tests/function/regex/testscript | 116 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 116 insertions(+)

(limited to 'tests')

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
 :
 {
-- 
cgit v1.1