Commit 1c199763 authored by Per Cederqvist's avatar Per Cederqvist
Browse files

(efence): New constant.

(efence_blurb): New proc.
(l2g_start): Handle an efence-instrumented test program if the
	global variable efence is true.
parent 3b3f4dbd
......@@ -12,11 +12,30 @@ set muxport 53263
set stty_init "-echo -onlcr -ocrnl -istrip"
set efence 0
proc efence_blurb {} {
global efence
if {$efence} {
simple_expect "" "efence blank line"
simple_expect " Electric Fence .* Copyright .* Bruce Perens." \
"efence init"
}
}
proc l2g_start {} {
global spawn_id
global l2g
global efence
spawn $l2g
if {$efence} {
l2g_send "I9"
l2g_send "a9 3 17"
efence_blurb
}
}
proc l2g_stop {} {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment