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

new test for Choice

parent 1c75173e
......@@ -29,6 +29,8 @@ BEGIN
namedSetOfREAL NamedSetOfREAL,
namedSetOfEnums NamedSetOfEnums,
seqOfZuka SeqOfZuka,
setOfChoice SetOfChoice,
namedSetOfChoice NamedSetOfChoice,
...
}
......@@ -71,5 +73,9 @@ BEGIN
NamedSetOfEnums ::= SET OF name ENUMERATED { one, oneMore }
SequenceOf ::= SEQUENCE OF id INTEGER { one(1), two(2) }
SeqOfZuka ::= SEQUENCE OF zuka NULL
SetOfChoice ::= SET OF SimpleChoice
NamedSetOfChoice ::= SET OF whatever SimpleChoice
SimpleChoice ::= CHOICE { a NULL, b INTEGER }
END
......@@ -6,14 +6,19 @@ BEGIN
PDU ::= CHOICE {
sequence [0] IMPLICIT Sequence,
set [1] IMPLICIT Set,
setOf [2] IMPLICIT SetOf,
sequenceOf [3] IMPLICIT SequenceOf,
extensibleSet [4] IMPLICIT ExtensibleSet,
extensibleSequence [5] IMPLICIT ExtensibleSequence,
extensibleSequence2 [6] IMPLICIT ExtensibleSequence2,
setOfNULL [7] IMPLICIT SetOfNULL,
sequenceOf [2] IMPLICIT SequenceOf,
extensibleSet [3] IMPLICIT ExtensibleSet,
extensibleSequence [4] IMPLICIT ExtensibleSequence,
extensibleSequence2 [5] IMPLICIT ExtensibleSequence2,
setOfNULL [6] IMPLICIT SetOfNULL,
setOfREAL [7] IMPLICIT SetOfREAL,
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 {
integer [1] IMPLICIT INTEGER OPTIONAL
}
SetOf ::= SET OF REAL
SetOfNULL ::= SET OF NULL
SetOfREAL ::= SET OF REAL
SetOfEnums ::= SET OF ENUMERATED {
one(0),
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 {
one(1),
two(2)
......@@ -67,4 +81,13 @@ SequenceOf ::= SEQUENCE OF id INTEGER {
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
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