etc

ejconlon · Feb 20, 2024 · d31fcbb · d31fcbb
1 parent e6b8a88
commit d31fcbb
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/minipat-live/test/Main.hs b/minipat-live/test/Main.hs
@@ -16,6 +16,10 @@ import Test.Tasty.HUnit (testCase, (@?=))
 
 testRecord :: TestTree
 testRecord = testCase "record" $ do
+  -- 2000000000 (ns) here is 2 seconds
+  -- Default 120 bpm, 1 gpc means 2 second generation delay
+  -- and 1/2 second per beat
+  -- 1000000 (us) is 1 second
   let expected =
         Seq.fromList
           [ Timed 2000000000 $