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-RecordA1.asn | 29 ++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 lib/asn1/test/asn1_SUITE_data/P-RecordA1.asn

(limited to 'lib/asn1/test/asn1_SUITE_data/P-RecordA1.asn')

diff --git a/lib/asn1/test/asn1_SUITE_data/P-RecordA1.asn b/lib/asn1/test/asn1_SUITE_data/P-RecordA1.asn
new file mode 100644
index 0000000000..33ba690e1e
--- /dev/null
+++ b/lib/asn1/test/asn1_SUITE_data/P-RecordA1.asn
@@ -0,0 +1,29 @@
+P-RecordA1 DEFINITIONS AUTOMATIC TAGS ::=
+
+BEGIN
+
+PersonnelRecord ::= [APPLICATION 0] IMPLICIT SET {
+  name Name, 
+  title [0] VisibleString, 
+  number EmployeeNumber, 
+  dateOfHire [1] Date,
+  nameOfSpouse [2] Name,
+  children [3] IMPLICIT SEQUENCE OF ChildInformation DEFAULT {} 
+} 
+
+ChildInformation ::= SET { 
+  name Name,
+  dateOfBirth [0] Date
+}
+
+Name ::= [APPLICATION 1] IMPLICIT SEQUENCE {
+  givenName VisibleString, 
+  initial VisibleString, 
+  familyName VisibleString
+}
+
+EmployeeNumber ::= [APPLICATION 2] IMPLICIT INTEGER
+
+Date ::= [APPLICATION 3] IMPLICIT VisibleString -- YYYYMMDD
+
+END
\ No newline at end of file
-- 
cgit v1.2.3