diff options
| author | Björn Gustavsson <[email protected]> | 2013-05-21 16:40:44 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2013-05-31 14:52:24 +0200 |
| commit | 8bb2c7147979d30a06173fe2e08a456cc4745e4a (patch) | |
| tree | a048fe3235aa74a29bb50f33c777dbd1a401350f /lib/asn1/test/testEnumExt.erl | |
| parent | 7ffa31b173b57ed61a111e2dcc93967695ccf01c (diff) | |
| download | otp-8bb2c7147979d30a06173fe2e08a456cc4745e4a.tar.gz otp-8bb2c7147979d30a06173fe2e08a456cc4745e4a.tar.bz2 otp-8bb2c7147979d30a06173fe2e08a456cc4745e4a.zip | |
Improve tests of ENUMERATED
Diffstat (limited to 'lib/asn1/test/testEnumExt.erl')
| -rw-r--r-- | lib/asn1/test/testEnumExt.erl | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/lib/asn1/test/testEnumExt.erl b/lib/asn1/test/testEnumExt.erl index 0811f20571..8840ed6d2f 100644 --- a/lib/asn1/test/testEnumExt.erl +++ b/lib/asn1/test/testEnumExt.erl @@ -38,8 +38,7 @@ main(Rule) when Rule =:= per; Rule =:= uper -> %% ENUMERATED no extensionmark B64 = <<64>>, B64 = roundtrip('Noext', red), - ok; - + common(); main(ber) -> io:format("main(ber)~n",[]), %% ENUMERATED with extensionmark (value is in root set) @@ -57,6 +56,15 @@ main(ber) -> roundtrip('Globalstate', preop), roundtrip('Globalstate', com), + common(). + +common() -> + roundtrip('Seq', {'Seq',blue,42}), + roundtrip('Seq', {'Seq',red,42}), + roundtrip('Seq', {'Seq',green,42}), + roundtrip('Seq', {'Seq',orange,47}), + roundtrip('Seq', {'Seq',black,4711}), + roundtrip('Seq', {'Seq',magenta,4712}), ok. roundtrip(Type, Value) -> |