From 5d04f888163abf896e303a90240e3e5582376cdb Mon Sep 17 00:00:00 2001 From: Alexander Boettcher Date: Wed, 20 Mar 2013 12:45:54 +0100 Subject: [PATCH] lwip: adjust test to run with remote machine (AMT) Issue #679 --- libports/run/lwip.run | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/libports/run/lwip.run b/libports/run/lwip.run index 641672c94..1e42d03d9 100644 --- a/libports/run/lwip.run +++ b/libports/run/lwip.run @@ -148,7 +148,17 @@ append qemu_args " -net user -redir tcp:5555::80 " 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" @@ -161,6 +171,6 @@ if {![regexp {Welcome to our lwIP HTTP server!} $website dummy]} { exit 2; } -puts "test succeeded" +puts "Test succeeded" # vi: set ft=tcl :