Add Nanos6 emu test to check strict nesting model
This commit is contained in:
parent
3e5b949c4e
commit
f8fdcc0a79
@ -6,6 +6,7 @@ test_emu(nested-tasks-bad.c SHOULD_FAIL
|
|||||||
REGEX "body_execute: body(id=1,taskid=1) state must be Created but is Running")
|
REGEX "body_execute: body(id=1,taskid=1) state must be Created but is Running")
|
||||||
test_emu(task-types.c MP)
|
test_emu(task-types.c MP)
|
||||||
test_emu(blocking.c MP)
|
test_emu(blocking.c MP)
|
||||||
|
test_emu(if0-pause-parent.c)
|
||||||
test_emu(ss-mismatch.c SHOULD_FAIL
|
test_emu(ss-mismatch.c SHOULD_FAIL
|
||||||
REGEX "thread [0-9]\\+ ended with 1 stacked nanos6 subsystems")
|
REGEX "thread [0-9]\\+ ended with 1 stacked nanos6 subsystems")
|
||||||
test_emu(delayed-connect-ss.c)
|
test_emu(delayed-connect-ss.c)
|
||||||
|
46
test/emu/nanos6/if0-pause-parent.c
Normal file
46
test/emu/nanos6/if0-pause-parent.c
Normal file
@ -0,0 +1,46 @@
|
|||||||
|
/* Copyright (c) 2023 Barcelona Supercomputing Center (BSC)
|
||||||
|
* SPDX-License-Identifier: GPL-3.0-or-later */
|
||||||
|
|
||||||
|
#include <stdint.h>
|
||||||
|
#include "compat.h"
|
||||||
|
#include "instr.h"
|
||||||
|
#include "instr_nanos6.h"
|
||||||
|
|
||||||
|
/* Ensure that we can accept a Nanos6 task model in which the parent gets paused
|
||||||
|
* before the if0 task begins. */
|
||||||
|
|
||||||
|
int
|
||||||
|
main(void)
|
||||||
|
{
|
||||||
|
instr_start(0, 1);
|
||||||
|
instr_nanos6_init();
|
||||||
|
|
||||||
|
int ntasks = 100;
|
||||||
|
uint32_t typeid = 1;
|
||||||
|
|
||||||
|
instr_nanos6_type_create(typeid);
|
||||||
|
|
||||||
|
/* Create and run the tasks, one nested into another */
|
||||||
|
for (int32_t id = 1; id <= ntasks; id++) {
|
||||||
|
instr_nanos6_handle_task_enter();
|
||||||
|
instr_nanos6_task_create_begin();
|
||||||
|
instr_nanos6_task_create(id, typeid);
|
||||||
|
instr_nanos6_task_create_end();
|
||||||
|
instr_nanos6_task_body_enter();
|
||||||
|
instr_nanos6_task_execute(id);
|
||||||
|
sleep_us(500);
|
||||||
|
instr_nanos6_task_pause(id);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* End the tasks in the opposite order */
|
||||||
|
for (int32_t id = ntasks; id >= 1; id--) {
|
||||||
|
instr_nanos6_task_resume(id);
|
||||||
|
instr_nanos6_task_end(id);
|
||||||
|
instr_nanos6_task_body_exit();
|
||||||
|
instr_nanos6_handle_task_exit();
|
||||||
|
}
|
||||||
|
|
||||||
|
instr_end();
|
||||||
|
|
||||||
|
return 0;
|
||||||
|
}
|
Loading…
Reference in New Issue
Block a user