diff options
| author | Björn Gustavsson <[email protected]> | 2013-05-20 13:20:21 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2013-05-31 14:52:24 +0200 |
| commit | 72fa58fa2d150b0e73252ad3e13853e6b644cb77 (patch) | |
| tree | b263ea2785f2b0caf33934336c4ff5e905a1e78a /lib/asn1/test | |
| parent | f15e0270a6f68e93a7e33aa9e8aed2345f74dcd8 (diff) | |
| download | otp-72fa58fa2d150b0e73252ad3e13853e6b644cb77.tar.gz otp-72fa58fa2d150b0e73252ad3e13853e6b644cb77.tar.bz2 otp-72fa58fa2d150b0e73252ad3e13853e6b644cb77.zip | |
asn1ct_check: Don't pass on #'ObjectClassFieldType'{} with fixed type
Simplify the backends by letting asn1ct_check replacing a
with the actual type.
Diffstat (limited to 'lib/asn1/test')
| -rw-r--r-- | lib/asn1/test/asn1_SUITE_data/InfObj.asn | 6 | ||||
| -rw-r--r-- | lib/asn1/test/testInfObj.erl | 6 |
2 files changed, 11 insertions, 1 deletions
diff --git a/lib/asn1/test/asn1_SUITE_data/InfObj.asn b/lib/asn1/test/asn1_SUITE_data/InfObj.asn index 61d9d23ea2..53e5043cb7 100644 --- a/lib/asn1/test/asn1_SUITE_data/InfObj.asn +++ b/lib/asn1/test/asn1_SUITE_data/InfObj.asn @@ -180,6 +180,12 @@ MyPdu ::= SEQUENCE { str MY-CLASS.&stringValue ({MyObjectSet}{@int}) } +Seq2 ::= SEQUENCE { + int MY-CLASS.&integerValue ({MyObjectSet}), + seqof SEQUENCE (1..10) OF MY-CLASS.&booleanValue ({MyObjectSet}{@int}), + setof SET (1..10) OF MY-CLASS.&booleanValue ({MyObjectSet}{@int}) +} + -- -- Class with constructed default -- diff --git a/lib/asn1/test/testInfObj.erl b/lib/asn1/test/testInfObj.erl index d9890e4358..75f4dae310 100644 --- a/lib/asn1/test/testInfObj.erl +++ b/lib/asn1/test/testInfObj.erl @@ -58,7 +58,11 @@ main(_Erule) -> roundtrip('InfObj', 'ConstructedPdu', {'ConstructedPdu',2,{'CONSTRUCTED-DEFAULT_Type',999,false}}), roundtrip('InfObj', 'ConstructedPdu', - {'ConstructedPdu',3,true}). + {'ConstructedPdu',3,true}), + + roundtrip('InfObj', 'Seq2', + {'Seq2',42,[true,false,false,true], + [false,true,false]}). roundtrip(M, T, V) -> |