added set bd channel without setting r

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
@@ -236,3 +236,26 @@
     )
   )
 )
+
+(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)
+      )
+    )
+  )
+)