diff options
| author | Björn Gustavsson <[email protected]> | 2012-12-12 16:13:49 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2012-12-17 17:23:52 +0100 |
| commit | 4a66c94895471bb20a00dfdcdcd5ae569eb3b601 (patch) | |
| tree | 02d0ee3e911a4dde16b0ff7af9219e0a7479e8ce /lib/asn1/test/testChoRecursive.erl | |
| parent | 365fd188165a23446c5eb1b856622af76f7598f2 (diff) | |
| download | otp-4a66c94895471bb20a00dfdcdcd5ae569eb3b601.tar.gz otp-4a66c94895471bb20a00dfdcdcd5ae569eb3b601.tar.bz2 otp-4a66c94895471bb20a00dfdcdcd5ae569eb3b601.zip | |
Simplify testChoRecursive by introducing a roundtrip/2 function
Diffstat (limited to 'lib/asn1/test/testChoRecursive.erl')
| -rw-r--r-- | lib/asn1/test/testChoRecursive.erl | 51 |
1 files changed, 17 insertions, 34 deletions
diff --git a/lib/asn1/test/testChoRecursive.erl b/lib/asn1/test/testChoRecursive.erl index 22be26cbce..ee26d124a9 100644 --- a/lib/asn1/test/testChoRecursive.erl +++ b/lib/asn1/test/testChoRecursive.erl @@ -28,38 +28,21 @@ -record('ChoRec2_something',{a, b, c}). recursive(_Rules) -> - - ?line {ok,Bytes11} = asn1_wrapper:encode('ChoRecursive','ChoRec',{'ChoRec',{something, - #'ChoRec_something'{a = 77, - b = "some octets here", - c = {'ChoRec',{nothing,'NULL'}}}}}), - ?line {ok,{something,{'ChoRec_something',77,"some octets here",{nothing,'NULL'}}}} = - asn1_wrapper:decode('ChoRecursive','ChoRec',lists:flatten(Bytes11)), - - - ?line {ok,Bytes12} = asn1_wrapper:encode('ChoRecursive','ChoRec',{'ChoRec',{nothing,'NULL'}}), - ?line {ok,{nothing,'NULL'}} = - asn1_wrapper:decode('ChoRecursive','ChoRec',lists:flatten(Bytes12)), - - - - ?line {ok,Bytes21} = - asn1_wrapper:encode('ChoRecursive','ChoRec2',{'ChoRec2', - {something, - #'ChoRec2_something'{a = 77, - b = "some octets here", - c = {'ChoRec2', - {nothing,'NULL'}}}}}), - ?line {ok,{something,{'ChoRec2_something',77,"some octets here",{nothing,'NULL'}}}} = - asn1_wrapper:decode('ChoRecursive','ChoRec2',lists:flatten(Bytes21)), - - - ?line {ok,Bytes22} = - asn1_wrapper:encode('ChoRecursive','ChoRec2',{'ChoRec2',{nothing,'NULL'}}), - ?line {ok,{nothing,'NULL'}} = - asn1_wrapper:decode('ChoRecursive','ChoRec2',lists:flatten(Bytes22)), - - - - + roundtrip('ChoRec', + {something, + #'ChoRec_something'{a = 77, + b = "some octets here", + c = {nothing,'NULL'}}}), + roundtrip('ChoRec', {nothing,'NULL'}), + roundtrip('ChoRec2', + {something, + #'ChoRec2_something'{a = 77, + b = "some octets here", + c = {nothing,'NULL'}}}), + roundtrip('ChoRec2', {nothing,'NULL'}), + ok. + +roundtrip(Type, Value) -> + {ok,Encoded} = 'ChoRecursive':encode(Type, Value), + {ok,Value} = 'ChoRecursive':decode(Type, Encoded), ok. |