Commit 5ab96cda authored by Lev Walkin's avatar Lev Walkin

new test for Choice

parent 1c75173e
...@@ -29,6 +29,8 @@ BEGIN ...@@ -29,6 +29,8 @@ BEGIN
namedSetOfREAL NamedSetOfREAL, namedSetOfREAL NamedSetOfREAL,
namedSetOfEnums NamedSetOfEnums, namedSetOfEnums NamedSetOfEnums,
seqOfZuka SeqOfZuka, seqOfZuka SeqOfZuka,
setOfChoice SetOfChoice,
namedSetOfChoice NamedSetOfChoice,
... ...
} }
...@@ -71,5 +73,9 @@ BEGIN ...@@ -71,5 +73,9 @@ BEGIN
NamedSetOfEnums ::= SET OF name ENUMERATED { one, oneMore } NamedSetOfEnums ::= SET OF name ENUMERATED { one, oneMore }
SequenceOf ::= SEQUENCE OF id INTEGER { one(1), two(2) } SequenceOf ::= SEQUENCE OF id INTEGER { one(1), two(2) }
SeqOfZuka ::= SEQUENCE OF zuka NULL SeqOfZuka ::= SEQUENCE OF zuka NULL
SetOfChoice ::= SET OF SimpleChoice
NamedSetOfChoice ::= SET OF whatever SimpleChoice
SimpleChoice ::= CHOICE { a NULL, b INTEGER }
END END
...@@ -6,14 +6,19 @@ BEGIN ...@@ -6,14 +6,19 @@ BEGIN
PDU ::= CHOICE { PDU ::= CHOICE {
sequence [0] IMPLICIT Sequence, sequence [0] IMPLICIT Sequence,
set [1] IMPLICIT Set, set [1] IMPLICIT Set,
setOf [2] IMPLICIT SetOf, sequenceOf [2] IMPLICIT SequenceOf,
sequenceOf [3] IMPLICIT SequenceOf, extensibleSet [3] IMPLICIT ExtensibleSet,
extensibleSet [4] IMPLICIT ExtensibleSet, extensibleSequence [4] IMPLICIT ExtensibleSequence,
extensibleSequence [5] IMPLICIT ExtensibleSequence, extensibleSequence2 [5] IMPLICIT ExtensibleSequence2,
extensibleSequence2 [6] IMPLICIT ExtensibleSequence2, setOfNULL [6] IMPLICIT SetOfNULL,
setOfNULL [7] IMPLICIT SetOfNULL, setOfREAL [7] IMPLICIT SetOfREAL,
setOfEnums [8] IMPLICIT SetOfEnums, setOfEnums [8] IMPLICIT SetOfEnums,
seqOfZuka [9] IMPLICIT SeqOfZuka, namedSetOfNULL [9] IMPLICIT NamedSetOfNULL,
namedSetOfREAL [10] IMPLICIT NamedSetOfREAL,
namedSetOfEnums [11] IMPLICIT NamedSetOfEnums,
seqOfZuka [12] IMPLICIT SeqOfZuka,
setOfChoice [13] IMPLICIT SetOfChoice,
namedSetOfChoice [14] IMPLICIT NamedSetOfChoice,
... ...
} }
...@@ -51,15 +56,24 @@ ExtensibleSequence2 ::= SEQUENCE { ...@@ -51,15 +56,24 @@ ExtensibleSequence2 ::= SEQUENCE {
integer [1] IMPLICIT INTEGER OPTIONAL integer [1] IMPLICIT INTEGER OPTIONAL
} }
SetOf ::= SET OF REAL
SetOfNULL ::= SET OF NULL SetOfNULL ::= SET OF NULL
SetOfREAL ::= SET OF REAL
SetOfEnums ::= SET OF ENUMERATED { SetOfEnums ::= SET OF ENUMERATED {
one(0), one(0),
oneMore(1) oneMore(1)
} }
NamedSetOfNULL ::= SET OF y NULL
NamedSetOfREAL ::= SET OF name REAL
NamedSetOfEnums ::= SET OF name ENUMERATED {
one(0),
oneMore(1)
}
SequenceOf ::= SEQUENCE OF id INTEGER { SequenceOf ::= SEQUENCE OF id INTEGER {
one(1), one(1),
two(2) two(2)
...@@ -67,4 +81,13 @@ SequenceOf ::= SEQUENCE OF id INTEGER { ...@@ -67,4 +81,13 @@ SequenceOf ::= SEQUENCE OF id INTEGER {
SeqOfZuka ::= SEQUENCE OF zuka NULL SeqOfZuka ::= SEQUENCE OF zuka NULL
SetOfChoice ::= SET OF SimpleChoice
NamedSetOfChoice ::= SET OF whatever SimpleChoice
SimpleChoice ::= CHOICE {
a [0] IMPLICIT NULL,
b [1] IMPLICIT INTEGER
}
END END
This diff is collapsed.
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment