1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
{-# LANGUAGE OverloadedStrings #-}
module Sound.Tidal.ChordsTest where
import TestUtils
import Test.Microspec
import Prelude hiding ((<*), (*>))
import Sound.Tidal.Pattern
run :: Microspec ()
run =
describe "Sound.Tidal.Chords" $ do
describe "chord" $ do
describe "chord length adjustments" $ do
it "can remove notes from the end of the list when length given is less than the standard chord length" $ do
compareP (Arc 0 1)
("'major'1")
("[0]" :: Pattern Note)
it "can do nothing when the length given is the same as the standard chord length" $ do
compareP (Arc 0 1)
("'major'3")
("[0, 4, 7]" :: Pattern Note)
it "can append chord notes at higher octaves to the list when length given is greater than the standard chord length" $ do
compareP (Arc 0 1)
("'major'5")
("[0, 4, 7, 12, 16]" :: Pattern Note)
describe "open voiced chords" $ do
it "can subtract 12 from the first and third element of a list, and sort them in ascending numerical order" $ do
compareP (Arc 0 1)
("'major'o")
("[-12, -5, 4]" :: Pattern Note)
it "not crash if chord length is < 3" $ do
compareP (Arc 0 1)
("'five'o")
("[0, 7]" :: Pattern Note)
describe "chord inversions" $ do
it "can add 12 to the first element of a list, and sort in ascending numeric order (1st inversion)" $ do
compareP (Arc 0 1)
("'major'i")
("[4, 7, 12]" :: Pattern Note)
it "can add 12 to the first two elements of a list, and sort in ascending numeric order (2nd inversion)" $ do
compareP (Arc 0 1)
("'major'ii")
("[7, 12, 16]" :: Pattern Note)
it "can add 12 to the first three elements of a list, and sort in ascending numeric order (3rd inversion)" $ do
compareP (Arc 0 1)
("'major'iii")
("[12, 16, 19]" :: Pattern Note)
describe "edge cases" $ do
it "gracefully handle an inversion when there are more inversions than notes in the chord (4th inversion of a 3 note chord)" $ do
compareP (Arc 0 1)
("'major'iiii")
("[16, 19, 24]" :: Pattern Note)
|
