diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2023-01-02 21:35:29 +0100 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2023-01-02 21:35:29 +0100 |
| commit | 58f600a1bda649cf60568fd6c53784f035899d63 (patch) | |
| tree | 16d0a79fe38f1856ccfe5600f4b8e266845f9d71 /tests | |
| parent | 31afd1f7be00fbd28ea1c66ad9411d4fdf722ea7 (diff) | |
| download | mew-58f600a1bda649cf60568fd6c53784f035899d63.tar.gz mew-58f600a1bda649cf60568fd6c53784f035899d63.tar.xz mew-58f600a1bda649cf60568fd6c53784f035899d63.zip | |
add sort-by
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test.mew | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/test.mew b/tests/test.mew index ba9c223..13817b0 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -803,3 +803,7 @@ (test #(1 2 3) (loc (v #(3 1 2)) (sort! v) v)) (test #(3 2 1) (loc (v #(3 1 2)) (sort! v >) v)) (test-error (sort! '(3 2 1)))) + +(test-group "sort-by" + (test '("foobar" "zing" "baz") (sort-by '("foobar" "zing" "baz") + (op - (len _))))) |