StepwiseTest.hs

{-# LANGUAGE OverloadedStrings #-}

module Sound.Tidal.StepwiseTest where

import Sound.Tidal.Control (chop, hurry, striate)
import Sound.Tidal.Core ()
import Sound.Tidal.Params (sound)
import Sound.Tidal.ParseBP ()
import Sound.Tidal.Pattern
  ( ArcF (Arc),
    Pattern (steps),
    fast,
    rev,
  )
import Sound.Tidal.Stepwise (expand, stepcat, stepdrop, steptake)
import Sound.Tidal.UI (inv, iter, linger, segment)
import Test.Hspec (Spec, describe, it, shouldBe)
import TestUtils (compareP, firstCycleValues)
import Prelude hiding ((*>), (<*))

run :: Spec
run =
  describe "Sound.Tidal.Stepwise" $ do
    describe "stepcat" $ do
      it "can stepwise cat" $ do
        compareP (Arc 0 8) (stepcat ["a b c", "d e" :: Pattern String]) "a b c d e"
    describe "expand" $ do
      it "can pattern expands" $ do
        compareP (Arc 0 8) (expand "2 1" ("a b c" :: Pattern Char)) "a@2 b@2 c@2 a b c"
    describe "steptake" $ do
      it "can pattern steptakes" $ do
        compareP (Arc 0 8) (steptake "1 2 3 4" ("a b c d" :: Pattern Char)) "a a b a b c a b c d"
      it "can pattern reverse steptakes" $ do
        compareP (Arc 0 8) (steptake "-1 -2 -3 -4" ("a b c d" :: Pattern Char)) "d c d b c d a b c d"
    describe "stepdrop" $ do
      it "can pattern stepdrops" $ do
        compareP (Arc 0 8) (stepdrop "0 1 2 3" ("a b c d" :: Pattern Char)) "a b c d a b c a b a"
      it "can pattern reverse stepdrops" $ do
        compareP (Arc 0 8) (stepdrop "0 -1 -2 -3" ("a b c d" :: Pattern Char)) "a b c d b c d c d d"
    describe "step count is correctly preserved/calculated through transformations" $ do
      it "linger" $ steps (linger 4 "a b c" :: Pattern Char) `shouldBe` Just 3
      it "iter" $ steps (iter 4 "a b c" :: Pattern Char) `shouldBe` Just 3
      it "fast" $ steps (fast 4 "a b c" :: Pattern Char) `shouldBe` Just 3
      it "hurry" $ steps (hurry 4 $ sound "a b c") `shouldBe` Just 3
      it "rev" $ steps (rev "a b c" :: Pattern Char) `shouldBe` Just 3
      it "segment" $ steps (segment 10 "a" :: Pattern Char) `shouldBe` Just 10
      it "invert" $ steps (inv "1 0 1" :: Pattern Bool) `shouldBe` Just 3
      it "chop" $ steps (chop 3 $ sound "a b") `shouldBe` Just 6
      it "chop" $ steps (striate 3 $ sound "a b") `shouldBe` Just 6

-- describe "polymeter" $ do
--   it "can repeat patterns to step count lcm" $
--     compareP (Arc 0 8) (polymeter ["a b c" :: Pattern Char, "d e"]) "{a b c, d e}%6"
--   it "can work with 3 patterns" $
--     compareP (Arc 0 8) (polymeter ["a b c" :: Pattern Char, "d e", "f g h i"]) "{a b c, d e, f g h i}%12"