From 40fc64e24f8f938c5d6c13209f926ad133cf1bec Mon Sep 17 00:00:00 2001 From: Alexander Boettcher Date: Thu, 17 Jul 2014 18:09:45 +0200 Subject: [PATCH] run: fix parsing of mp_server output test Until now worked solely for 2 CPU setups. Adjust it to the actual available number of CPUs. Issue #1212 --- repos/base/run/mp_server.run | 47 +++++++++++++++++++++++------------- 1 file changed, 30 insertions(+), 17 deletions(-) diff --git a/repos/base/run/mp_server.run b/repos/base/run/mp_server.run index 9be6feb163..35f0b74c2c 100644 --- a/repos/base/run/mp_server.run +++ b/repos/base/run/mp_server.run @@ -61,22 +61,35 @@ 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" -compare_output_to { +set good_string { [init -> test-server-mp] --- test-mp_server started --- - [init -> test-server-mp] Detected 2x1 CPUs. - [init -> test-server-mp] call server on CPU 0 - [init -> test-server-mp] function test_untyped: got value 0 - [init -> test-server-mp] call server on CPU 1 - [init -> test-server-mp] function test_untyped: got value 1 - [init -> test-server-mp] call server on CPU 0 - transfer cap UNIFIED - [init -> test-server-mp] function test_cap: capability is valid ? yes - idx UNIFIED - [init -> test-server-mp] call server on CPU 1 - transfer cap UNIFIED - [init -> test-server-mp] function test_cap: capability is valid ? yes - idx UNIFIED - [init -> test-server-mp] call server on CPU 0 - transfer cap UNIFIED - [init -> test-server-mp] function test_cap_reply: capability is valid ? yes - idx UNIFIED - [init -> test-server-mp] got from server on CPU 0 - received cap UNIFIED - [init -> test-server-mp] call server on CPU 1 - transfer cap UNIFIED - [init -> test-server-mp] function test_cap_reply: capability is valid ? yes - idx UNIFIED - [init -> test-server-mp] got from server on CPU 1 - received cap UNIFIED - [init -> test-server-mp] done + [init -> test-server-mp] Detected } +append good_string "$cpus" +append good_string "x1 CPUs.\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