diff options
| author | Björn Gustavsson <[email protected]> | 2014-10-28 14:47:50 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2015-01-12 11:40:25 +0100 |
| commit | 0775ee9c7dc4957302a756b8b37cf94e372d3ecc (patch) | |
| tree | df646754c4e472fe6a17cd26a70a7348266e63e1 /lib/asn1/test/testValueTest.erl | |
| parent | 572b880ce6ad60ca0ad63aa9b4f8da01702834cf (diff) | |
| download | otp-0775ee9c7dc4957302a756b8b37cf94e372d3ecc.tar.gz otp-0775ee9c7dc4957302a756b8b37cf94e372d3ecc.tar.bz2 otp-0775ee9c7dc4957302a756b8b37cf94e372d3ecc.zip | |
Improve handling of BIT STRING values
Diffstat (limited to 'lib/asn1/test/testValueTest.erl')
| -rw-r--r-- | lib/asn1/test/testValueTest.erl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lib/asn1/test/testValueTest.erl b/lib/asn1/test/testValueTest.erl index d1532c3ef0..8a8e973621 100644 --- a/lib/asn1/test/testValueTest.erl +++ b/lib/asn1/test/testValueTest.erl @@ -88,6 +88,17 @@ main() -> <<16#40,16#41,16#FF>> = M:'os-1'(), <<16#40,16#41,16#FF>> = M:'os-2'(), + %% Recursive BIT STRING definitions. + {'BsSeq',<<2#101101:6>>,[c]} = M:bsSeq1(), + {'BsSeq',<<2#101101:6>>,[c]} = M:bsSeq2(), + {'BsSeq',<<2#101:3>>,[a,c]} = M:bsSeq3(), + <<2#101101:6>> = M:someBitString(), + <<2#101101:6>> = M:otherBitString(), + <<2#101:3>> = M:bsFromObject(), + <<2#101:3>> = M:bsFromObjectInd(), + [c] = M:someNamedBs(), + [c] = M:someOtherNamedBs(), + ok. |