Add $size(string), $size(path), and $size(dir_path) functions

2 files changed, 18 insertions, 0 deletions

diff --git a/tests/function/path/testscript b/tests/function/path/testscript
index e674497..55d727f 100644
--- a/tests/function/path/testscript
+++ b/tests/function/path/testscript
@@ -119,6 +119,17 @@ if! $posix
   }
 }
 
+: size
+:
+{
+  $* <'print $size([path] abc)' >'3' : basics
+  $* <'print $size([path] )'    >'0' : zero
+
+  $* <'print $size([dir_path] abc)'  >'3' : dir-basics
+  $* <'print $size([dir_path] abc/)' >'3' : dir-separator
+  $* <'print $size([dir_path] )'     >'0' : dir-zero
+}
+
 : invalid-path
 :
 p = ($posix ? /../foo : 'c:/../foo');
diff --git a/tests/function/string/testscript b/tests/function/string/testscript
index 5f80bfe..00835ce 100644
--- a/tests/function/string/testscript
+++ b/tests/function/string/testscript
@@ -39,3 +39,10 @@
   $* <'print $sort([strings] a c b a, dedup)' >'a b c'   : dedup
   $* <'print $sort([strings] a C B a, icase)' >'a a B C' : icase
 }
+
+: size
+:
+{
+  $* <'print $size([string] abc)' >'3' : basics
+  $* <'print $size([string] )'    >'0' : zero
+}