ExternalVendorCode/genode
1
0
Fork 0
mirror of https://github.com/genodelabs/genode.git synced 2024-12-20 22:23:16 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

run: introduce explicit wait_for_output

Browse Source 
To be used by base-* run/env scripts
This commit is contained in:
Alexander Boettcher 2013-04-08 10:59:08 +02:00 committed by Norman Feske
parent 5485fe6f18
commit 267239147a
1 changed files with 23 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
tool/run
View File

@ -405,12 +405,31 @@ proc create_iso_image_from_run_dir { } {
} }
} }
##
# Wait for a specific output of a already running spawned process
#
proc wait_for_output { wait_for_re timeout_value running_spawn_id } {
global output
if {$wait_for_re == "forever"} {
set timeout -1
interact $running_spawn_id
} else {
set timeout $timeout_value
}
expect {
-i $running_spawn_id -re $wait_for_re { }
eof { puts stderr "Error: Qemu died unexpectedly"; exit -3 }
timeout { puts stderr "Error: Test execution timed out"; exit -2 }
}
set output $expect_out(buffer)
}
## ##
# Execute scenario using Qemu # Execute scenario using Qemu
# #
proc spawn_qemu { wait_for_re timeout_value } { proc spawn_qemu { wait_for_re timeout_value } {
global output
global qemu_args global qemu_args
global qemu global qemu
global spawn_id global spawn_id
@ -457,15 +476,9 @@ proc spawn_qemu { wait_for_re timeout_value } {
# on ARM, we supply the boot image as kernel # on ARM, we supply the boot image as kernel
if {[have_spec arm]} { append qemu_args " -kernel [run_dir]/image.elf " } if {[have_spec arm]} { append qemu_args " -kernel [run_dir]/image.elf " }
set timeout $timeout_value eval spawn $qemu $qemu_args
set pid [eval "spawn $qemu $qemu_args"] set qemu_spawn_id $spawn_id
if {$wait_for_re == "forever"} { interact $pid } wait_for_output $wait_for_re $timeout_value $qemu_spawn_id
expect {
-re $wait_for_re { }
eof { puts stderr "Error: Qemu died unexpectedly"; exit -3 }
timeout { puts stderr "Error: Test execution timed out"; exit -2 }
}
set output $expect_out(buffer)
} }
## ##