1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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.
|
