From 0eae69c3745f333c36b8d80448fecc01ed3135e8 Mon Sep 17 00:00:00 2001
From: alex <alex@slab.org>
Date: Sat, 15 Dec 2018 23:55:48 +0000
Subject: [PATCH] shows #420 is fixed

---
 test/Sound/Tidal/ParseTest.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/test/Sound/Tidal/ParseTest.hs b/test/Sound/Tidal/ParseTest.hs
index cabc5d80d..133399a81 100644
--- 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)