# # \brief Test for Linux-specific region map # \author Christian Helmuth # \date 2013-09-06 # assert_spec linux # # Build # set build_components { core init } lappend_if [expr {$test_type eq "static"}] build_components test/lx_rmap/static lappend_if [expr {$test_type eq "dynamic"}] build_components test/lx_rmap/dynamic build $build_components create_boot_directory # # Config # set config { <config> <parent-provides> <service name="ROM"/> <service name="PD"/> <service name="LOG"/> <service name="CPU"/> </parent-provides> <default-route> <any-service> <parent/> <any-child/> </any-service> </default-route> <default caps="100"/>} append_if [expr {$test_type eq "static"}] config { <start name="test-lx_rmap_static">} append_if [expr {$test_type eq "dynamic"}] config { <start name="test-lx_rmap_dynamic">} append config { <resource name="RAM" quantum="8M"/> </start> </config>} install_config $config # # Boot modules # set boot_modules { core ld.lib.so init } lappend_if [expr {$test_type eq "static"}] boot_modules test-lx_rmap_static lappend_if [expr {$test_type eq "dynamic"}] boot_modules test-lx_rmap_dynamic lappend_if [expr {$test_type eq "dynamic"}] boot_modules ld.lib.so build_boot_image $boot_modules # # Execute test # if {$test_type eq "static"} { run_genode_until {child "test-lx_rmap_static" exited with exit value 0.*\n} 10 } else { run_genode_until {child "test-lx_rmap_dynamic" exited with exit value 0.*\n} 10 } puts "Test succeeded" # vi: set ft=tcl :