Init

tests/forth/sound.rs

@@ -0,0 +1,125 @@
+use super::harness::*;
+
+#[test]
+fn basic_emit() {
+    let outputs = expect_outputs(r#""kick" sound emit"#, 1);
+    assert!(outputs[0].contains("sound/kick"));
+}
+
+#[test]
+fn alias_s() {
+    let outputs = expect_outputs(r#""snare" s emit"#, 1);
+    assert!(outputs[0].contains("sound/snare"));
+}
+
+#[test]
+fn with_params() {
+    let outputs = expect_outputs(r#""kick" s 440 freq 0.5 gain emit"#, 1);
+    assert!(outputs[0].contains("sound/kick"));
+    assert!(outputs[0].contains("freq/440"));
+    assert!(outputs[0].contains("gain/0.5"));
+}
+
+#[test]
+fn auto_dur() {
+    let outputs = expect_outputs(r#""kick" s emit"#, 1);
+    assert!(outputs[0].contains("dur/"));
+}
+
+#[test]
+fn auto_delaytime() {
+    let outputs = expect_outputs(r#""kick" s emit"#, 1);
+    assert!(outputs[0].contains("delaytime/"));
+}
+
+#[test]
+fn emit_no_sound() {
+    expect_error("emit", "no sound set");
+}
+
+#[test]
+fn implicit_emit() {
+    let outputs = expect_outputs(r#""kick" s 440 freq"#, 1);
+    assert!(outputs[0].contains("sound/kick"));
+    assert!(outputs[0].contains("freq/440"));
+}
+
+#[test]
+fn multiple_emits() {
+    let outputs = expect_outputs(r#""kick" s emit "snare" s emit"#, 2);
+    assert!(outputs[0].contains("sound/kick"));
+    assert!(outputs[1].contains("sound/snare"));
+}
+
+#[test]
+fn subdivide_each() {
+    let outputs = expect_outputs(r#""kick" s 4 div each"#, 4);
+}
+
+#[test]
+fn window_pop() {
+    let outputs = expect_outputs(
+        r#"0.0 0.5 window "kick" s emit pop 0.5 1.0 window "snare" s emit"#,
+        2,
+    );
+    assert!(outputs[0].contains("sound/kick"));
+    assert!(outputs[1].contains("sound/snare"));
+}
+
+#[test]
+fn pop_root_fails() {
+    expect_error("pop", "cannot pop root time context");
+}
+
+#[test]
+fn subdivide_zero() {
+    expect_error(r#""kick" s 0 div each"#, "subdivide count must be > 0");
+}
+
+#[test]
+fn each_without_div() {
+    expect_error(r#""kick" s each"#, "each requires subdivide first");
+}
+
+#[test]
+fn envelope_params() {
+    let outputs = expect_outputs(
+        r#""synth" s 0.01 attack 0.1 decay 0.7 sustain 0.3 release emit"#,
+        1,
+    );
+    assert!(outputs[0].contains("attack/0.01"));
+    assert!(outputs[0].contains("decay/0.1"));
+    assert!(outputs[0].contains("sustain/0.7"));
+    assert!(outputs[0].contains("release/0.3"));
+}
+
+#[test]
+fn filter_params() {
+    let outputs = expect_outputs(r#""synth" s 2000 lpf 0.5 lpq emit"#, 1);
+    assert!(outputs[0].contains("lpf/2000"));
+    assert!(outputs[0].contains("lpq/0.5"));
+}
+
+#[test]
+fn adsr_sets_all_envelope_params() {
+    let outputs = expect_outputs(r#""synth" s 0.01 0.1 0.5 0.3 adsr emit"#, 1);
+    assert!(outputs[0].contains("attack/0.01"));
+    assert!(outputs[0].contains("decay/0.1"));
+    assert!(outputs[0].contains("sustain/0.5"));
+    assert!(outputs[0].contains("release/0.3"));
+}
+
+#[test]
+fn ad_sets_attack_decay_sustain_zero() {
+    let outputs = expect_outputs(r#""synth" s 0.01 0.1 ad emit"#, 1);
+    assert!(outputs[0].contains("attack/0.01"));
+    assert!(outputs[0].contains("decay/0.1"));
+    assert!(outputs[0].contains("sustain/0"));
+}
+
+#[test]
+fn bank_param() {
+    let outputs = expect_outputs(r#""loop" s "a" bank emit"#, 1);
+    assert!(outputs[0].contains("sound/loop"));
+    assert!(outputs[0].contains("bank/a"));
+}