Add regression test for #2871. Fixes: #2871

savonet · Jan 30, 2023 · 4e3e281 · 4e3e281
1 parent 25f1186
commit 4e3e281
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 0 deletions.
diff --git a/tests/regression/GH2871.liq 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
@@ -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)