Test Get_State

opengeode/AdaGenerator.py

@@ -536,7 +536,7 @@ use Interfaces,
 {include_custom_types}
 {imp_str}
 {instance_decl}
-{generic_spec}
+{generic_spec}'''.strip() + f'''
 package {process_name} with Elaborate_Body is''']
     dll_api = []
     if not instance:

tests/testsuite/test-simu/test_ada.c

@@ -3,6 +3,10 @@
 #include "dataview-uniq.h"
 
 extern void adainit();
+extern void orchestrator_startup();
+extern void orchestrator_PI_other();
+extern void orchestrator_PI_Paramless_TC();
+extern char *orchestrator_state();
 void orchestrator_RI_peek_list(void *_) {}
 void orchestrator_RI_peek_fixed(void *_) {}
 void orchestrator_RI_telemetry(void *_){}
@@ -15,7 +19,13 @@ int main()
     int i;
     printf("[C Code] Running test\n");
     adainit();
+    orchestrator_startup();
     toto = fixed_value(); 
+    printf("%s\n", orchestrator_state());
+    orchestrator_PI_other();
+    printf("%s\n", orchestrator_state());
+    orchestrator_PI_other();
+    printf("%s\n", orchestrator_state());
 //    size = fixed_size();
 //    printf("Size=%d\n", size);
 //    for (i = 0; i<size; i++) printf("%d", toto[i]);