- Added tests setups for new drivers

2009-12-04 13:02:32 +00:00
parent f40de7ffc6
commit 41e0175571
3 changed files with 53 additions and 26 deletions
--- a/test/testini.tcl
+++ b/test/testini.tcl
@ -648,3 +648,33 @@ phytron::make alge X phyto -360 0



+set stddrive 0
+if {$stddrive == 1} {
+  makesctcontroller stdsct std localhost:8080 "\r" 10
+  source ../tcl/stddrive.tcl
+  stddrive::makestddrive eule EuleDrive stdsct
+}
+
+set el755 0
+
+if {$el755 == 1} {
+source ../tcl/stddrive.tcl
+source ../tcl/el755.tcl
+makesctcontroller el755sct std localhost:8080 "\r" 10
+#el755sct debug  1
+for {set i 0} {$i < 3} {incr i} {
+    el755sct transact "RMT 1"
+    el755sct transact "ECHO 2" 
+}
+el755::makeel755 mf 5 el755sct
+el755sct queue /sics/mf progress read
+mf upperlimit 10
+mf lowerlimit -10
+mf tolerance .1
+}
+
+set dc-804 1
+
+source ../tcl/pimotor.tcl
+makesctcontroller dc804sct std localhost:8080 "\r" 10 "\x03" "\x03"
+pimotor::makepimotor dc1 1 dc804sct -10000 10000