From 18bd1239bee04427340a44f57f993ea92c264e41 Mon Sep 17 00:00:00 2001
From: Kenneth Lundin <kenneth@erlang.org>
Date: Fri, 19 Feb 2010 14:01:57 +0000
Subject: OTP-8463  Support for EXTENSIBILITY IMPLIED and SET/SEQ OF NamedType
 is           added.

---
 lib/asn1/test/asn1_SUITE_data/P-Record.py | 59 +++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100644 lib/asn1/test/asn1_SUITE_data/P-Record.py

(limited to 'lib/asn1/test/asn1_SUITE_data/P-Record.py')

diff --git a/lib/asn1/test/asn1_SUITE_data/P-Record.py b/lib/asn1/test/asn1_SUITE_data/P-Record.py
new file mode 100644
index 0000000000..f1db09ac6c
--- /dev/null
+++ b/lib/asn1/test/asn1_SUITE_data/P-Record.py
@@ -0,0 +1,59 @@
+P-Record DEFINITIONS  ::=
+BEGIN
+
+
+PersonnelRecord ::= [APPLICATION 0] SET
+{	name			  Name,
+	title			  VisibleString,
+	number			  EmployeeNumber,
+	dateOfHire		  Date,
+	nameOfSpouse  	[1]	  Name,
+	children		  SEQUENCE OF ChildInformation DEFAULT {}
+}
+
+ChildInformation ::= SET
+{	name			Name,
+	dateOfBirth		Date
+}
+
+Name ::= [APPLICATION 1] SEQUENCE
+{	givenName		VisibleString,
+	initial			VisibleString,
+	familyName		VisibleString
+}
+
+EmployeeNumber ::= [APPLICATION 2] INTEGER
+Date ::= [APPLICATION 3] VisibleString  --  YYYY MMDD
+
+v PersonnelRecord ::=
+{
+	name {
+		givenName "John", 
+		initial "P", 
+		familyName "Smith"
+	},
+	title	"Director",
+	number	51,
+	dateOfHire "19710917",
+	nameOfSpouse {
+		givenName "Mary", 
+		initial "T", 
+		familyName "Smith"
+	},
+	children { 
+		{name {
+			givenName "Ralph", 
+			initial "T", 
+			familyName "Smith"
+		} ,
+		dateOfBirth "19571111"},
+		{name {
+			givenName "Susan", 
+			initial "B", 
+			familyName "Jones"
+		} ,
+		dateOfBirth "19590717" }
+	}
+}
+
+END
-- 
cgit v1.2.3