diff options
| author | Simon Cornish <[email protected]> | 2019-02-25 13:27:15 -0800 |
|---|---|---|
| committer | Simon Cornish <[email protected]> | 2019-02-25 21:27:36 -0800 |
| commit | 9928a3918c46c6cc412a9ce008a595d7587b0785 (patch) | |
| tree | 1605e13671b18e6f0820f655ad2570a4797775e4 /lib/asn1/test/testSeqOfChoExt.erl | |
| parent | 5c9dd56af4e051003ce7b8b5dd4cf50bf9eefdbe (diff) | |
| download | otp-9928a3918c46c6cc412a9ce008a595d7587b0785.tar.gz otp-9928a3918c46c6cc412a9ce008a595d7587b0785.tar.bz2 otp-9928a3918c46c6cc412a9ce008a595d7587b0785.zip | |
Test compiling value of SEQUENCE OF CHOICE with extensions
Diffstat (limited to 'lib/asn1/test/testSeqOfChoExt.erl')
| -rw-r--r-- | lib/asn1/test/testSeqOfChoExt.erl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lib/asn1/test/testSeqOfChoExt.erl b/lib/asn1/test/testSeqOfChoExt.erl new file mode 100644 index 0000000000..1e72c60841 --- /dev/null +++ b/lib/asn1/test/testSeqOfChoExt.erl @@ -0,0 +1,15 @@ +-module(testSeqOfChoExt). + +-export([main/1]). + +%-record('Seq2', { octstr = asn1_NOVALUE }). +%-record('Seq1', { int, soc }). + +main(_Rules) -> + roundtrip('SeqOfChoExt':seq1()). + +roundtrip(Value) -> + roundtrip(Value, Value). +roundtrip(Value, Exp) -> + Type = element(1,Value), + asn1_test_lib:roundtrip('SeqOfChoExt', Type, Value, Exp). |