Working squeezeBind

packages/core/test/pattern.test.mjs

@@ -33,6 +33,7 @@ import {
   square2,
   tri,
   tri2,
+  id,
 } from '../strudel.mjs';
 //import { Time } from 'tone';
 import pkg from 'tone';
@@ -489,4 +490,12 @@ describe('Pattern', function() {
       )
     })
   })
+  describe("squeezeJoin", () => {
+    it("Can squeeze", () => {
+      assert.deepStrictEqual(
+        sequence("a", ["a","a"]).fmap(a => fastcat("b", "c")).squeezeJoin().firstCycle(),
+        sequence(["b", "c"],[["b", "c"],["b", "c"]]).firstCycle()
+      )
+    })
+  })
 })