Carp/test/sort.carp

(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"))
)