square bracket test

tidalcycles · Apr 12, 2018 · 555b043 · 555b043
1 parent ef658d3
commit 555b043
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/tests/test.hs b/tests/test.hs
@@ -13,15 +13,21 @@ import Sound.Tidal.Context
 main = defaultMain tests
 
 tests :: TestTree
-tests = testGroup "Tests" [basic1
+tests = testGroup "Tests" [basic1,
+                           parser1
                            -- patternsOfPatterns
                           ]
 
 basic1 = testGroup "fast / slow"
          [
            testCase "silence" $ same16 (fast 1.1 silence) (silence :: Pattern Double),
            testCase "fast" $ same16  silence (silence :: Pattern Double),
-           testCase "fast" $ same16 "bd*128" (rep 128 "bd")
+           testCase "fast2" $ same16 "bd*128" (rep 128 "bd")
+         ]
+
+parser1 = testGroup "subpatterns"
+         [
+           testCase "square" $ same16 ("bd sn" :: Pattern String) ("[bd sn]" :: Pattern String)
          ]
 
 patternsOfPatterns =