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
1495f878
Commit
1495f878
authored
Feb 11, 2015
by
Maxime Perrotin
Browse files
Reformat test diagram
parent
43326498
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/regression/test-equal/og.pr
View file @
1495f878
/* CIF PROCESS (149, 150), (150, 75) */
PROCESS og;
/* CIF TEXT (
0
, 0), (
539
, 348) */
/* CIF TEXT (
97
, 0), (
427
, 348) */
-- A Demo to test the generation of _Equal functions from ASN1SCC
dcl V1 My_OctStr := 'Hello';
...
...
@@ -18,102 +18,102 @@ dcl V6 Toto := { elem_1 'Hello', elem_2 {'Ola', 'TheWorld'} };
dcl V7 AChoice := a: TRUE;
dcl V8 ACHoice := b: {'Hello', 'World!'};
/* CIF ENDTEXT */
/* CIF START (1
109, 72
), (60, 30) */
/* CIF START (1
065, 26
), (60, 30) */
START;
/* CIF TASK (10
50, 118
), (177, 35) */
/* CIF TASK (10
07, 72
), (177, 35) */
TASK v8 := b: {'hello', 'world'};
/* CIF LABEL (1
104
, 1
68
), (70, 35) */
/* CIF LABEL (1
060
, 1
22
), (70, 35) */
one:
/* CIF DECISION (10
90, 218
), (98, 50) */
/* CIF DECISION (10
46, 172
), (98, 50) */
DECISION V1 = V2;
/* CIF ANSWER (
962
, 2
88
), (73, 28) */
/* CIF ANSWER (
669
, 2
42
), (73, 28) */
(true):
/* CIF TASK (
937, 331
), (123, 35) */
/* CIF TASK (
644, 285
), (123, 35) */
TASK fail := false;
/* CIF PROCEDURECALL (
92
3, 3
81
), (1
5
0, 38) */
/* CIF PROCEDURECALL (
65
3, 3
35
), (10
6
, 38) */
CALL writeln('2');
/* CIF LABEL (
963, 434
), (70, 35) */
/* CIF LABEL (
671, 388
), (70, 35) */
two:
/* CIF DECISION (
949
, 48
4
), (98, 50) */
/* CIF DECISION (
657
, 4
3
8), (98, 50) */
DECISION V3 = V4;
/* CIF ANSWER (
616
, 5
54
), (73, 28) */
/* CIF ANSWER (
452
, 5
08
), (73, 28) */
(true):
/* CIF TASK (
591
, 5
97
), (123, 35) */
/* CIF TASK (
427
, 5
51
), (123, 35) */
TASK fail := false;
/* CIF PROCEDURECALL (
577
, 6
47
), (1
5
0, 38) */
/* CIF PROCEDURECALL (
436
, 6
01
), (10
6
, 38) */
CALL writeln('4');
/* CIF LABEL (
611, 700
), (82, 35) */
/* CIF LABEL (
448, 654
), (82, 35) */
three:
/* CIF DECISION (
574
, 7
5
0), (156, 95) */
/* CIF DECISION (
411
, 70
4
), (156, 95) */
DECISION V5 /= V6
and V7 /= V8;
/* CIF ANSWER (
540
, 8
65
), (73, 28) */
/* CIF ANSWER (
376
, 8
19
), (73, 28) */
(true):
/* CIF PROCEDURECALL (
501, 908
), (1
5
0, 38) */
/* CIF PROCEDURECALL (
360, 862
), (10
6
, 38) */
CALL writeln('5');
/* CIF TASK (
487
, 9
6
1), (179, 48) */
/* CIF TASK (
323
, 91
5
), (179, 48) */
TASK V5 := V6,
V7 := b: {'Hello', 'World'};
/* CIF TASK (
464, 1024
), (
225
, 35) */
/* CIF TASK (
323, 978
), (
180
, 35) */
TASK V8 := b: {'Hello', 'world' };
/* CIF JOIN (
559
, 10
74
), (35, 35) */
/* CIF JOIN (
395
, 10
28
), (35, 35) */
JOIN three;
/* CIF ANSWER (
745
, 8
65
), (78, 28) */
/* CIF ANSWER (
581
, 8
19
), (78, 28) */
(false):
/* CIF PROCEDURECALL (
709, 908
), (1
5
0, 38) */
/* CIF PROCEDURECALL (
567, 862
), (10
6
, 38) */
CALL writeln('6');
/* CIF NEXTSTATE (
749
, 9
6
1), (70, 35) */
/* CIF NEXTSTATE (
585
, 91
5
), (70, 35) */
NEXTSTATE wait;
ENDDECISION;
/* CIF ANSWER (
1530
, 5
54
), (78, 28) */
/* CIF ANSWER (
962
, 5
08
), (78, 28) */
(false):
/* CIF DECISION (
1530
, 5
97
), (78, 50) */
/* CIF DECISION (
962
, 5
51
), (78, 50) */
DECISION fail;
/* CIF ANSWER (
1423
, 6
67
), (73, 28) */
/* CIF ANSWER (
855
, 6
21
), (73, 28) */
(true):
/* CIF PROCEDURECALL (
1233, 710
), (
452
, 38) */
/* CIF PROCEDURECALL (
742, 664
), (
299
, 38) */
CALL writeln('FAIL: V3 = V4 reports FALSE, but...');
/* CIF PROCEDURECALL (
1190
, 7
63
), (
539
, 35) */
/* CIF PROCEDURECALL (
683
, 7
17
), (
417
, 35) */
CALL writeln('Length of V3(1) =', Length(V3(1)), ' and Value = ', V3(1));
/* CIF PROCEDURECALL (
1185, 813
), (
549
, 35) */
/* CIF PROCEDURECALL (
683, 767
), (
417
, 35) */
CALL writeln('Length of V4(1) =', Length(V4(1)), ' and Value = ', V4(1));
/* CIF NEXTSTATE (
1424
, 8
63
), (70, 35) */
/* CIF NEXTSTATE (
857
, 8
17
), (70, 35) */
NEXTSTATE wait;
/* CIF ANSWER (1
803
, 6
67
), (78, 28) */
/* CIF ANSWER (1
145
, 6
21
), (78, 28) */
(false):
/* CIF PROCEDURECALL (1
767, 710
), (1
5
0, 38) */
/* CIF PROCEDURECALL (1
131, 664
), (10
6
, 38) */
CALL writeln('3');
/* CIF TASK (1
744
, 7
63
), (1
96
, 35) */
/* CIF TASK (1
113
, 7
17
), (1
41
, 35) */
TASK V3(1) := V4(1)(0,4);
/* CIF TASK (1
78
3,
813
), (11
8
, 35) */
/* CIF TASK (1
13
3,
767
), (1
0
1, 35) */
TASK fail := true;
/* CIF JOIN (1
824
, 8
63
), (35, 35) */
/* CIF JOIN (1
166
, 8
17
), (35, 35) */
JOIN two;
ENDDECISION;
ENDDECISION;
/* CIF ANSWER (
2032
, 2
88
), (78, 28) */
/* CIF ANSWER (
1331
, 2
42
), (78, 28) */
(false):
/* CIF DECISION (
2032, 331
), (78, 50) */
/* CIF DECISION (
1331, 285
), (78, 50) */
DECISION fail;
/* CIF ANSWER (1
990, 401
), (73, 28) */
/* CIF ANSWER (1
289, 355
), (73, 28) */
(true):
/* CIF PROCEDURECALL (1
950, 444
), (1
53
, 38) */
/* CIF PROCEDURECALL (1
264, 398
), (1
22
, 38) */
CALL writeln('FAIL');
/* CIF NEXTSTATE (1
991
, 4
97
), (70, 35) */
/* CIF NEXTSTATE (1
290
, 4
51
), (70, 35) */
NEXTSTATE wait;
/* CIF ANSWER (
2150, 401
), (78, 28) */
/* CIF ANSWER (
1449, 355
), (78, 28) */
(false):
/* CIF PROCEDURECALL (
2114, 444
), (1
5
0, 38) */
/* CIF PROCEDURECALL (
1435, 398
), (10
6
, 38) */
CALL writeln('1');
/* CIF TASK (
213
5, 4
97
), (
10
8, 35) */
/* CIF TASK (
144
5, 4
51
), (8
6
, 35) */
TASK V2 := V1;
/* CIF TASK (
2130
, 5
47
), (11
8
, 35) */
/* CIF TASK (
1437
, 5
01
), (1
0
1, 35) */
TASK fail := true;
/* CIF JOIN (
2171
, 5
97
), (35, 35) */
/* CIF JOIN (
1470
, 5
51
), (35, 35) */
JOIN one;
ENDDECISION;
ENDDECISION;
/* CIF STATE (
130, 407
), (70, 35) */
/* CIF STATE (
534, 53
), (70, 35) */
STATE wait;
ENDSTATE;
ENDPROCESS og;
\ No newline at end of file
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