Skip to content

Commit

Permalink
Remove handshake tests for now
Browse files Browse the repository at this point in the history
This reverts commit 8f6e3f7.
  • Loading branch information
matthewkaney committed Nov 29, 2023
1 parent 753142e commit 73ed26e
Showing 1 changed file with 2 additions and 10 deletions.
12 changes: 2 additions & 10 deletions test/Sound/Tidal/StreamTest.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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)

0 comments on commit 73ed26e

Please sign in to comment.