diff options
| author | Björn Gustavsson <[email protected]> | 2014-02-13 14:10:33 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2014-02-13 15:04:42 +0100 |
| commit | 5d6d6812229cbcfbb26260d38d8ee4061f9a6570 (patch) | |
| tree | 4f34ed94c84024a00dd4190db3bb8dab20468527 /lib/asn1/test | |
| parent | b28f32d3b793fa7dbaa97f015f84b402bcca2161 (diff) | |
| download | otp-5d6d6812229cbcfbb26260d38d8ee4061f9a6570.tar.gz otp-5d6d6812229cbcfbb26260d38d8ee4061f9a6570.tar.bz2 otp-5d6d6812229cbcfbb26260d38d8ee4061f9a6570.zip | |
Correct subtyping of extensible ENUMERATED
Attempting to subtype an extensible ENUMERATED like this:
BaseType ::= { foo, bar, ... }
SubType ::= BaseType ( foo )
would fail to compile with a message that 'foo' was undefined.
Reported-by: Morten Nygaard Åsnes
Diffstat (limited to 'lib/asn1/test')
| -rw-r--r-- | lib/asn1/test/asn1_SUITE_data/EnumExt.asn1 | 2 | ||||
| -rw-r--r-- | lib/asn1/test/testEnumExt.erl | 4 |
2 files changed, 6 insertions, 0 deletions
diff --git a/lib/asn1/test/asn1_SUITE_data/EnumExt.asn1 b/lib/asn1/test/asn1_SUITE_data/EnumExt.asn1 index 8dc5f3d7e1..74fa97e7aa 100644 --- a/lib/asn1/test/asn1_SUITE_data/EnumExt.asn1 +++ b/lib/asn1/test/asn1_SUITE_data/EnumExt.asn1 @@ -18,6 +18,8 @@ Ext1 ::= ENUMERATED { magenta(9) } +SubExt1 ::= Ext1 ( blue | orange | black ) + Noext ::= ENUMERATED { blue(0), red(1), diff --git a/lib/asn1/test/testEnumExt.erl b/lib/asn1/test/testEnumExt.erl index c66adaf949..878518be11 100644 --- a/lib/asn1/test/testEnumExt.erl +++ b/lib/asn1/test/testEnumExt.erl @@ -59,6 +59,10 @@ main(ber) -> common(ber). common(Erule) -> + roundtrip('SubExt1', blue), + roundtrip('SubExt1', orange), + roundtrip('SubExt1', black), + roundtrip('Seq', {'Seq',blue,42}), roundtrip('Seq', {'Seq',red,42}), roundtrip('Seq', {'Seq',green,42}), |