{-# LANGUAGE OverloadedStrings #-} module Sound.Tidal.UtilsTest where import Test.Microspec import Prelude hiding ((<*), (*>)) import Sound.Tidal.Utils run :: Microspec () run = describe "Sound.Tidal.Utils" \$ do describe "delta" \$ do it "subtracts the second element of a tuple from the first" \$ do property \$ delta (3,10) === (7 :: Int) describe "applies function to both elements of tuple" \$ do let res = mapBoth (+1) (2,5) property \$ ((3,6) :: (Int, Int)) === res describe "apply function to first element of tuple" \$ do let res = mapFst (+1) (2, 5) property \$ ((3, 5) :: (Int, Int)) === res describe "apply function to second element of tuple" \$ do let res = mapSnd (+1) (2, 5) property \$ ((2, 6) :: (Int, Int)) === res describe "return midpoint between first and second tuple value" \$ do let res = mid (2, 5) property \$ (3.5 :: Double) === res describe "return of two lists, with unique values to each list" \$ do let res = removeCommon [1,2,5,7,12,16] [2,3,4,5,15,16] property \$ (([1,7,12],[3,4,15]) :: ([Int], [Int])) === res describe "wrap around indexing" \$ do let res = (!!!) [1..5] 7 property \$ (3 :: Int) === res describe "safe list indexing" \$ do let res = nth 2 ([] :: [Int]) property \$ Nothing === res describe "list accumulation with given list elements" \$ do let res = accumulate ([1..5] :: [Int]) property \$ [1,3,6,10,15] === res describe "index elements in list" \$ do let res = enumerate ['a', 'b', 'c'] property \$ [(0,'a'),(1,'b'),(2,'c')] === res describe "split list by given pred" \$ do let res = wordsBy (== ':') "bd:3" property \$ ["bd", "3"] === res