diff options
| author | Björn Gustavsson <[email protected]> | 2014-09-25 12:53:56 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2015-01-12 11:40:24 +0100 |
| commit | 081b4f03af69f67abf97f268d5d097918a6f3d6d (patch) | |
| tree | 645a18437bd95c48db6a527a3be9a21a71ea2854 /lib/asn1/test/testValueTest.erl | |
| parent | 3ab3b07afd07bb2fc59037e4b65f08c9038bf078 (diff) | |
| download | otp-081b4f03af69f67abf97f268d5d097918a6f3d6d.tar.gz otp-081b4f03af69f67abf97f268d5d097918a6f3d6d.tar.bz2 otp-081b4f03af69f67abf97f268d5d097918a6f3d6d.zip | |
Correct recursion in OCTET STRING value definitions
Diffstat (limited to 'lib/asn1/test/testValueTest.erl')
| -rw-r--r-- | lib/asn1/test/testValueTest.erl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/asn1/test/testValueTest.erl b/lib/asn1/test/testValueTest.erl index d9cc3de5eb..24a2862b40 100644 --- a/lib/asn1/test/testValueTest.erl +++ b/lib/asn1/test/testValueTest.erl @@ -72,8 +72,18 @@ main() -> roundtrip('II', 4), roundtrip_error('II', 5), + %% Recursive value definitions. + {'OctetStringSeq',<<16#40,16#41,16#42>>} = M:octetStringSeq1(), + <<16#40,16#41,16#42>> = M:otherOctetString(), + <<16#40,16#41,16#42>> = M:someOctetString(), + {'OctetStringSeq',<<16#40,16#41,16#42>>} = M:octetStringSeq2(), + {'OctetStringSeq',<<16#40,16#41,16#FF>>} = M:octetStringSeq3(), + <<16#40,16#41,16#FF>> = M:'os-1'(), + <<16#40,16#41,16#FF>> = M:'os-2'(), + ok. + roundtrip(T, V) -> asn1_test_lib:roundtrip('ValueTest', T, V). |