aboutsummaryrefslogtreecommitdiffstats
path: root/lib/asn1/test
diff options
context:
space:
mode:
authorGustav Simonsson <[email protected]>2012-02-13 10:39:05 +0100
committerGustav Simonsson <[email protected]>2012-02-13 10:39:05 +0100
commit6c2e966d4fccf7ec60795a3293492862f76aba5c (patch)
treead0f94e0bfc66c8d5b1dd67794ad3974bb9a2a6f /lib/asn1/test
parent86231a380b27fc262e48aa8c3f0372d4d2056682 (diff)
downloadotp-6c2e966d4fccf7ec60795a3293492862f76aba5c.tar.gz
otp-6c2e966d4fccf7ec60795a3293492862f76aba5c.tar.bz2
otp-6c2e966d4fccf7ec60795a3293492862f76aba5c.zip
Fix to integer and sequence definitions
Enable re-use of integer definitions in subsequent definitions and added clauses to check greatest common range for sequence definitions
Diffstat (limited to 'lib/asn1/test')
-rw-r--r--lib/asn1/test/asn1_SUITE.erl.src25
1 files changed, 23 insertions, 2 deletions
diff --git a/lib/asn1/test/asn1_SUITE.erl.src b/lib/asn1/test/asn1_SUITE.erl.src
index 124ee2d2bb..dd24feeda9 100644
--- a/lib/asn1/test/asn1_SUITE.erl.src
+++ b/lib/asn1/test/asn1_SUITE.erl.src
@@ -96,7 +96,8 @@ all() -> [{group,compile},parse,default_per,default_ber,default_per_opt,per,
testSSLspecs, testNortel,test_undecoded_rest,
test_inline, testTcapsystem, testNBAPsystem,
test_compile_options,testDoubleEllipses, test_modified_x420,
- testX420, test_x691,ticket_6143, testExtensionAdditionGroup
+ testX420, test_x691,ticket_6143, testExtensionAdditionGroup,
+ test_OTP_9688
] ++ common() ++ particular().
groups() ->
@@ -2369,4 +2370,24 @@ test_modules() ->
"LDAP"
].
-
+test_OTP_9688(_Config) ->
+ Asn1Mod = "OTP-9688.asn1",
+ Files = [Asn1Mod, "OTP-9688.asn1db", "OTP-9688.beam", "OTP-9688.erl", "OTP-9688.hrl"],
+ Data =
+ "
+OTP-9688 DEFINITIONS ::= BEGIN
+
+ foo INTEGER ::= 1
+ bar INTEGER ::= 42
+
+ Baz ::= INTEGER {x-y-z1(foo), x-y-z2(bar)}
+ Qux ::= SEQUENCE {flerpInfo SEQUENCE {x INTEGER (-10 | -9 | (0..4))} OPTIONAL}
+
+END
+",
+ file:write_file(Asn1Mod, Data),
+ %% Does it compile with changes to asn1ct_check and asn1ct_gen_per_rt2ct?
+ %% (see ticket)
+ ok = asn1ct:compile(Asn1Mod),
+ [file:delete(File) || File <- Files],
+ ok. \ No newline at end of file