Feat: entretien de la codebase

tests/forth/temporal.rs

@@ -207,3 +207,124 @@ fn at_records_selected_spans() {
     assert_eq!(&script[trace.selected_spans[2].start as usize..trace.selected_spans[2].end as usize], "0.5");
     assert_eq!(&script[trace.selected_spans[4].start as usize..trace.selected_spans[4].end as usize], "0.75");
 }
+
+// --- arp tests ---
+
+fn get_notes(outputs: &[String]) -> Vec<f64> {
+    outputs
+        .iter()
+        .map(|o| parse_params(o).get("note").copied().unwrap_or(0.0))
+        .collect()
+}
+
+fn get_gains(outputs: &[String]) -> Vec<f64> {
+    outputs
+        .iter()
+        .map(|o| parse_params(o).get("gain").copied().unwrap_or(f64::NAN))
+        .collect()
+}
+
+#[test]
+fn arp_auto_subdivide() {
+    let outputs = expect_outputs(r#"sine s c4 e4 g4 b4 arp note ."#, 4);
+    let notes = get_notes(&outputs);
+    assert!(approx_eq(notes[0], 60.0));
+    assert!(approx_eq(notes[1], 64.0));
+    assert!(approx_eq(notes[2], 67.0));
+    assert!(approx_eq(notes[3], 71.0));
+    let deltas = get_deltas(&outputs);
+    let step_dur = 0.125;
+    assert!(approx_eq(deltas[0], 0.0));
+    assert!(approx_eq(deltas[1], 0.25 * step_dur));
+    assert!(approx_eq(deltas[2], 0.5 * step_dur));
+    assert!(approx_eq(deltas[3], 0.75 * step_dur));
+}
+
+#[test]
+fn arp_with_explicit_at() {
+    let outputs = expect_outputs(r#"0 0.25 0.5 0.75 at sine s c4 e4 g4 b4 arp note ."#, 4);
+    let notes = get_notes(&outputs);
+    assert!(approx_eq(notes[0], 60.0));
+    assert!(approx_eq(notes[1], 64.0));
+    assert!(approx_eq(notes[2], 67.0));
+    assert!(approx_eq(notes[3], 71.0));
+    let deltas = get_deltas(&outputs);
+    let step_dur = 0.125;
+    assert!(approx_eq(deltas[0], 0.0));
+    assert!(approx_eq(deltas[1], 0.25 * step_dur));
+    assert!(approx_eq(deltas[2], 0.5 * step_dur));
+    assert!(approx_eq(deltas[3], 0.75 * step_dur));
+}
+
+#[test]
+fn arp_single_note() {
+    let outputs = expect_outputs(r#"sine s c4 arp note ."#, 1);
+    let notes = get_notes(&outputs);
+    assert!(approx_eq(notes[0], 60.0));
+}
+
+#[test]
+fn arp_fewer_deltas_than_notes() {
+    let outputs = expect_outputs(r#"0 0.5 at sine s c4 e4 g4 b4 arp note ."#, 4);
+    let notes = get_notes(&outputs);
+    assert!(approx_eq(notes[0], 60.0));
+    assert!(approx_eq(notes[1], 64.0));
+    assert!(approx_eq(notes[2], 67.0));
+    assert!(approx_eq(notes[3], 71.0));
+    let deltas = get_deltas(&outputs);
+    let step_dur = 0.125;
+    assert!(approx_eq(deltas[0], 0.0));
+    assert!(approx_eq(deltas[1], 0.5 * step_dur));
+    assert!(approx_eq(deltas[2], 0.0));           // wraps: 2 % 2 = 0
+    assert!(approx_eq(deltas[3], 0.5 * step_dur)); // wraps: 3 % 2 = 1
+}
+
+#[test]
+fn arp_fewer_notes_than_deltas() {
+    let outputs = expect_outputs(r#"0 0.25 0.5 0.75 at sine s c4 e4 arp note ."#, 4);
+    let notes = get_notes(&outputs);
+    assert!(approx_eq(notes[0], 60.0));
+    assert!(approx_eq(notes[1], 64.0));
+    assert!(approx_eq(notes[2], 60.0)); // wraps
+    assert!(approx_eq(notes[3], 64.0)); // wraps
+}
+
+#[test]
+fn arp_multiple_params() {
+    let outputs = expect_outputs(r#"sine s c4 e4 g4 arp note 0.5 0.7 0.9 arp gain ."#, 3);
+    let notes = get_notes(&outputs);
+    assert!(approx_eq(notes[0], 60.0));
+    assert!(approx_eq(notes[1], 64.0));
+    assert!(approx_eq(notes[2], 67.0));
+    let gains = get_gains(&outputs);
+    assert!(approx_eq(gains[0], 0.5));
+    assert!(approx_eq(gains[1], 0.7));
+    assert!(approx_eq(gains[2], 0.9));
+}
+
+#[test]
+fn arp_no_arp_unchanged() {
+    // Standard CycleList without arp → cross-product (backward compat)
+    let outputs = expect_outputs(r#"0 0.5 at sine s c4 e4 note ."#, 4);
+    let notes = get_notes(&outputs);
+    // Cross-product: each note at each delta
+    assert!(approx_eq(notes[0], 60.0));
+    assert!(approx_eq(notes[1], 60.0));
+    assert!(approx_eq(notes[2], 64.0));
+    assert!(approx_eq(notes[3], 64.0));
+}
+
+#[test]
+fn arp_mixed_cycle_and_arp() {
+    // CycleList sound + ArpList note → flat loop, sound cycles
+    let outputs = expect_outputs(r#"sine saw s c4 e4 g4 arp note ."#, 3);
+    let sounds = get_sounds(&outputs);
+    // Sound is CycleList, cycles across the 3 arp emissions
+    assert_eq!(sounds[0], "sine");
+    assert_eq!(sounds[1], "saw");
+    assert_eq!(sounds[2], "sine");
+    let notes = get_notes(&outputs);
+    assert!(approx_eq(notes[0], 60.0));
+    assert!(approx_eq(notes[1], 64.0));
+    assert!(approx_eq(notes[2], 67.0));
+}