diff options
| author | Björn Gustavsson <[email protected]> | 2014-02-20 12:30:27 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2014-02-20 12:30:27 +0100 |
| commit | 39c18117df7cb5393fb0164c9aded020941fbddb (patch) | |
| tree | a8dd9ecd10bcb9126f969a7213d5735f56709c62 /lib/asn1/test | |
| parent | 4c538e1a857d3dce7cbb8358f9ddd08b25db166e (diff) | |
| parent | 5c12db17fea6de6f3fc3ce16a7159b6f71ea92f4 (diff) | |
| download | otp-39c18117df7cb5393fb0164c9aded020941fbddb.tar.gz otp-39c18117df7cb5393fb0164c9aded020941fbddb.tar.bz2 otp-39c18117df7cb5393fb0164c9aded020941fbddb.zip | |
Merge branch 'bjorn/asn1/cleanup/OTP-11727'
* bjorn/asn1/cleanup/OTP-11727:
asn1ct_check: Use a return value to silence a dialyzer warning
asn1ct_check: Remove useless call to check_integer/3
asn1ct_check: Correct error handling for illegal OCTET STRING values
asn1ct: Silence dialyzer warnings for unmatched returns
asn1ct_table: Remove unused flexibility in table creation
asn1ct_table: Silence a dialyzer warning for unmatched return
asn1ct_gen: Silence dialyzer warnings for unmatched returns
asn1ct_value: Silence a dialyzer warning for unmatched return
asn1ct_tok: Check return value from file:close/1
Diffstat (limited to 'lib/asn1/test')
| -rw-r--r-- | lib/asn1/test/error_SUITE.erl | 29 |
1 files changed, 25 insertions, 4 deletions
diff --git a/lib/asn1/test/error_SUITE.erl b/lib/asn1/test/error_SUITE.erl index 6451f81c01..930b44cea6 100644 --- a/lib/asn1/test/error_SUITE.erl +++ b/lib/asn1/test/error_SUITE.erl @@ -19,7 +19,7 @@ -module(error_SUITE). -export([suite/0,all/0,groups/0, - already_defined/1,enumerated/1,objects/1]). + already_defined/1,enumerated/1,objects/1,values/1]). -include_lib("test_server/include/test_server.hrl"). @@ -29,9 +29,11 @@ all() -> [{group,p}]. groups() -> - [{p,parallel(),[already_defined, - enumerated, - objects]}]. + [{p,parallel(), + [already_defined, + enumerated, + objects, + values]}]. parallel() -> case erlang:system_info(schedulers) > 1 of @@ -138,6 +140,25 @@ objects(Config) -> } = run(P, Config), ok. +values(Config) -> + M = 'Values', + P = {M, + <<"Values DEFINITIONS AUTOMATIC TAGS ::= BEGIN\n" + " os1 OCTET STRING ::= \"abc\"\n" + " os2 OCTET STRING ::= 42\n" + " os3 OCTET STRING ::= { 1, 3 }\n" + "END\n">>}, + {error, + [ + {structured_error,{M,2},asn1ct_check, + illegal_octet_string_value}, + {structured_error,{M,3},asn1ct_check, + illegal_octet_string_value}, + {structured_error,{M,4},asn1ct_check, + illegal_octet_string_value} + ] + } = run(P, Config), + ok. run({Mod,Spec}, Config) -> |