02d5efcf3f
The init component used to create the CPU/RAM/PD/ROM sessions (the child environment) for its children by issuing session requests to its parent, which is typically core. This policy was hard-wired. This patch enables the routing of the environment sessions of the children of init according to the configured routing policy. Because there is no hard-wired policy regarding the environment sessions anymore, routes to respective services must be explicitly declared in the init configuration. For this reason, the patch adjusts several run scripts in this respect. This patch removes the outdated '<if-args>' special handling of session labels. The '<if-args>' feature will eventually be removed completely (ref #2250) Issue #2197 Issue #2215 Issue #2233 Issue #2250
109 lines
3.4 KiB
Plaintext
109 lines
3.4 KiB
Plaintext
#
|
|
# \brief Test to start and call RPC entrypoint on all available CPUs
|
|
# \author Norman Feske
|
|
# \author Alexander Boettcher
|
|
#
|
|
|
|
|
|
build "core init test/mp_server"
|
|
|
|
create_boot_directory
|
|
|
|
install_config {
|
|
<config>
|
|
<parent-provides>
|
|
<service name="LOG"/>
|
|
<service name="CPU"/>
|
|
<service name="RAM"/>
|
|
<service name="ROM"/>
|
|
<service name="PD"/>
|
|
</parent-provides>
|
|
<default-route>
|
|
<any-service> <parent/> </any-service>
|
|
</default-route>
|
|
<start name="test-server-mp">
|
|
<resource name="RAM" quantum="10M"/>
|
|
</start>
|
|
</config>
|
|
}
|
|
|
|
build_boot_image "core ld.lib.so init test-server-mp"
|
|
|
|
if {[have_include "power_on/qemu"]} {
|
|
# in general we want to have at least 2 CPUs
|
|
set want_cpus 2
|
|
|
|
# pbxa9 - foc does only use 1 cpu even if more are configured
|
|
# pbxa9 - hw does not support multiple CPUs
|
|
if {[have_spec pbxa9]} { set want_cpus 1 }
|
|
# kernels only using one CPU even if more are configured
|
|
if {[have_spec okl4]} { set want_cpus 1 }
|
|
if {[have_spec pistachio]} { set want_cpus 1 }
|
|
if {[have_spec fiasco]} { set want_cpus 1 }
|
|
if {([have_spec x86_64] && [have_spec hw])} { set want_cpus 1 }
|
|
if {[have_spec zynq]} { set want_cpus 1 }
|
|
if {[have_spec sel4]} { set want_cpus 1 }
|
|
|
|
append qemu_args " -nographic -m 64 -smp $want_cpus,cores=$want_cpus "
|
|
}
|
|
|
|
# run the test
|
|
run_genode_until {\[init -\> test-server-mp\] done.*\n} 60
|
|
|
|
set cpus [regexp -inline {Detected [0-9x]+ CPU[s\.]} $output]
|
|
set cpus [regexp -all -inline {[0-9]+} $cpus]
|
|
set cpus [expr [lindex $cpus 0] * [lindex $cpus 1]]
|
|
|
|
if {[have_include "power_on/qemu"]} {
|
|
if {$want_cpus != $cpus} {
|
|
puts "CPU count is not as expected: $want_cpus != $cpus"
|
|
exit 1;
|
|
}
|
|
}
|
|
|
|
# pay only attention to the output of init and its children
|
|
grep_output {^\[init }
|
|
|
|
# remove upgrade messages from init
|
|
unify_output {\[init \-\> test\-server\-mp\] upgrading quota donation for .* \([0-9]+ bytes\)} ""
|
|
trim_lines
|
|
|
|
unify_output {transfer cap [a-f0-9]+} "transfer cap UNIFIED"
|
|
unify_output {yes - idx [a-f0-9]+} "yes - idx UNIFIED"
|
|
unify_output {\- received cap [a-f0-9]+} "- received cap UNIFIED"
|
|
|
|
set good_string {
|
|
[init -> test-server-mp] --- test-mp_server started ---
|
|
[init -> test-server-mp] Detected }
|
|
append good_string "$cpus"
|
|
append good_string "x1 CPU"
|
|
if {$cpus > 1} { append good_string "s" }
|
|
append good_string ".\n"
|
|
|
|
for {set r 0} {$r < $cpus} {incr r} {
|
|
append good_string {[init -> test-server-mp] call server on CPU }
|
|
append good_string "$r\n"
|
|
append good_string {[init -> test-server-mp] function test_untyped: got value }
|
|
append good_string "$r\n"
|
|
}
|
|
|
|
for {set r 0} {$r < $cpus} {incr r} {
|
|
append good_string {[init -> test-server-mp] call server on CPU }
|
|
append good_string "$r - transfer cap UNIFIED\n"
|
|
append good_string {[init -> test-server-mp] function test_cap: capability is valid ? yes - idx UNIFIED}
|
|
append good_string "\n"
|
|
}
|
|
|
|
for {set r 0} {$r < $cpus} {incr r} {
|
|
append good_string {[init -> test-server-mp] call server on CPU }
|
|
append good_string "$r - transfer cap UNIFIED\n"
|
|
append good_string {[init -> test-server-mp] function test_cap_reply: capability is valid ? yes - idx UNIFIED}
|
|
append good_string "\n"
|
|
append good_string {[init -> test-server-mp] got from server on CPU }
|
|
append good_string "$r - received cap UNIFIED\n"
|
|
}
|
|
|
|
append good_string {[init -> test-server-mp] done}
|
|
|
|
compare_output_to $good_string
|