From cd1bedac52a5398e5124b32351f6fb45dddb0000 Mon Sep 17 00:00:00 2001
From: hellerve <veit@veitheller.de>
Date: Wed, 10 Jan 2018 16:18:42 +0100
Subject: [PATCH] tests: added test case for sort

---
 test/array.carp | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/test/array.carp b/test/array.carp
index dd9e6876..5a30210f 100644
--- a/test/array.carp
+++ b/test/array.carp
@@ -12,6 +12,11 @@
 
 (defn inc-ref [x] (+ @x 1))
 
+(defn cmp [a b]
+  (if (= @a @b)
+    0
+    (if (> @a @b) 1 -1)))
+
 (defn main []
   (let [a (range 0 9 1)
         b (Array.replicate 5 "Hi")]
@@ -81,6 +86,11 @@
                     &(range 10 0 -1)
                     "range works as expected"
       )
+      (assert-equal test
+                    &[1 2 3 4 5 6 7 8 9]
+                    (sort &(range 9 1 -1) cmp)
+                    "sort works as expected"
+      )
       (assert-equal test
                     &[@"Hi!" @"Hi!" @"Hi!" @"Hi!" @"Hi!"]
                     &(endo-map excl b)