-- Helpers/tests/SortingSpec.hs

import Test.Hspec
import Data.List
import Helpers.Sorting

main :: IO()
main = hspec $ do
    describe "Quicksort" $ do
        it "Should sort a list of Ints" $ do
            quicksort [4,1,3,2] `shouldBe` [1,2,3,4]
        it "Should sort a list of chars" $ do
            quicksort ["c","r","s","b"] `shouldBe` ["b","c","r","s"]
        it "Should sort a string" $ do
            quicksort "hithere" `shouldBe` "eehhirt"
        it "Should sort a one item list" $ do
            quicksort [4] `shouldBe` [4]
