aboutsummaryrefslogtreecommitdiffstats
path: root/lib/asn1/test/error_SUITE.erl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/asn1/test/error_SUITE.erl')
-rw-r--r--lib/asn1/test/error_SUITE.erl17
1 files changed, 13 insertions, 4 deletions
diff --git a/lib/asn1/test/error_SUITE.erl b/lib/asn1/test/error_SUITE.erl
index 331d3607af..2960304193 100644
--- a/lib/asn1/test/error_SUITE.erl
+++ b/lib/asn1/test/error_SUITE.erl
@@ -284,6 +284,7 @@ objects(Config) ->
" obj4 SMALL ::= { &code 42 }\n"
" InvalidSet CL ::= { obj1 }\n"
" obj5 CL ::= {}\n"
+ " ErrSet ::= PT{ {PT{inst}}}\n"
" CL ::= CLASS {\n"
" &code INTEGER UNIQUE,\n"
@@ -299,6 +300,9 @@ objects(Config) ->
" &code INTEGER UNIQUE,\n"
" &i INTEGER\n"
" }\n"
+
+ " PT{SMALL:Small} ::= SEQUENCE { a SMALL.&code ({Small}) }\n"
+ " inst SMALL ::= {&code 42, &i 4711}\n"
"END\n">>},
{error,
[
@@ -316,7 +320,8 @@ objects(Config) ->
{structured_error,{M,7},asn1ct_check,
{missing_mandatory_fields,
['Data','Set','VarTypeValue',code,enum,object,
- vartypevalue],obj5}}
+ vartypevalue],obj5}},
+ {structured_error,{M,8},asn1ct_check,invalid_objectset}
]
} = run(P, Config),
ok.
@@ -486,13 +491,17 @@ parameterization(Config) ->
" P{T1,T2} ::= SEQUENCE { a T1, b T2 }\n"
" S ::= P{OCTET STRING}\n"
+ " Seq ::= SEQUENCE { a INTEGER }\n"
+ " Sbad ::= Seq{INTEGER}\n"
+
"END\n">>},
{error,
[{structured_error,{M,2},asn1ct_check,
{illegal_typereference,lowercase}},
- {structured_error,
- {M,4},
- asn1ct_check,param_wrong_number_of_arguments}
+ {structured_error,{M,4},asn1ct_check,
+ param_wrong_number_of_arguments},
+ {structured_error,{M,6},asn1ct_check,
+ {param_bad_type, 'Seq'}}
]
} = run(P, Config),
ok.