Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
OpenGEODE
Commits
6ca54a82
Commit
6ca54a82
authored
Oct 02, 2014
by
Maxime Perrotin
Browse files
Added test case to validate advanced constructs
parent
b3055210
Changes
5
Hide whitespace changes
Inline
Side-by-side
tests/regression/test-debug/Makefile
0 → 100644
View file @
6ca54a82
include
../shared.mk
all
:
test-ada test-llvm
edit
:
$(OPENGEODE)
orchestrator.pr system_structure.pr
test-parse
:
$(OPENGEODE)
orchestrator.pr system_structure.pr
--check
test-ada
:
orchestrator.ali dataview-uniq.o | test_ada.o
$(GNATBIND)
-n
orchestrator.ali
$(GNATLINK)
-o
test_ada test_ada.o orchestrator.ali
-lgnat
./test_ada
test-llvm
:
orchestrator.o
coverage
:
coverage run
-p
$(OPENGEODE)
orchestrator.pr system_structure.pr
--toAda
.PHONY
:
all edit test-parse test-ada test-llvm coverage
tests/regression/test-debug/dataview-uniq.asn
0 → 100644
View file @
6ca54a82
TASTE-BasicTypes DEFINITIONS ::=
BEGIN
TASTE-Peek-id ::= INTEGER (0..4294967295)
TASTE-Peek-id-list ::= SEQUENCE (SIZE (1..10)) OF TASTE-Peek-id
VariableString ::= OCTET STRING (SIZE (1..10))
FixedString ::= OCTET STRING (SIZE (5))
END
tests/regression/test-debug/orchestrator.pr
0 → 100644
View file @
6ca54a82
/* CIF PROCESS (295, 56), (150, 75) */
PROCESS orchestrator
/* CIF COMMENT (405, 192), (71, 35) */
COMMENT 'Hello';
/* CIF TEXT (89, 94), (293, 200) */
dcl seq tastE_Peek_id_list;
dcl fixed FixedString := 'Hello';
dcl variable VariableString := 'Hello';
/* CIF ENDTEXT */
/* CIF START (428, 223), (100, 45) */
START;
/* CIF TASK (415, 283), (126, 38) */
TASK fixed := 'hello';
/* CIF TASK (403, 336), (149, 35) */
TASK variable := 'HELLO';
/* CIF PROCEDURECALL (390, 386), (176, 35) */
CALL writeln(variable // '!!!');
/* CIF PROCEDURECALL (342, 436), (272, 35) */
CALL writeln(variable // variable // variable);
/* CIF TASK (432, 486), (91, 35) */
TASK seq := {1};
/* CIF TASK (401, 536), (153, 35) */
TASK seq := {1} // {2} // {3};
/* CIF TASK (392, 586), (172, 35) */
TASK seq := seq // {2} // {1};
/* CIF NEXTSTATE (419, 636), (118, 50) */
NEXTSTATE Wait_for_GUI;
/* CIF STATE (423, 163), (118, 50) */
STATE Wait_for_GUI;
ENDSTATE;
ENDPROCESS orchestrator;
\ No newline at end of file
tests/regression/test-debug/system_structure.pr
0 → 100644
View file @
6ca54a82
/* CIF Keep Specific Geode ASNFilename 'dataview-uniq.asn' */
USE Datamodel;
SYSTEM orchestrator;
SIGNAL pulse;
SIGNAL telemetry;
CHANNEL c
FROM ENV TO orchestrator WITH pulse;
FROM orchestrator TO ENV WITH telemetry;
ENDCHANNEL;
BLOCK orchestrator;
SIGNALROUTE r
FROM ENV TO orchestrator WITH pulse;
FROM orchestrator TO ENV WITH telemetry;
CONNECT c and r;
PROCESS orchestrator REFERENCED;
ENDBLOCK;
ENDSYSTEM;
tests/regression/test-debug/test_ada.c
0 → 100644
View file @
6ca54a82
#include
<math.h>
#include
<stdio.h>
#include
"dataview-uniq.h"
extern
void
adainit
();
void
orchestrator_RI_telemetry
(
void
*
_
){}
void
orchestrator_RI_S_SET_GNC_LV_SIM_CONTEXT_FOR_NEXT_MAJOR_CYCLE
(
void
*
_
){}
void
orchestrator_RI_Scheduler
(
void
*
_
){}
void
orchestrator_RI_VESAT_Simulation_Step
(
void
*
_
){}
void
orchestrator_RI_plot
(
void
*
_
)
{}
void
orchestrator_RI_S_JUMP_TO_NEXT_MAJOR_CYCLE
()
{}
void
orchestrator_RI_S_GET_GNC_LV_SIM_INPUTS_FOR_NEXT_MAJOR_CYCLE
(
void
*
_
){}
int
main
()
{
printf
(
"[C Code] Running test
\n
"
);
adainit
();
return
0
;
}
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment