cleanup and documentation updates

[webpac] / openisis / tcl / oitstest

diff --git a/openisis/tcl/oitstest b/openisis/tcl/oitstest
deleted file mode 100644 (file)
index b89e08b..0000000
--- a/openisis/tcl/oitstest
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/usr/bin/tclsh
-#      ^^^ shebang line only for vim to recognize the language :)
-#
-#      $Id: oitstest,v 1.1 2003/03/28 19:07:49 kripke Exp $
-#      oits tester
-#
-
-proc oitsopen {} {
-       set sock [socket localhost 8080]
-       fconfigure $sock -translation binary
-       return $sock
-}
-
-proc oitsreq {srv {req request} {res response}} {
-       puts $srv [$req serialize]
-       flush $srv
-       set i 0
-       while {0 < [gets $srv line]} {
-               $res deserialize $line
-               incr i
-       }
-       return $i
-}
-
-
-set server [oitsopen]
-openIsisRec request
-openIsisRec response
-
-request add 42 foo 142 bar
-
-puts [request serialize]
-puts [oitsreq $server]
-puts [response serialize]