From b185ad94ac37e20c57d24fb0da4b46d923af53eb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= Date: Mon, 30 Nov 2015 13:54:10 +0100 Subject: BER: Fix encoding of empty named BIT STRING Encoding an empty named BIT STRING would fail for BER. Noticed-by: Svilen Ivanov --- lib/asn1/test/testPrimStrings.erl | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'lib/asn1/test/testPrimStrings.erl') diff --git a/lib/asn1/test/testPrimStrings.erl b/lib/asn1/test/testPrimStrings.erl index fa778765b1..46793c6bff 100644 --- a/lib/asn1/test/testPrimStrings.erl +++ b/lib/asn1/test/testPrimStrings.erl @@ -123,6 +123,7 @@ bit_string(Rules, Opts) -> %% Bs2 ::= BIT STRING {su(0), mo(1), tu(2), we(3), th(4), fr(5), sa(6) } (SIZE (7)) %%========================================================== + roundtrip('Bs2', []), roundtrip('Bs2', [mo,tu,fr]), bs_roundtrip('Bs2', <<2#0110010:7>>, [mo,tu,fr]), bs_roundtrip('Bs2', <<2#0110011:7>>, [mo,tu,fr,sa]), @@ -131,6 +132,7 @@ bit_string(Rules, Opts) -> %% Bs3 ::= BIT STRING {su(0), mo(1), tu(2), we(3), th(4), fr(5), sa(6) } (SIZE (1..7)) %%========================================================== + roundtrip('Bs3', []), roundtrip('Bs3', [mo,tu,fr]), bs_roundtrip('Bs3', <<2#0110010:7>>, [mo,tu,fr]), bs_roundtrip('Bs3', <<2#0110010:7>>, [mo,tu,fr]), @@ -138,6 +140,13 @@ bit_string(Rules, Opts) -> bs_roundtrip('Bs3', <<2#011001:6>>, [mo,tu,fr]), bs_roundtrip('Bs3', <<2#11:2>>, [su,mo]), + %%========================================================== + %% Bs4 ::= BIT STRING {su(0), mo(1), tu(2), we(3), th(4), fr(5), sa(6) } + %%========================================================== + + roundtrip('Bs4', []), + roundtrip('Bs4', [mo,tu,fr,sa]), + %%========================================================== %% Bs7 ::= BIT STRING (SIZE (24)) %%========================================================== -- cgit v1.2.3