mirror of
https://github.com/carp-lang/Carp.git
synced 2024-09-11 05:25:28 +03:00
122 lines
3.7 KiB
Plaintext
122 lines
3.7 KiB
Plaintext
(use Array)
|
|
|
|
(load "Test.carp")
|
|
(use Test)
|
|
|
|
(deftest test
|
|
(let-do [arr [1 3 4 2 6 1]
|
|
exp [1 1 2 3 4 6]]
|
|
(Array.sort! &arr)
|
|
(assert-equal test
|
|
&exp
|
|
&arr
|
|
"Array.sort! works with integers"))
|
|
|
|
(let-do [arr [1 3 4 2 6 1]
|
|
exp [1 1 2 3 4 6]
|
|
res (Array.sorted &arr)]
|
|
(assert-equal test
|
|
&exp
|
|
&res
|
|
"Array.sorted works with integers"))
|
|
|
|
(let-do [res (Array.sort [1 3 4 2 6 1])
|
|
exp [1 1 2 3 4 6]]
|
|
(assert-equal test
|
|
&exp
|
|
&res
|
|
"Array.sort works with integers"))
|
|
|
|
(let-do [arr [1.0 0.8 12.4 3.2]
|
|
exp [0.8 1.0 3.2 12.4]]
|
|
(Array.sort! &arr)
|
|
(assert-equal test
|
|
&exp
|
|
&arr
|
|
"Array.sort! works with floats"))
|
|
|
|
(let-do [arr [1.0 0.8 12.4 3.2]
|
|
exp [0.8 1.0 3.2 12.4]
|
|
res (Array.sorted &arr)]
|
|
(assert-equal test
|
|
&exp
|
|
&res
|
|
"Array.sorted works with floats"))
|
|
|
|
(let-do [res (Array.sort [1.0 0.8 12.4 3.2])
|
|
exp [0.8 1.0 3.2 12.4]]
|
|
(assert-equal test
|
|
&exp
|
|
&res
|
|
"Array.sort works with floats"))
|
|
|
|
(let-do [arr [@"aaac" @"aaaa" @"aaab" @"aaad"]
|
|
exp [@"aaaa" @"aaab" @"aaac" @"aaad"]]
|
|
(Array.sort! &arr)
|
|
(assert-equal test
|
|
&exp
|
|
&arr
|
|
"Array.sort! works with strings"))
|
|
|
|
(let-do [arr [@"aaac" @"aaaa" @"aaab" @"aaad"]
|
|
exp [@"aaaa" @"aaab" @"aaac" @"aaad"]
|
|
res (Array.sorted &arr)]
|
|
(assert-equal test
|
|
&exp
|
|
&res
|
|
"Array.sorted works with strings"))
|
|
|
|
(let-do [res (Array.sort [@"aaac" @"aaaa" @"aaab" @"aaad"])
|
|
exp [@"aaaa" @"aaab" @"aaac" @"aaad"]]
|
|
(assert-equal test
|
|
&exp
|
|
&res
|
|
"Array.sort works with strings"))
|
|
|
|
(let-do [arr [\d \a \c \b]
|
|
exp [\a \b \c \d]]
|
|
(Array.sort! &arr)
|
|
(assert-equal test
|
|
&exp
|
|
&arr
|
|
"Array.sort! works with chars"))
|
|
|
|
(let-do [arr [\d \a \c \b]
|
|
exp [\a \b \c \d]
|
|
res (Array.sorted &arr)]
|
|
(assert-equal test
|
|
&exp
|
|
&res
|
|
"Array.sorted works with chars"))
|
|
|
|
(let-do [res (Array.sort [\d \a \c \b])
|
|
exp [\a \b \c \d]]
|
|
(assert-equal test
|
|
&exp
|
|
&res
|
|
"Array.sort works with chars"))
|
|
|
|
(let-do [arr [1 3 4 2 6 1]
|
|
exp [6 4 3 2 1 1]]
|
|
(Array.sort-by! &arr &(fn [a b] (< a b)))
|
|
(assert-equal test
|
|
&exp
|
|
&arr
|
|
"Array.sort-by! works with custom functions"))
|
|
|
|
(let-do [arr [1 3 4 2 6 1]
|
|
exp [6 4 3 2 1 1]
|
|
res (Array.sorted-by &arr &(fn [a b] (< a b)))]
|
|
(assert-equal test
|
|
&exp
|
|
&res
|
|
"Array.sorted-by works with custom functions"))
|
|
|
|
(let-do [res (Array.sort-by [1 3 4 2 6 1] &(fn [a b] (< a b)))
|
|
exp [6 4 3 2 1 1]]
|
|
(assert-equal test
|
|
&exp
|
|
&res
|
|
"Array.sort-by works with custom functions"))
|
|
)
|