From 73ed26e55ba9c42aeea6c09fee1ba225fe675e70 Mon Sep 17 00:00:00 2001
From: Matthew Kaney <matthew@mindofmatthew.com>
Date: Mon, 17 Jul 2023 20:50:46 -0400
Subject: [PATCH] Remove handshake tests for now

This reverts commit 8f6e3f72a7c1ad2bbd87637921577c19cb2e39d6.
---
 test/Sound/Tidal/StreamTest.hs | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

diff --git a/test/Sound/Tidal/StreamTest.hs b/test/Sound/Tidal/StreamTest.hs
index 3ce881c28..83f0fa47b 100644
--- a/test/Sound/Tidal/StreamTest.hs
+++ b/test/Sound/Tidal/StreamTest.hs
@@ -4,15 +4,13 @@ module Sound.Tidal.StreamTest where
 
 import Test.Microspec
 
-import Sound.Tidal.Config
 import Sound.Tidal.Stream
 import Sound.Tidal.Pattern
 import qualified Sound.Osc.Fd as O
 import qualified Data.Map.Strict as M
-import Control.Concurrent.MVar
 
-main :: Microspec ()
-main =
+run :: Microspec ()
+run =
   describe "Sound.Tidal.Stream" $ do
     describe "toDatum" $ do
       it "should convert VN to osc float" $ do
@@ -37,9 +35,3 @@ main =
         getString (M.singleton "s" (VS "sn")) "s=bd" `shouldBe` Just "sn"
       it "should work for missing params with fallback expressions" $ do
         getString M.empty "s=bd" `shouldBe` Just "bd"
-    
-    describe "handshake" $ do
-      it "should only handshake when a busPort is set" $ monadicIO $ do
-        superdirtHandshake <- run $ newMVar False
-        run $ startStream defaultConfig [(superdirtTarget, [superdirtShape])]
-        (== True) <$> run (readMVar superdirtHandshake)
\ No newline at end of file