shows #420 is fixed

tidalcycles · Dec 15, 2018 · 0eae69c · 0eae69c
1 parent df3bafc
commit 0eae69c
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/test/Sound/Tidal/ParseTest.hs b/test/Sound/Tidal/ParseTest.hs
@@ -54,4 +54,16 @@ run =
         compareP (Arc 0 2)
           ("c'major e'minor f'dim7" :: Pattern Int)
           ("c e f" + "'major 'minor 'dim7")
+      it "doesn't crash on zeroes (1)" $ do
+        compareP (Arc 0 2)
+          ("cp/0" :: Pattern String)
+          (silence)
+      it "doesn't crash on zeroes (2)" $ do
+        compareP (Arc 0 2)
+          ("cp(5,0)" :: Pattern String)
+          (silence)
+      it "doesn't crash on zeroes (3)" $ do
+        compareP (Arc 0 2)
+          ("cp(5,c)" :: Pattern String)
+          (silence)