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] |