From feb28f27bfa278f299c32b0c1e33ff9f53acc0ac Mon Sep 17 00:00:00 2001
From: alexmadison <git@mdsn.co.uk>
Date: Sun, 10 Apr 2022 13:59:27 +0200
Subject: [PATCH] added set bd channel without setting r

---
 test/unit_tests/helper.scm | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

diff --git a/test/unit_tests/helper.scm b/test/unit_tests/helper.scm
index 8a0879e..d95f5e2 100644
--- a/test/unit_tests/helper.scm
+++ b/test/unit_tests/helper.scm
@@ -188,7 +188,7 @@
     )
   )
 
-  (define set-bd-channel-neutral
+(define set-bd-channel-neutral
   (lambda (ch width)
     (letrec ((ch-name (string-append ch ".d"))
          (helper
@@ -235,4 +235,27 @@
       )
     )
   )
+)
+
+(define set-bd-data-valid
+  (lambda (ch width val)
+    (letrec ((ch-name (string-append ch ".d"))
+         (helper
+          (lambda (i v)
+            (cond
+              ((=? i width) #t)
+              (#t (let ((tmp (string-append ch (string-append ".d[" (string-append (number->string i)  "]")))))
+                (begin
+                  (set tmp (% v 2))
+                  (helper (+ 1 i) (truncate (/ v 2)))
+                )
+              ))
+            )
+         )
+        ))
+      (begin
+        (helper 0 val)
+      )
+    )
+  )
 )
\ No newline at end of file