From d31fcbbbfac0662df748b1fc9a18dcab2a4652a9 Mon Sep 17 00:00:00 2001
From: Eric Conlon <37287+ejconlon@users.noreply.github.com>
Date: Tue, 20 Feb 2024 05:41:01 -0800
Subject: [PATCH] etc

---
 minipat-live/test/Main.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/minipat-live/test/Main.hs b/minipat-live/test/Main.hs
index b671f3c..25874ee 100644
--- 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 $