From f500b3274b4c937d315a652aad3bfcdd808b49ec Mon Sep 17 00:00:00 2001
From: Boris Kolpackov <boris@codesynthesis.com>
Date: Tue, 2 Nov 2021 15:18:05 +0200
Subject: Add $sort() function

Available overloads:

$sort(<names> [, <flags>])
$sort(<ints> [, <flags>])
$sort(<strings> [, <flags>])
$sort(<paths> [, <flags>])
$sort(<dir_paths> [, <flags>])

The following flag is supported by the all overloads:

  dedup - in addition to sorting also remove duplicates

Additionally, the strings overload also support the following flag:

  icase - sort ignoring case

Note that on case-insensitive filesystem the paths and dir_paths overload's
order is case-insensitive.
---
 tests/function/builtin/testscript | 10 ++++++++++
 tests/function/path/testscript    | 17 ++++++++++++++++-
 tests/function/string/testscript  |  8 ++++++++
 3 files changed, 34 insertions(+), 1 deletion(-)

(limited to 'tests')

diff --git a/tests/function/builtin/testscript b/tests/function/builtin/testscript
index 3d31ca2..3853ec2 100644
--- a/tests/function/builtin/testscript
+++ b/tests/function/builtin/testscript
@@ -77,6 +77,16 @@
   $* <'print $type($identity(abc))'            >''         : untyped
 }
 
+: sort
+:
+{
+  $* <'print $sort( d/t{a} t{c b} d/t{a})'        >'t{b} t{c} d/t{a} d/t{a}' : name-basics
+  $* <'print $sort( d/t{a} t{c b} d/t{a}, dedup)' >'t{b} t{c} d/t{a}'        : name-dedup
+
+  $* <'print $sort([uint64s] 0 2 1 000)'        >'0 0 1 2' : int-basics
+  $* <'print $sort([uint64s] 0 2 1 000, dedup)' >'0 1 2'   : int-dedup
+}
+
 : getenv
 :
 {
diff --git a/tests/function/path/testscript b/tests/function/path/testscript
index ad76513..a408ba4 100644
--- a/tests/function/path/testscript
+++ b/tests/function/path/testscript
@@ -3,7 +3,8 @@
 
 .include ../../common.testscript
 
-posix = ($cxx.target.class != 'windows')
+windows = ($cxx.target.class == 'windows')
+posix = (!$windows)
 
 s = ($posix ? '/' : '\')
 
@@ -104,6 +105,20 @@ if! $posix
   EOO
 }
 
+: sort
+:
+{
+  $* <'print $sort([paths] a c b a)'        >'a a b c' : basics
+  $* <'print $sort([paths] a c b a, dedup)' >'a b c'   : dedup
+
+  : icase
+  :
+  if $windows
+  {
+    $* <'print $sort([paths] a C B a)' >'a a B c'
+  }
+}
+
 : invalid-path
 :
 p = ($posix ? /../foo : 'c:/../foo');
diff --git a/tests/function/string/testscript b/tests/function/string/testscript
index 9275fe5..5f80bfe 100644
--- a/tests/function/string/testscript
+++ b/tests/function/string/testscript
@@ -31,3 +31,11 @@
   $* <'print $trim([string] "  a  ")' >'a' : string
   $* <'print $string.trim(  "  a  ")' >'a' : untyped
 }
+
+: sort
+:
+{
+  $* <'print $sort([strings] a c b a)'        >'a a b c' : basics
+  $* <'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
+}
-- 
cgit v1.1