From 221a53ed3d18217d06f7d8e0bdf9ce315ca2413c Mon Sep 17 00:00:00 2001
From: Boris Kolpackov <boris@codesynthesis.com>
Date: Mon, 1 Apr 2024 10:23:37 +0200
Subject: Add $string.replace() function

---
 tests/function/string/testscript | 45 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)

(limited to 'tests/function')

diff --git a/tests/function/string/testscript b/tests/function/string/testscript
index 96f5c52..244ace8 100644
--- a/tests/function/string/testscript
+++ b/tests/function/string/testscript
@@ -25,6 +25,51 @@
   }
 }
 
+: replace
+:
+{
+  : basics
+  :
+  {
+    $* <'print $string.replace(  abcb,      b, BB)' >'aBBcBB'  : expand
+    $* <'print $string.replace(  aabbccbb, bb,  B)' >'aaBccB'  : shrink
+    $* <'print $replace([string] abc,       b,  B)' >'aBc'     : typed
+    $* <'print $replace([string]  "",       b,  B)' >''        : empty
+    $* <'print $replace([string] bbb,       b, "")' >''        : to-empty
+  }
+
+  : icase
+  :
+  {
+    $* <'print $string.replace(abcB, b, X, icase)' >'aXcX'
+  }
+
+  : first
+  :
+  {
+    $* <'print $string.replace(babc, b, B, first_only)' >'Babc' : first
+    $* <'print $string.replace(abcb, b, B, first_only)' >'aBcb' : middle
+    $* <'print $string.replace(b,    b, B, first_only)' >'B'    : only
+  }
+
+  : last
+  :
+  {
+    $* <'print $string.replace(babc, b, B, last_only)' >'baBc' : middle
+    $* <'print $string.replace(abcb, b, B, last_only)' >'abcB' : last
+    $* <'print $string.replace(b,    b, B, last_only)' >'B'    : only
+  }
+
+  : first-and-last
+  :
+  {
+    $* <'print $string.replace(ac,   b, B, first_only last_only)' >'ac'   : zero
+    $* <'print $string.replace(abc,  b, B, first_only last_only)' >'aBc'  : one
+    $* <'print $string.replace(abcb, b, B, first_only last_only)' >'abcb' : two
+    $* <'print $string.replace(b,    b, B, first_only last_only)' >'B'    : only
+  }
+}
+
 : trim
 :
 {
-- 
cgit v1.1