From 9be1fbb32ef0bbdf99c7c39fac4a845606156a23 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Fri, 31 May 2013 12:44:03 +0200
Subject: testSeqOf: Test constrained, extensible sizes

---
 lib/asn1/test/asn1_SUITE_data/SeqOf.asn1 |  9 +++++++++
 lib/asn1/test/testSeqOf.erl              | 23 +++++++++++++++++++++++
 2 files changed, 32 insertions(+)

(limited to 'lib/asn1/test')

diff --git a/lib/asn1/test/asn1_SUITE_data/SeqOf.asn1 b/lib/asn1/test/asn1_SUITE_data/SeqOf.asn1
index 330944cf5c..888dbe5dd7 100644
--- a/lib/asn1/test/asn1_SUITE_data/SeqOf.asn1
+++ b/lib/asn1/test/asn1_SUITE_data/SeqOf.asn1
@@ -62,4 +62,13 @@ Empty ::= SEQUENCE
 {
 }
 
+SeqExt ::= SEQUENCE
+{
+  b1 BOOLEAN,
+  s1 SEQUENCE SIZE (1..3, ...) OF SeqIn,
+  b2 BOOLEAN,
+  s2 SEQUENCE SIZE (0..1024, ...) OF SeqIn,
+  magic INTEGER
+}
+
 END
diff --git a/lib/asn1/test/testSeqOf.erl b/lib/asn1/test/testSeqOf.erl
index 771045f9af..c1af0d7a32 100644
--- a/lib/asn1/test/testSeqOf.erl
+++ b/lib/asn1/test/testSeqOf.erl
@@ -86,6 +86,29 @@ main(_Rules) ->
     
     roundtrip('SeqEmp', #'SeqEmp'{seq1=[#'Empty'{}]}),
 
+    %% Test constrained, extensible size.
+
+    SeqIn = #'SeqIn'{boolIn=true,intIn=978654321},
+    roundtrip('SeqExt', {'SeqExt',true,[],true,[],789}),
+    roundtrip('SeqExt', {'SeqExt',true,lists:duplicate(1, SeqIn),
+			 true,lists:duplicate(0, SeqIn),777}),
+    roundtrip('SeqExt', {'SeqExt',true,lists:duplicate(1, SeqIn),
+			 true,lists:duplicate(1, SeqIn),777}),
+    roundtrip('SeqExt', {'SeqExt',true,lists:duplicate(1, SeqIn),
+			 true,lists:duplicate(127, SeqIn),777}),
+    roundtrip('SeqExt', {'SeqExt',true,lists:duplicate(2, SeqIn),
+			 true,lists:duplicate(128, SeqIn),1777}),
+    roundtrip('SeqExt', {'SeqExt',true,lists:duplicate(2, SeqIn),
+			 true,lists:duplicate(255, SeqIn),7773}),
+    roundtrip('SeqExt', {'SeqExt',true,lists:duplicate(2, SeqIn),
+			 true,lists:duplicate(256, SeqIn),77755}),
+    roundtrip('SeqExt', {'SeqExt',true,lists:duplicate(2, SeqIn),
+			 true,lists:duplicate(257, SeqIn),8888}),
+    roundtrip('SeqExt', {'SeqExt',true,lists:duplicate(3, SeqIn),
+			 true,lists:duplicate(1024, SeqIn),999988888}),
+    roundtrip('SeqExt', {'SeqExt',true,lists:duplicate(15, SeqIn),
+			 true,lists:duplicate(2000, SeqIn),555555}),
+
     %% Test OTP-4590: correct encoding of the length of SEQUENC OF.
     DayNames = ["Monday","Tuesday","Wednesday",
 		"Thursday","Friday","Saturday","Sunday"],
-- 
cgit v1.2.3