diff options
| author | Björn Gustavsson <[email protected]> | 2013-02-08 09:29:18 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2013-02-15 15:27:15 +0100 |
| commit | d3597d31c3b26a6269ed37b7856425a1d0641a90 (patch) | |
| tree | 9808c76c40d2f3006e1244bd25ab3470e24b26a3 /lib/asn1/test/testWSParamClass.erl | |
| parent | 244b486f73bedbfae83b408d59ddb3b7a095d0b7 (diff) | |
| download | otp-d3597d31c3b26a6269ed37b7856425a1d0641a90.tar.gz otp-d3597d31c3b26a6269ed37b7856425a1d0641a90.tar.bz2 otp-d3597d31c3b26a6269ed37b7856425a1d0641a90.zip | |
BER: Fix broken table constraints inside a SET OF/SEQUENCE OF
Diffstat (limited to 'lib/asn1/test/testWSParamClass.erl')
| -rw-r--r-- | lib/asn1/test/testWSParamClass.erl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lib/asn1/test/testWSParamClass.erl b/lib/asn1/test/testWSParamClass.erl new file mode 100644 index 0000000000..ae67ca8b81 --- /dev/null +++ b/lib/asn1/test/testWSParamClass.erl @@ -0,0 +1,17 @@ +-module(testWSParamClass). +-export([main/1]). + +main(_) -> + IF = 'InformationFramework', + roundtrip({'Attribute',IF:'id-at-objectClass'(), + [IF:'id-at-objectClass'()], + asn1_NOVALUE}), + roundtrip({'Attribute',IF:'id-at-objectClass'(), + [],[]}), + ok. + +roundtrip(Data) -> + IF = 'InformationFramework', + {ok,Enc} = asn1_wrapper:encode(IF, 'Attribute', Data), + {ok,Data} = IF:decode('Attribute', Enc), + ok. |