lwip: adjust test to run with remote machine (AMT)

Issue #679
This commit is contained in:
Alexander Boettcher 2013-03-20 12:45:54 +01:00 committed by Norman Feske
parent 8a393183e9
commit 5d04f88816

View File

@ -148,7 +148,17 @@ append qemu_args " -net user -redir tcp:5555::80 "
run_genode_until {.*Start the server loop \.\.\..*} 30 run_genode_until {.*Start the server loop \.\.\..*} 30
set uri "http://localhost:5555/" if [is_amt_available] {
set match_string "got IP address"
grep_output $match_string
unify_output {[\r\n\t]+} ""
unify_output {[\033]\[0m} ""
set pos [string first $match_string $output]
set ip_addr [string replace $output 0 [expr $pos+14]]
set uri "http://$ip_addr:80/"
} else {
set uri "http://localhost:5555/"
}
puts "http server is up, try to query website $uri" puts "http server is up, try to query website $uri"
@ -161,6 +171,6 @@ if {![regexp {Welcome to our lwIP HTTP server!} $website dummy]} {
exit 2; exit 2;
} }
puts "test succeeded" puts "Test succeeded"
# vi: set ft=tcl : # vi: set ft=tcl :