Contents of /trunk/openisis/tcl/oitstest

#!/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]
1	#!/usr/bin/tclsh
2	# ^^^ shebang line only for vim to recognize the language :)
3	#
4	# $Id: oitstest,v 1.1 2003/03/28 19:07:49 kripke Exp $
5	# oits tester
6	#
7
8	proc oitsopen {} {
9	set sock [socket localhost 8080]
10	fconfigure $sock -translation binary
11	return $sock
12	}
13
14	proc oitsreq {srv {req request} {res response}} {
15	puts $srv [$req serialize]
16	flush $srv
17	set i 0
18	while {0 < [gets $srv line]} {
19	$res deserialize $line
20	incr i
21	}
22	return $i
23	}
24
25
26	set server [oitsopen]
27	openIsisRec request
28	openIsisRec response
29
30	request add 42 foo 142 bar
31
32	puts [request serialize]
33	puts [oitsreq $server]
34	puts [response serialize]