From e044ddc744ba41a4019e23a8ce3d0bd976a0fb68 Mon Sep 17 00:00:00 2001
From: l_samenv <l_samenv@samenv.psi.ch>
Date: Fri, 31 Mar 2023 10:34:30 +0200
Subject: [PATCH] fictrl: remove feedback check for test purposes

---
 tcl/drivers/fictrl.tcl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tcl/drivers/fictrl.tcl b/tcl/drivers/fictrl.tcl
index 356429b..10d8f9f 100644
--- a/tcl/drivers/fictrl.tcl
+++ b/tcl/drivers/fictrl.tcl
@@ -180,9 +180,10 @@ proc fictrl::update_power {} {
   set vout [expr $keyval(h) * 0.01 * [sct @voltscale]]
   # set vpercent [expr $v * 100.0 / [sct @voltscale]]
   # difference output voltage % - read voltage %
+  clientput "v $v vout $vout last [silent None sct last_v]"
   if {abs($v - $vout) > 0.5} {
-    clientput "v $v vout $vout last [silent "" sct last_v]"
-    if {abs($v - [silent 100 sct last_v]) < 0.02} {
+    if {abs($v - [silent 100 sct last_v]) > 100.02} {
+      clientput "power supply feedback does not follow"
       enum_decode [sct parent]/ctrlmode power_supply_off new
       sct @power_supply_off 1
       if {$new != [sctval [sct parent]/ctrlmode]} {