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
9e516599
Commit
9e516599
authored
Jul 22, 2014
by
Maxime Perrotin
Browse files
Minor testcase updates
parent
48af9940
Changes
4
Hide whitespace changes
Inline
Side-by-side
tests/regression/test-substrings/Makefile
View file @
9e516599
...
...
@@ -24,4 +24,4 @@ coverage:
clean
:
rm
-rf
*
.adb
*
.ads
*
.pyc runSpark.sh spark.idx
*
.o
*
.ali gnat.cfg examiner bin
*
.wrn
*
.gpr datav
*
.? ber.c xer.c asn1crt.? acn.c real.c
rm
-rf
*
.adb
*
.ads
*
.pyc runSpark.sh spark.idx
*
.o
*
.ali gnat.cfg examiner bin
*
.wrn
*
.gpr datav
*
.? ber.c xer.c asn1crt.? acn.c real.c
testcase
tests/regression/test-substrings/dataview-uniq.asn
View file @
9e516599
...
...
@@ -39,6 +39,8 @@ MyChoice ::= CHOICE {
MySeqOf ::= SEQUENCE (SIZE (2)) OF MyEnum
SeqInt ::= SEQUENCE (SIZE(1..2)) OF T-UInt8
SeqBool ::= SEQUENCE (SIZE(2)) OF BOOLEAN
SeqBool2 ::= SEQUENCE (SIZE(1..2)) OF BOOLEAN
MyOctStr ::= OCTET STRING (SIZE (3))
String ::= OCTET STRING (SIZE(0..100))
...
...
tests/regression/test-substrings/myfunction.pr
View file @
9e516599
/* CIF PROCESS (200, 143), (150, 75) */
PROCESS myfunction;
/* CIF TEXT (7, 43), (327, 41) */
-- Test substrings in various contexts and operators
/* CIF ENDTEXT */
/* CIF TEXT (0, 133), (282, 108) */
/* CIF TEXT (0, 133), (282, 128) */
dcl str MyOctStr := 'abc';
dcl variable_str String := 'Hello!';
dcl seqof MySeqOf := {hello, world};
dcl seqint seqInt := {1};
dcl seqbool seqBool := { true, false};
dcl seqbool2 seqBool2 := { true, false};
/* CIF ENDTEXT */
/* CIF TEXT (7, 43), (327, 41) */
-- Test substrings in various contexts and operators
/* CIF ENDTEXT */
/* CIF PROCEDURE (1416, 490), (91, 35) */
PROCEDURE factorial;
...
...
@@ -28,132 +30,138 @@ endfor;
/* CIF RETURN (315, 201), (35, 35) */
RETURN ;
ENDPROCEDURE;
/* CIF START (1
1
4, 2
4
7), (65, 37) */
/* CIF START (1
0
4, 27
3
), (65, 37) */
START;
/* CIF DECISION (
8
5,
299
), (123, 50) */
/* CIF DECISION (
7
5,
325
), (123, 50) */
DECISION hello in seqof
/* CIF COMMENT (2
2
8, 3
00
), (179, 53) */
/* CIF COMMENT (2
1
8, 3
26
), (179, 53) */
COMMENT 'Check IN operator with
enumerated type';
/* CIF ANSWER (
1
4, 3
6
9), (70, 23) */
/* CIF ANSWER (4, 39
5
), (70, 23) */
(true):
/* CIF PROCEDURECALL (-
3
9, 4
07
), (177, 35) */
/* CIF PROCEDURECALL (-
4
9, 4
33
), (177, 35) */
CALL writeln(hello in seqof)
/* CIF COMMENT (1
5
8, 4
07
), (111, 35) */
/* CIF COMMENT (1
4
8, 4
33
), (111, 35) */
COMMENT 'print "TRUE"';
/* CIF ANSWER (2
7
9, 3
6
9), (70, 23) */
/* CIF ANSWER (2
6
9, 39
5
), (70, 23) */
(false):
ENDDECISION;
/* CIF DECISION (
6
9, 4
57
), (155, 50) */
/* CIF DECISION (
5
9, 4
83
), (155, 50) */
DECISION hello in seqof(0,0)
/* CIF COMMENT (2
5
2, 4
58
), (236, 53) */
/* CIF COMMENT (2
4
2, 4
66
), (236, 53) */
COMMENT 'Check IN operator with
list substring - first element only
should go to branch TRUE';
/* CIF ANSWER (
1
8, 5
18
), (66, 33) */
/* CIF ANSWER (8, 5
26
), (66, 33) */
(true):
/* CIF PROCEDURECALL (-
4
9, 5
66
), (201, 35) */
/* CIF PROCEDURECALL (-
5
9, 5
74
), (201, 35) */
CALL writeln(hello in seqof(0,1))
/* CIF COMMENT (1
7
2, 5
66
), (111, 35) */
/* CIF COMMENT (1
6
2, 5
74
), (111, 35) */
COMMENT 'print "TRUE"';
/* CIF ANSWER (2
9
6, 5
19
), (70, 23) */
/* CIF ANSWER (2
8
6, 5
27
), (70, 23) */
(false):
ENDDECISION;
/* CIF PROCEDURECALL (
5
1, 6
16
), (190, 35) */
/* CIF PROCEDURECALL (
4
1, 6
24
), (190, 35) */
CALL writeln(variable_str(0,4))
/* CIF COMMENT (2
5
3, 5
8
9), (113, 35) */
/* CIF COMMENT (2
4
3, 5
7
9), (113, 35) */
COMMENT 'print "Hello"';
/* CIF TASK (
5
8, 6
66
), (176, 53) */
/* CIF TASK (
4
8, 6
74
), (176, 53) */
TASK for x in seqof:
call writeln(num(x));
endfor
/* CIF COMMENT (2
5
2, 6
4
6), (96, 53) */
/* CIF COMMENT (2
4
2, 6
3
6), (96, 53) */
COMMENT 'print:
12
13';
/* CIF TASK (
5
7, 7
3
4), (178, 53) */
/* CIF TASK (
4
7, 74
2
), (178, 53) */
TASK for x in seqof(0,1):
call writeln(-num(x));
endfor
/* CIF COMMENT (2
5
3,
70
7), (96, 53) */
/* CIF COMMENT (2
4
3,
69
7), (96, 53) */
COMMENT 'print:
-12
-13';
/* CIF PROCEDURECALL (
5
6, 80
2
), (180, 35) */
/* CIF PROCEDURECALL (
4
6, 8
1
0), (180, 35) */
CALL writeln(length(seqof))
/* CIF COMMENT (2
5
6, 7
9
0), (77, 35) */
/* CIF COMMENT (2
4
6, 7
8
0), (77, 35) */
COMMENT 'print 2';
/* CIF PROCEDURECALL (
4
2, 8
52
), (209, 35) */
/* CIF PROCEDURECALL (
3
2, 8
60
), (209, 35) */
CALL writeln(length(seqof(0,1)))
/* CIF COMMENT (2
7
1, 8
4
0), (77, 35) */
/* CIF COMMENT (2
6
1, 8
3
0), (77, 35) */
COMMENT 'print 2';
/* CIF LABEL (
6
5, 90
2
), (162, 35) */
/* CIF LABEL (
5
5, 9
1
0), (162, 35) */
variable_length_seq:
/* CIF TASK (
7
5, 9
52
), (142, 53) */
/* CIF TASK (
6
5, 9
60
), (142, 53) */
TASK for x in seqint:
call writeln(x);
endfor
/* CIF COMMENT (2
3
7, 9
2
5), (96, 53) */
/* CIF COMMENT (2
2
7, 9
1
5), (96, 53) */
COMMENT 'print:
1';
/* CIF TASK (
7
1, 102
0
), (150, 53) */
/* CIF TASK (
6
1, 102
8
), (150, 53) */
TASK for x in seqint(0,0):
call writeln(x);
endfor
/* CIF COMMENT (2
4
1, 9
9
3), (96, 53) */
/* CIF COMMENT (2
3
1, 9
8
3), (96, 53) */
COMMENT 'print:
1';
/* CIF DECISION (
8
5, 10
88
), (123, 50) */
/* CIF DECISION (
7
5, 10
96
), (123, 50) */
DECISION 1 in seqint
/* CIF COMMENT (2
2
7, 10
6
6), (179, 53) */
/* CIF COMMENT (2
1
7, 10
5
6), (179, 53) */
COMMENT 'Check IN operator with
variable-length seqOf';
/* CIF ANSWER (
1
7, 11
5
8), (66, 33) */
/* CIF ANSWER (7, 11
4
8), (66, 33) */
(true):
/* CIF PROCEDURECALL (-
3
8, 1
20
6), (177, 35) */
/* CIF PROCEDURECALL (-
4
8, 1
19
6), (177, 35) */
CALL writeln(1 in seqint)
/* CIF COMMENT (1
5
9, 1
20
6), (111, 35) */
/* CIF COMMENT (1
4
9, 1
19
6), (111, 35) */
COMMENT 'print "TRUE"';
/* CIF ANSWER (2
7
7, 11
5
8), (70, 23) */
/* CIF ANSWER (2
6
7, 11
4
8), (70, 23) */
(false):
ENDDECISION;
/* CIF DECISION (
8
3, 12
5
6), (126, 50) */
/* CIF DECISION (
7
3, 12
4
6), (126, 50) */
DECISION 1 in seqint(0,0)
/* CIF COMMENT (2
2
8, 12
34
), (179, 53) */
/* CIF COMMENT (2
1
8, 12
06
), (179, 53) */
COMMENT 'Check IN operator with
variable-length seqOf';
/* CIF ANSWER (
1
5, 1
326
), (70, 23) */
/* CIF ANSWER (5, 1
298
), (70, 23) */
(true):
/* CIF PROCEDURECALL (-
3
9, 136
4
), (179, 35) */
/* CIF PROCEDURECALL (-
4
9, 13
3
6), (179, 35) */
CALL writeln(1 in seqint(0,0))
/* CIF COMMENT (1
6
0, 136
4
), (111, 35) */
/* CIF COMMENT (1
5
0, 13
3
6), (111, 35) */
COMMENT 'print "TRUE"';
/* CIF ANSWER (2
7
8, 1
326
), (70, 23) */
/* CIF ANSWER (2
6
8, 1
298
), (70, 23) */
(false):
ENDDECISION;
/* CIF PROCEDURECALL (
5
6, 1
414
), (180, 35) */
/* CIF PROCEDURECALL (
4
6, 1
386
), (180, 35) */
CALL writeln(length(seqint))
/* CIF COMMENT (2
5
6, 1
402
), (77, 35) */
/* CIF COMMENT (2
4
6, 1
356
), (77, 35) */
COMMENT 'print 1';
/* CIF PROCEDURECALL (
4
0, 146
4
), (212, 35) */
/* CIF PROCEDURECALL (
3
0, 14
3
6), (212, 35) */
CALL writeln(length(seqint(0,0)))
/* CIF COMMENT (2
7
2, 14
52
), (77, 35) */
/* CIF COMMENT (2
6
2, 14
06
), (77, 35) */
COMMENT 'print 1';
/* CIF TASK (
6
6, 1
514
), (161, 35) */
/* CIF TASK (
5
6, 1
486
), (161, 35) */
TASK seqint := seqint // {2};
/* CIF TASK (
5
3, 156
4
), (186, 35) */
/* CIF TASK (
4
3, 15
3
6), (186, 35) */
TASK seqint := seqint(0,0) // {5};
/* CIF TASK (
7
5, 1
614
), (142, 53) */
/* CIF TASK (
6
5, 1
586
), (142, 53) */
TASK for x in seqint:
call writeln(x);
endfor
/* CIF COMMENT (2
3
9, 1
611
), (96, 53) */
/* CIF COMMENT (2
2
9, 1
565
), (96, 53) */
COMMENT 'print:
1
5';
/* CIF NEXTSTATE (114, 1682), (65, 33) */
/* CIF TASK (20, 1654), (233, 35) */
TASK seqbool := seqbool and seqbool
/* CIF COMMENT (273, 1648), (193, 35) */
COMMENT 'should not raise any error';
/* CIF TASK (10, 1704), (253, 38) */
TASK seqbool2 := seqbool2 and seqbool2;
/* CIF NEXTSTATE (104, 1757), (65, 33) */
NEXTSTATE Wait;
/* CIF STATE (
418
, 313), (70, 35) */
/* CIF STATE (
839
, 313), (70, 35) */
STATE wait;
ENDSTATE;
ENDPROCESS myfunction;
\ No newline at end of file
tests/regression/test1/og.pr
View file @
9e516599
...
...
@@ -32,8 +32,8 @@ test := abs(test)
TASK first_msg := 'Say hello first!'
/* CIF COMMENT (599, 189), (148, 50) */
COMMENT 'String assignment';
/* CIF PROCEDURECALL (3
90
, 254), (17
3
, 35) */
CALL writeln( first_msg);
/* CIF PROCEDURECALL (3
88
, 254), (17
7
, 35) */
CALL writeln( first_msg
(1,2)
);
/* CIF PROCEDURECALL (373, 304), (207, 35) */
CALL writeln( not (not not true));
/* CIF TASK (394, 354), (165, 50) */
...
...
@@ -173,14 +173,14 @@ string';
/* CIF ANSWER (418, 1434), (88, 23) */
(0 in {1,2}):
ENDDECISION;
/* CIF DECISION (368, 147
2
), (98, 50) */
/* CIF DECISION (368, 147
7
), (98, 50) */
DECISION 4 in {1,2,3};
/* CIF ANSWER (337, 154
2
), (70, 23) */
/* CIF ANSWER (337, 154
7
), (70, 23) */
(true):
/* CIF ANSWER (427, 154
2
), (70, 23) */
/* CIF ANSWER (427, 154
7
), (70, 23) */
(false):
ENDDECISION;
/* CIF NEXTSTATE (367, 15
8
0), (100, 50) */
/* CIF NEXTSTATE (367, 15
9
0), (100, 50) */
NEXTSTATE Running;
ENDDECISION;
ENDSTATE;
...
...
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