- First version of instrument regression tests

- sinqcom is the first version of a communication testing program
  for instruments

insttest/interrupt.tcl

@@ -0,0 +1,20 @@
+#!/usr/bin/tclsh
+#------------------------------------------------------------
+# This is a little script which issues an interrupt to SICS
+# after five seconds
+#
+# Mark Koennecke, October 2006
+#------------------------------------------------------------
+if {$argc < 3} {
+    puts stdout "Usage:\n\tinterrupt instrument username password"
+    exit 1
+} 
+source sicstcldebug.tcl
+initSicsDebug [lindex $argv 0] 
+config rights [lindex $argv 1] [lindex $argv 2]
+exec sleep 5
+puts $socke "INT1712 3"
+exit 0
+
+
+