From 4e3e2815d6b2b82eeb3f00ca2c555146943d3d2b Mon Sep 17 00:00:00 2001
From: Romain Beauxis <toots@rastageeks.org>
Date: Mon, 30 Jan 2023 11:40:32 -0600
Subject: [PATCH] Add regression test for #2871. Fixes: #2871

---
 tests/regression/GH2871.liq |  9 +++++++++
 tests/regression/dune.inc   | 13 +++++++++++++
 2 files changed, 22 insertions(+)
 create mode 100644 tests/regression/GH2871.liq

diff --git a/tests/regression/GH2871.liq b/tests/regression/GH2871.liq
new file mode 100644
index 0000000000..47fe8c1612
--- /dev/null
+++ b/tests/regression/GH2871.liq
@@ -0,0 +1,9 @@
+def f() =
+  s = metronome()
+  s = bpm(s)
+  clock.assign_new(sync="none",[s])
+  output.dummy(fallible=true, s)
+  thread.run(delay=0.1, {if s.bpm() != 0. then test.pass() else test.fail () end})
+end
+
+test.check(f)
diff --git a/tests/regression/dune.inc b/tests/regression/dune.inc
index 6c38e828f8..976ee10f78 100644
--- a/tests/regression/dune.inc
+++ b/tests/regression/dune.inc
@@ -77,6 +77,19 @@
   (:run_test ../run_test.exe))
  (action (run %{run_test} 115-2.liq liquidsoap %{test_liq} 115-2.liq)))
 
+(rule
+ (alias runtest)
+ (package liquidsoap)
+ (deps
+  GH2871.liq
+  ../media/all_media_files
+  ../../src/bin/liquidsoap.exe
+  (source_tree ../../src/libs)
+  (:stdlib ../../src/libs/stdlib.liq)
+  (:test_liq ../test.liq)
+  (:run_test ../run_test.exe))
+ (action (run %{run_test} GH2871.liq liquidsoap %{test_liq} GH2871.liq)))
+
 (rule
  (alias runtest)
  (package liquidsoap)