mirror of
https://github.com/genodelabs/genode.git
synced 2024-12-19 05:37:54 +00:00
b587134a8d
Several nightly network-related tests fail currently on sel4/pc because the new e1000 NIC driver requires more capabilities. The "drivers nic" package was already adapted to the new requirement but some tests fail to provide enough caps to the corresponding sub system. This commit tries to fix all remaining tests. Ref #4923
165 lines
4.4 KiB
Tcl
165 lines
4.4 KiB
Tcl
#
|
|
# \brief Test for using the lwIP TCP/IP stack
|
|
# \author Norman Feske
|
|
# \date 2011-05-22
|
|
#
|
|
# This test case executes a small HTTP server on Genode running on qemu. When
|
|
# the HTTP server is up, a HTTP request to the server is performed using
|
|
# 'lynx'. The response is validated against a known pattern.
|
|
#
|
|
# The test uses qemu's "-netdev user" option, redirecting Genode's port 80 to the
|
|
# host's port 5555. Consequently, it cannot be executed on non-qemu test
|
|
# environments (i.e., the test won't work with the Linux version of Genode).
|
|
#
|
|
|
|
#
|
|
# TODO: Add support for Linux via user-level networking (using the
|
|
# tun/tap proxy driver at os/src/drivers/nic/linux)
|
|
#
|
|
|
|
if {[have_board linux] ||
|
|
[have_board imx53_qsb_tz] ||
|
|
[have_board rpi3]} {
|
|
puts "\n Run script is not supported on this platform. \n"; exit 0 }
|
|
|
|
if {[get_cmd_switch --autopilot] && [have_board virt_qemu_riscv]} {
|
|
puts "Autopilot mode is not supported on this platform."
|
|
exit 0
|
|
}
|
|
|
|
set lynx [installed_command lynx]
|
|
|
|
create_boot_directory
|
|
|
|
import_from_depot [depot_user]/src/[base_src] \
|
|
[depot_user]/pkg/[drivers_nic_pkg] \
|
|
[depot_user]/src/init \
|
|
[depot_user]/src/nic_router \
|
|
[depot_user]/src/libc \
|
|
[depot_user]/src/vfs_lwip \
|
|
[depot_user]/src/vfs
|
|
|
|
install_config {
|
|
<config verbose="yes" prio_levels="2">
|
|
<parent-provides>
|
|
<service name="ROM"/>
|
|
<service name="IRQ"/>
|
|
<service name="IO_MEM"/>
|
|
<service name="IO_PORT"/>
|
|
<service name="PD"/>
|
|
<service name="RM"/>
|
|
<service name="CPU"/>
|
|
<service name="LOG"/>
|
|
</parent-provides>
|
|
<default-route>
|
|
<any-service> <parent/> <any-child/> </any-service>
|
|
</default-route>
|
|
<default caps="100"/>
|
|
|
|
<start name="timer">
|
|
<resource name="RAM" quantum="1M"/>
|
|
<provides> <service name="Timer"/> </provides>
|
|
</start>
|
|
|
|
<start name="drivers" caps="1200" managing_system="yes" priority="-1">
|
|
<resource name="RAM" quantum="32M"/>
|
|
<binary name="init"/>
|
|
<route>
|
|
<service name="ROM" label="config"> <parent label="drivers.config"/> </service>
|
|
<service name="Timer"> <child name="timer"/> </service>
|
|
<service name="Uplink"> <child name="nic_router"/> </service>
|
|
<any-service> <parent/> </any-service>
|
|
</route>
|
|
</start>
|
|
|
|
<start name="nic_router" caps="200">
|
|
<resource name="RAM" quantum="10M"/>
|
|
<provides>
|
|
<service name="Nic"/>
|
|
<service name="Uplink"/>
|
|
</provides>
|
|
<config verbose_domain_state="yes"
|
|
dhcp_discover_timeout_sec="1">
|
|
|
|
<policy label_prefix="test-lwip_httpsrv" domain="downlink"/>
|
|
<policy label_prefix="drivers" domain="uplink"/>
|
|
|
|
<domain name="uplink">
|
|
|
|
<nat domain="downlink"
|
|
tcp-ports="16384"
|
|
udp-ports="16384"
|
|
icmp-ids="16384"/>
|
|
|
|
<tcp-forward port="443" domain="downlink" to="10.0.3.2"/>
|
|
<tcp-forward port="80" domain="downlink" to="10.0.3.2"/>
|
|
|
|
</domain>
|
|
|
|
<domain name="downlink" interface="10.0.3.1/24">
|
|
|
|
<dhcp-server ip_first="10.0.3.2"
|
|
ip_last="10.0.3.2"
|
|
dns_config_from="uplink"/>
|
|
|
|
<tcp dst="0.0.0.0/0"><permit-any domain="uplink" /></tcp>
|
|
<udp dst="0.0.0.0/0"><permit-any domain="uplink" /></udp>
|
|
<icmp dst="0.0.0.0/0" domain="uplink"/>
|
|
|
|
</domain>
|
|
|
|
</config>
|
|
</start>
|
|
|
|
<start name="test-lwip_httpsrv" caps="120" priority="-1">
|
|
<resource name="RAM" quantum="8M"/>
|
|
<config>
|
|
<vfs>
|
|
<dir name="dev"> <log/> </dir>
|
|
<dir name="socket"> <lwip dhcp="yes"/> </dir>
|
|
</vfs>
|
|
<libc stdout="/dev/log" stderr="/dev/log" socket="/socket"/>
|
|
</config>
|
|
<route>
|
|
<service name="Nic"> <child name="nic_router"/> </service>
|
|
<any-service> <parent/> <any-child/> </any-service>
|
|
</route>
|
|
</start>
|
|
</config>
|
|
}
|
|
|
|
build { test/lwip/http_srv }
|
|
|
|
build_boot_image { test-lwip_httpsrv }
|
|
|
|
#
|
|
# Qemu config
|
|
#
|
|
append qemu_args " -nographic "
|
|
append_qemu_nic_args "hostfwd=tcp::5555-:80"
|
|
|
|
run_genode_until {.*Start the server loop.*\n} 30
|
|
|
|
if {[have_include "power_on/qemu"]} {
|
|
set uri "http://localhost:5555/"
|
|
} else {
|
|
set match_string "nic_router. .uplink. dynamic IP config: interface .*\n"
|
|
regexp $match_string $output ip_addr
|
|
regexp {[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+} $ip_addr ip_addr
|
|
|
|
set uri "http://$ip_addr:80/"
|
|
}
|
|
|
|
puts "http server is up, try to query website $uri"
|
|
|
|
set website [exec $lynx -dump $uri]
|
|
|
|
puts "response:\n$website"
|
|
|
|
if {![regexp {Welcome to our lwIP HTTP server!} $website dummy]} {
|
|
puts stderr "Query returned unexpected website"
|
|
exit 2;
|
|
}
|
|
|
|
# vi: set ft=tcl :
|