Merge branch 'maint'

* maint: (128 commits)
  beam_lib: Correct wrong type specification
  testSeqOf: Test constrained, extensible sizes
  [snmp/agent] Some restructuring of test suite
  Clean up testSeqOf
  Extend tests cases for BIT STRING
  Improve tests of ENUMERATED
  asn1ct_check: Eliminate useless Per argument from complist_as_tuple()
  asn1ct_check: Don't pass on #'ObjectClassFieldType'{} with fixed type
  asn1ct_gen_per: Remove useless renewal of 'enumval'
  Fix encoding of semi-constrained, extensible INTEGERs
  PER/UPER: Fix decoding of semi-constrained INTEGERs
  testPrim: Simplify test cases using a roundtrip function
  BER: Fix handling of a constructed default value for a class
  PER: Generate code for deep table constraints at compile-time
  Normalize data representation for table constraints
  asn1ct: Simplify check_value/2
  Extend tests to cover more code in asn1ct_check
  Clean up checking of values for ENUMERATEDs
  Introduce a new mechanism for structured error handling
  asn1_db: Make dbput/3 and dbsave/2 asynchronous
  ...

35 files changed, 314 insertions, 1960 deletions

diff --git a/lib/asn1/test/asn1_SUITE_data/BadEnumValue1.asn b/lib/asn1/test/asn1_SUITE_data/BadEnumValue1.asn
deleted file mode 100644
index dbc224a74b..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/BadEnumValue1.asn
+++ /dev/null
@@ -1,8 +0,0 @@
-BadEnumValue1 DEFINITIONS AUTOMATIC TAGS ::=
-
-BEGIN
-
-E3 ::= ENUMERATED {monday,thuesday(0)}
-enumWrongVal E3 ::= sunday
-
-END
diff --git a/lib/asn1/test/asn1_SUITE_data/Certificate.asn b/lib/asn1/test/asn1_SUITE_data/Certificate.asn
deleted file mode 100644
index e69de29bb2..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/Certificate.asn
+++ /dev/null
diff --git a/lib/asn1/test/asn1_SUITE_data/ChoExtension.asn1 b/lib/asn1/test/asn1_SUITE_data/ChoExtension.asn1
index 18473bae30..f6fe18be10 100644
--- a/lib/asn1/test/asn1_SUITE_data/ChoExtension.asn1
+++ b/lib/asn1/test/asn1_SUITE_data/ChoExtension.asn1
@@ -41,4 +41,10 @@ ChoExt4 ::= CHOICE
   str OCTET STRING
 }
 
+ChoEmptyRoot ::= CHOICE {
+  ...,
+  bool BOOLEAN,
+  int INTEGER (0..7)
+}
+
 END
diff --git a/lib/asn1/test/asn1_SUITE_data/ConstraintEquivalence.asn1 b/lib/asn1/test/asn1_SUITE_data/ConstraintEquivalence.asn1
index 6a97c1b38e..8b3d151502 100644
--- a/lib/asn1/test/asn1_SUITE_data/ConstraintEquivalence.asn1
+++ b/lib/asn1/test/asn1_SUITE_data/ConstraintEquivalence.asn1
@@ -8,6 +8,9 @@ BEGIN
  SingleValueX5 ::= INTEGER ((42) INTERSECTION (MIN..MAX))
  SingleValueX6 ::= INTEGER ((42) INTERSECTION (40..49))
  SingleValueX7 ::= INTEGER (42..42)
+ SingleValueX8 ::= INTEGER (integer42)
+ SingleValueX9 ::= INTEGER (integer42..integer42)
+ SingleValueX10 ::= INTEGER ((integer42) INTERSECTION (40..49))
 
  UnconstrainedX0 ::= INTEGER
  UnconstrainedX1 ::= INTEGER (MIN..MAX)
@@ -24,6 +27,7 @@ BEGIN
  RangeX04 ::= INTEGER (5|6|7|8|9|10)
  RangeX05 ::= INTEGER (10|9|8|7|6|5)
  RangeX06 ::= INTEGER (5|6|7..10)
+ RangeX07 ::= INTEGER (integer4<..<integer11)
 
  RangeX10 ::= INTEGER ((5..6) UNION (7..8) UNION (9|10))
  RangeX11 ::= INTEGER ((5|6) UNION (7..8) UNION (9|10))
@@ -39,4 +43,20 @@ BEGIN
  RangeX23 ::= INTEGER ((0..10) INTERSECTION (5..20) ^ (MIN..MAX))
  RangeX24 ::= INTEGER ((5|6|7|8|9|10) INTERSECTION (5..20) ^ (MIN..MAX))
 
+ UnconstrainedStringX00 ::= IA5String
+ UnconstrainedStringX01 ::= IA5String (SIZE (0..MAX))
+
+ ConstrainedStringX00 ::= IA5String (SIZE (0..5))
+ ConstrainedStringX01 ::= IA5String (SIZE (0|1|2|3|4|5))
+
+ -- Note: None of the back-ends care about the exact values
+ -- outside of the root range.
+ ExtConstrainedStringX00 ::= IA5String (SIZE (1..2, ...))
+ ExtConstrainedStringX01 ::= IA5String (SIZE (1|2, ..., 3))
+ ExtConstrainedStringX02 ::= IA5String (SIZE (1|2, ..., 3|4|5))
+
+ integer4 INTEGER ::= 4
+ integer11 INTEGER ::= 11
+ integer42 INTEGER ::= 42
+
 END
diff --git a/lib/asn1/test/asn1_SUITE_data/Constraints.py b/lib/asn1/test/asn1_SUITE_data/Constraints.py
index 87243121f7..e4bc987e4c 100644
--- a/lib/asn1/test/asn1_SUITE_data/Constraints.py
+++ b/lib/asn1/test/asn1_SUITE_data/Constraints.py
@@ -12,6 +12,12 @@ ContainedSubtype ::= INTEGER (INCLUDES Range10to20)
 -- Some ranges for additional constrained number testing.
 LongLong ::= INTEGER (0..18446744073709551615)
 Range256to65536 ::= INTEGER (256..65536)
+SemiConstrained ::= INTEGER (100..MAX)
+NegSemiConstrained ::= INTEGER (-128..MAX)
+SemiConstrainedExt ::= INTEGER (42..MAX, ...)
+NegSemiConstrainedExt ::= INTEGER (-128..MAX, ...)
+
+-- Other constraints
 FixedSize ::= OCTET STRING (SIZE(10)) 
 FixedSize2 ::= OCTET STRING (SIZE(10|20)) 
 VariableSize ::= OCTET STRING (SIZE(1..10)) 
@@ -86,5 +92,6 @@ Document ::= OCTET STRING (ENCODED BY pdf)
 
 pdf OBJECT IDENTIFIER ::= {1,2,3,4,5}
 
+ShorterExt ::= IA5String (SIZE (5, ...))
 
 END
diff --git a/lib/asn1/test/asn1_SUITE_data/EUTRA-InterNodeDefinitions.asn b/lib/asn1/test/asn1_SUITE_data/EUTRA-InterNodeDefinitions.asn
deleted file mode 100644
index 5e6313dc02..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/EUTRA-InterNodeDefinitions.asn
+++ /dev/null
@@ -1,123 +0,0 @@
--- 3GPP TS 36.331 V8.8.0 (2009-12)
--- $Id$
---
-EUTRA-InterNodeDefinitions DEFINITIONS AUTOMATIC TAGS ::=
- 
-BEGIN
-
-
-HandoverCommand ::=					SEQUENCE {
-	criticalExtensions					CHOICE {
-		c1									CHOICE{
-			handoverCommand-r8					HandoverCommand-r8-IEs,
-			spare7 NULL,
-			spare6 NULL, spare5 NULL, spare4 NULL,
-			spare3 NULL, spare2 NULL, spare1 NULL
-		},
-		criticalExtensionsFuture			SEQUENCE {}
-	}
-}
-
-HandoverCommand-r8-IEs ::=			SEQUENCE {
-	handoverCommandMessage				OCTET STRING (CONTAINING DL-DCCH-Message),
-	nonCriticalExtension				SEQUENCE {}							OPTIONAL
-}
-
-
-HandoverPreparationInformation ::=	SEQUENCE {
-	criticalExtensions					CHOICE {
-		c1									CHOICE{
-			handoverPreparationInformation-r8	HandoverPreparationInformation-r8-IEs,
-			spare7 NULL,
-			spare6 NULL, spare5 NULL, spare4 NULL,
-			spare3 NULL, spare2 NULL, spare1 NULL
-		},
-		criticalExtensionsFuture			SEQUENCE {}
-	}
-}
-
-HandoverPreparationInformation-r8-IEs ::= SEQUENCE {
-	ue-RadioAccessCapabilityInfo		UE-CapabilityRAT-ContainerList,
-	as-Config							AS-Config					OPTIONAL, 		-- Cond HO
-	rrm-Config							RRM-Config					OPTIONAL,
-	as-Context							AS-Context				OPTIONAL, 		-- Cond HO
-	nonCriticalExtension				SEQUENCE {}					OPTIONAL
-}
-
-
-UERadioAccessCapabilityInformation ::= SEQUENCE {
-	criticalExtensions					CHOICE {
-		c1									CHOICE{
-			ueRadioAccessCapabilityInformation-r8
-												UERadioAccessCapabilityInformation-r8-IEs,
-			spare7 NULL,
-			spare6 NULL, spare5 NULL, spare4 NULL,
-			spare3 NULL, spare2 NULL, spare1 NULL
-		},
-		criticalExtensionsFuture			SEQUENCE {}
-	}
-}
-
-UERadioAccessCapabilityInformation-r8-IEs ::= SEQUENCE {
-	ue-RadioAccessCapabilityInfo		OCTET STRING (CONTAINING UECapabilityInformation),
-	nonCriticalExtension				SEQUENCE {}							OPTIONAL
-}
-
-
-AS-Config ::=				SEQUENCE {
-	sourceMeasConfig					MeasConfig,
-	sourceRadioResourceConfig			RadioResourceConfigDedicated,
-	sourceSecurityAlgorithmConfig		SecurityAlgorithmConfig,
-	sourceUE-Identity					C-RNTI,
-	sourceMasterInformationBlock		MasterInformationBlock,
-	sourceSystemInformationBlockType1	SystemInformationBlockType1,
-	sourceSystemInformationBlockType2	SystemInformationBlockType2,
-	antennaInfoCommon					AntennaInfoCommon,
-	sourceDl-CarrierFreq                ARFCN-ValueEUTRA,
-	...
-}
-
-
-AS-Context ::=							SEQUENCE {
-	reestablishmentInfo						ReestablishmentInfo			OPTIONAL	-- Cond HO
-}
-
-
-ReestablishmentInfo ::=				SEQUENCE {
-	sourcePhysCellId					PhysCellId,
-	targetCellShortMAC-I				ShortMAC-I,
-	additionalReestabInfoList			AdditionalReestabInfoList				OPTIONAL,
-	...
-}
-
-AdditionalReestabInfoList ::=		SEQUENCE ( SIZE (1..maxReestabInfo) ) OF AdditionalReestabInfo
-
-AdditionalReestabInfo ::=	SEQUENCE{
-	cellIdentity						CellIdentity,
-	key-eNodeB-Star					Key-eNodeB-Star,
-	shortMAC-I							ShortMAC-I
-}
-
-Key-eNodeB-Star ::=					BIT STRING (SIZE (256))
-
-
-RRM-Config ::=				SEQUENCE {
-	ue-InactiveTime				ENUMERATED {
-									s1, s2, s3, s5, s7, s10, s15, s20,
-									s25, s30, s40, s50, min1, min1s20c, min1s40,
-									min2, min2s30, min3, min3s30, min4, min5, min6,
-									min7, min8, min9, min10, min12, min14, min17, min20,
-									min24, min28, min33, min38, min44, min50, hr1,
-									hr1min30, hr2, hr2min30, hr3, hr3min30, hr4, hr5, hr6,
-									hr8, hr10, hr13, hr16, hr20, day1, day1hr12, day2,
-									day2hr12, day3, day4, day5, day7, day10, day14, day19,
-									day24, day30, dayMoreThan30}		OPTIONAL,
-	...
-}
-
-
-maxReestabInfo				INTEGER ::= 32	-- Maximum number of KeNB* and shortMAC-I forwarded
-											-- at handover for re-establishment preparation
-
-
-END
diff --git a/lib/asn1/test/asn1_SUITE_data/EUTRA-UE-Variables.asn b/lib/asn1/test/asn1_SUITE_data/EUTRA-UE-Variables.asn
deleted file mode 100644
index 414140a6fb..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/EUTRA-UE-Variables.asn
+++ /dev/null
@@ -1,49 +0,0 @@
--- 3GPP TS 36.331 V8.8.0 (2009-12)
--- $Id$
---
-EUTRA-UE-Variables DEFINITIONS AUTOMATIC TAGS ::=
- 
-BEGIN
-
-
-VarMeasConfig ::=					SEQUENCE {
-	-- Measurement identities
-	measIdList							MeasIdToAddModList					OPTIONAL,
-	-- Measurement objects
-	measObjectList						MeasObjectToAddModList				OPTIONAL,
-	-- Reporting configurations
-	reportConfigList					ReportConfigToAddModList			OPTIONAL,
-	-- Other parameters
-	quantityConfig						QuantityConfig						OPTIONAL,
-	s-Measure							RSRP-Range							OPTIONAL,
-	speedStatePars						CHOICE {
-		release								NULL,
-		setup								SEQUENCE {
-			mobilityStateParameters				MobilityStateParameters,
-			timeToTrigger-SF					SpeedStateScaleFactors
-		}
-	}																		OPTIONAL
-}
-
-
-VarMeasReportList ::=				SEQUENCE (SIZE (1..maxMeasId)) OF VarMeasReport
-
-VarMeasReport ::=					SEQUENCE {
-	-- List of measurement that have been triggered
-	measId								MeasId,
-	cellsTriggeredList					CellsTriggeredList				OPTIONAL,
-	numberOfReportsSent					INTEGER
-}
-
-CellsTriggeredList ::=				SEQUENCE (SIZE (1..maxCellMeas)) OF PhysCellId
-
-
-VarShortMAC-Input ::=					SEQUENCE {
-	cellIdentity							CellIdentity,
-	physCellId								PhysCellId,
-	c-RNTI									C-RNTI
-}
-
-
-
-END
\ No newline at end of file
diff --git a/lib/asn1/test/asn1_SUITE_data/EnumExt.asn1 b/lib/asn1/test/asn1_SUITE_data/EnumExt.asn1
index 9ad1f6299e..3a727e46bb 100644
--- a/lib/asn1/test/asn1_SUITE_data/EnumExt.asn1
+++ b/lib/asn1/test/asn1_SUITE_data/EnumExt.asn1
@@ -1,28 +1,35 @@
-EnumExt DEFINITIONS AUTOMATIC TAGS ::=

-BEGIN

-

-Ext ::= ENUMERATED {

-	blue(0),

-	red(1),

-	green(2),

-	...

-}

-

-Ext1 ::= ENUMERATED {

-	blue(0),

-	red(1),

-	green(2),

-	...,

-	orange(7)

-}

-

-Noext ::= ENUMERATED {

-	blue(0),

-	red(1),

-	green(2)

-}

-

-Globalstate ::= ENUMERATED {def(1),com(2),preop(3),oper(4),noop(5),fail(6)}

-

-END

-

+EnumExt DEFINITIONS AUTOMATIC TAGS ::=
+BEGIN
+
+Ext ::= ENUMERATED {
+	blue(0),
+	red(1),
+	green(2),
+	...
+}
+
+Ext1 ::= ENUMERATED {
+	blue(0),
+	red(1),
+	green(2),
+	...,
+	orange(7),
+        black(8),
+	magenta(9)
+}
+
+Noext ::= ENUMERATED {
+	blue(0),
+	red(1),
+	green(2)
+}
+
+Globalstate ::= ENUMERATED {def(1),com(2),preop(3),oper(4),noop(5),fail(6)}
+
+Seq ::= SEQUENCE {
+   e Ext1,
+   i INTEGER
+}
+
+END
+
diff --git a/lib/asn1/test/asn1_SUITE_data/InfObj.asn b/lib/asn1/test/asn1_SUITE_data/InfObj.asn
index 0a437e12df..53e5043cb7 100644
--- a/lib/asn1/test/asn1_SUITE_data/InfObj.asn
+++ b/lib/asn1/test/asn1_SUITE_data/InfObj.asn
@@ -39,21 +39,6 @@ RANAP-PDU ::= CHOICE {
 
 CLASS2 ::= RANAP-ELEMENTARY-PROCEDURE
 
-MY-CLASS ::= CLASS {
-    &integerValue      INTEGER UNIQUE,
-    &booleanValue      BOOLEAN,
-    &stringValue       PrintableString
-    }
-
-myobject MY-CLASS ::= {
-    &integerValue      12,
-    &booleanValue      TRUE,
-    &stringValue       "hejsan"
-    }
-MyObjectSet MY-CLASS ::= {
-    myobject
-    }
-
 InitiatingMessage  ::= SEQUENCE {
     procedureCode  RANAP-ELEMENTARY-PROCEDURE.&procedureCode	({RANAP-ELEMENTARY-PROCEDURES}),
     criticality	RANAP-ELEMENTARY-PROCEDURE.&criticality		({RANAP-ELEMENTARY-PROCEDURES}{@procedureCode}),
@@ -148,6 +133,83 @@ id-Iu-Release3				INTEGER ::= 3
 id-Iu-Release4				INTEGER ::= 4
 id-Iu-Release5				INTEGER ::= 5
 
+--
+-- MY-CLASS
+--
+
+Seq ::= SEQUENCE {
+    int INTEGER,
+    str OCTET STRING
+}
+
+MY-CLASS ::= CLASS {
+    &Count             DEFAULT INTEGER,
+    &integerValue      INTEGER UNIQUE,
+    &booleanValue      BOOLEAN,
+    &stringValue       PrintableString
+}
+
+myobject MY-CLASS ::= {
+    &integerValue      12,
+    &booleanValue      TRUE,
+    &stringValue       "hejsan"
+}
+
+myotherobject MY-CLASS ::= {
+    &Count             Seq,
+    &integerValue      42,
+    &booleanValue      FALSE,
+    &stringValue       "hoppsan"
+}
+
+MyObjectSet MY-CLASS ::= {
+    myobject | myotherobject |
+    {
+        -- Each character will be encoded in 3 bits in UPER, 4 bits in PER.
+	&Count             NumericString (FROM("01234567") ^ SIZE(8)),
+	&integerValue      43,
+	&booleanValue      TRUE,
+	&stringValue       "tjosan"
+    }
+}
+
+MyPdu ::= SEQUENCE {
+    count MY-CLASS.&Count ({MyObjectSet}{@int}),
+    int   MY-CLASS.&integerValue ({MyObjectSet}),
+    bool  MY-CLASS.&booleanValue ({MyObjectSet}{@int}),
+    str   MY-CLASS.&stringValue ({MyObjectSet}{@int})
+}
+
+Seq2 ::= SEQUENCE {
+   int MY-CLASS.&integerValue ({MyObjectSet}),
+   seqof SEQUENCE (1..10) OF MY-CLASS.&booleanValue ({MyObjectSet}{@int}),
+   setof SET (1..10) OF MY-CLASS.&booleanValue ({MyObjectSet}{@int})
+}
+
+--
+-- Class with constructed default
+--
+
+CONSTRUCTED-DEFAULT ::= CLASS {
+  &id INTEGER UNIQUE,
+  &Type DEFAULT SEQUENCE { a INTEGER, b BOOLEAN },
+  &ok BOOLEAN DEFAULT TRUE
+}
+
+constructed1 CONSTRUCTED-DEFAULT ::= { &id 1 }
+constructed2 CONSTRUCTED-DEFAULT ::= { &id 2, &ok false }
+
+ConstructedDefaultSet CONSTRUCTED-DEFAULT ::= {
+  constructed1 |
+  constructed2 |
+  { &id 3, &Type BOOLEAN }
+}
+
+ConstructedPdu ::= SEQUENCE {
+  id CONSTRUCTED-DEFAULT.&id ({ConstructedDefaultSet}),
+  content CONSTRUCTED-DEFAULT.&Type ({ConstructedDefaultSet}{@id})
+}
+
 END
 
 
diff --git a/lib/asn1/test/asn1_SUITE_data/InfObj2.asn b/lib/asn1/test/asn1_SUITE_data/InfObj2.asn
deleted file mode 100644
index faba7371a4..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/InfObj2.asn
+++ /dev/null
@@ -1,156 +0,0 @@
-InfObj2 DEFINITIONS ::=
-BEGIN
-
-
-RANAP-ELEMENTARY-PROCEDURE ::= CLASS {
-    &InitiatingMessage				,
-    &SuccessfulOutcome				OPTIONAL,
-    &Outcome				DEFAULT NULL,
-    &vartypvalue                        &Outcome,
-    &FixTypeValSet                      PrintableString,
-    &VarTypeValSet                      &InitiatingMessage,
-    &infoObject                         RANAP-ELEMENTARY-PROCEDURE,
-    &InfObjectSet                       CLASS2,
-    &UnsuccessfulOutcome				OPTIONAL,
-    &procedureCode			ProcedureCode 	UNIQUE,
-    &criticality			Criticality 	DEFAULT ignore
-}
-WITH SYNTAX {
-	INITIATING MESSAGE		&InitiatingMessage
-	[SUCCESSFUL OUTCOME		&SuccessfulOutcome]
-	[UNSUCCESSFUL OUTCOME		&UnsuccessfulOutcome]
-	[OUTCOME			&Outcome]
-	PROCEDURE CODE				&procedureCode
-	[CRITICALITY			&criticality]
-}
-
-RANAP-PDU ::= CHOICE {
-    initiatingMessage	[0] InitiatingMessage,
-    substrings          [1] SEQUENCE {
-	type           RANAP-ELEMENTARY-PROCEDURE.&procedureCode({RANAP-ELEMENTARY-PROCEDURES}),
-	strings        SEQUENCE OF CHOICE {
-	    initial [0] RANAP-ELEMENTARY-PROCEDURE.&Outcome({
-		RANAP-ELEMENTARY-PROCEDURES}{@substrings.type}),
-	    final [1] RANAP-ELEMENTARY-PROCEDURE.&Outcome({RANAP-ELEMENTARY-PROCEDURES}{@substrings.type})
-	    }
-	},
---	successfulOutcome	SuccessfulOutcome,
---	unsuccessfulOutcome	UnsuccessfulOutcome,
---	outcome			Outcome,
-    ...
-    }
-
-CLASS2 ::= RANAP-ELEMENTARY-PROCEDURE
-
-MY-CLASS ::= CLASS {
-    &integerValue      INTEGER UNIQUE,
-    &booleanValue      BOOLEAN,
-    &stringValue       PrintableString
-    }
-
-myobject MY-CLASS ::= {
-    &integerValue      12,
-    &booleanValue      TRUE,
-    &stringValue       "hejsan"
-    }
-MyObjectSet MY-CLASS ::= {
-    myobject
-    }
-
-InitiatingMessage  ::= SEQUENCE {
-    procedureCode  RANAP-ELEMENTARY-PROCEDURE.&procedureCode	({RANAP-ELEMENTARY-PROCEDURES}),
-    criticality	RANAP-ELEMENTARY-PROCEDURE.&criticality		({RANAP-ELEMENTARY-PROCEDURES}{@procedureCode}),
-    value	RANAP-ELEMENTARY-PROCEDURE.&InitiatingMessage	({RANAP-ELEMENTARY-PROCEDURES}{@procedureCode})
-    }
-
-iu-Release RANAP-ELEMENTARY-PROCEDURE ::= {
-    INITIATING MESSAGE	Iu-ReleaseCommand
-    SUCCESSFUL OUTCOME	Iu-ReleaseComplete
-    PROCEDURE CODE	id-Iu-Release1
-    CRITICALITY		ignore
-    }
-
-relocationPreparation RANAP-ELEMENTARY-PROCEDURE ::= {
-    INITIATING MESSAGE	INTEGER --Iu-ReleaseCommand
-    SUCCESSFUL OUTCOME	Iu-ReleaseComplete
-    PROCEDURE CODE	id-Iu-Release2
-    CRITICALITY		notify
-    }
-
-object3 RANAP-ELEMENTARY-PROCEDURE ::= {
-    &InitiatingMessage Iu-ReleaseCommand,
-    &SuccessfulOutcome Iu-ReleaseComplete,
-    &procedureCode     id-Iu-Release3,
-    &criticality       reject
-    }
-
-object4 RANAP-ELEMENTARY-PROCEDURE ::= {
-    &InitiatingMessage INTEGER,
-    &SuccessfulOutcome PrintableString,
-    &procedureCode     id-Iu-Release4,
-    &criticality       reject
-    }
-
-object5 RANAP-ELEMENTARY-PROCEDURE ::= {
-    &InitiatingMessage INTEGER,
-    &SuccessfulOutcome PrintableString,
-    &Outcome           ProcedureCode,
-    &vartypvalue       12,
-    &infoObject        object4,
-    &InfObjectSet      MyObjectSet,
-    &procedureCode     id-Iu-Release5,
-    &criticality       reject
-    }
-
-
-RANAP-ELEMENTARY-PROCEDURES RANAP-ELEMENTARY-PROCEDURE ::= {
-    iu-Release         |
-    relocationPreparation ,
-    ...
-    }
-
-RANAP-ELEMENTARY-PROCEDURES2 RANAP-ELEMENTARY-PROCEDURE ::= {
-    iu-Release         |
-    relocationPreparation
-    }
-
-
-OBJECTSET1 RANAP-ELEMENTARY-PROCEDURE ::= {
-    {INITIATING MESSAGE Iu-ReleaseCommand SUCCESSFUL OUTCOME Iu-ReleaseComplete PROCEDURE CODE id-Iu-Release1 CRITICALITY ignore} | {INITIATING MESSAGE Iu-ReleaseCommand PROCEDURE CODE id-Iu-Release2}
-    }
-
-OBJECTSET2 RANAP-ELEMENTARY-PROCEDURE ::= {
-    iu-Release |
-    {INITIATING MESSAGE Iu-ReleaseCommand SUCCESSFUL OUTCOME Iu-ReleaseComplete PROCEDURE CODE id-Iu-Release4 CRITICALITY ignore} |
-    relocationPreparation |
-    {INITIATING MESSAGE Iu-ReleaseCommand PROCEDURE CODE id-Iu-Release5} ,
-    ...
-    }
-
-OBJECTSET3 RANAP-ELEMENTARY-PROCEDURE ::= {
-    iu-Release,
-    ...
-    }
-
-OBJECTSET4 RANAP-ELEMENTARY-PROCEDURE ::= {
-    iu-Release
-    }
-
-Iu-ReleaseCommand  ::= SEQUENCE {
-    first     INTEGER,
-    second    BOOLEAN
-    }
-
-Iu-ReleaseComplete ::= INTEGER (1..510)
-
-ProcedureCode      ::= INTEGER (0..255)
-Criticality        ::= ENUMERATED { reject, ignore, notify }
-id-Iu-Release1				INTEGER ::= 1
-id-Iu-Release2				INTEGER ::= 2
-id-Iu-Release3				INTEGER ::= 3
-id-Iu-Release4				INTEGER ::= 4
-id-Iu-Release5				INTEGER ::= 5
-
-END
-
-
diff --git a/lib/asn1/test/asn1_SUITE_data/MAP-insertSubscriberData-def.py b/lib/asn1/test/asn1_SUITE_data/MAP-insertSubscriberData-def.py
deleted file mode 100644
index 298319b0ed..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/MAP-insertSubscriberData-def.py
+++ /dev/null
@@ -1,102 +0,0 @@
-MAP-insertSubscriberData-def
-	{ ccitt (0) identified-organization( 4) etsi( 0) mobileDomain(0)
-		gsm-Network( 1) modules( 3) map-Protocol( 4) version2(2) }
-DEFINITIONS ::=
-
-BEGIN
-
-EXPORTS
-InsertSubsDataArg, InsertSubsDatRes;
-IMPORTS
-IMSI, ISDN-AddressString, LMSI FROM MAP-commonDataTypes;
-
-InsertSubsDataArg ::=	SEQUENCE{
-      imsi            [0] IMPLICIT IMSI	OPTIONAL, 
-      msisdn          [1] IMPLICIT ISDN-AddressString OPTIONAL,
-      category        [2] IMPLICIT OCTET STRING (SIZE(1)) OPTIONAL,
-      subscriberStatus [3] IMPLICIT SubscriberStatus OPTIONAL,
-      bearerServiceList [4] IMPLICIT SEQUENCE OF
-      		                       OCTET STRING(SIZE(1)) OPTIONAL,
-      teleServiceList [6] IMPLICIT SEQUENCE OF
-      		                       OCTET STRING(SIZE(1)) OPTIONAL,
-      provisionedSS [7] IMPLICIT SEQUENCE  OF SS-Information OPTIONAL
-         	                }
-
-SS-Information ::= CHOICE{
-          forwardingInfo [0]  IMPLICIT ForwardingInfo, 
-          callBarringInfoInfo [1] IMPLICIT CallBarringInfoInfo,
-          ss-Data [3] IMPLICIT SS-Data                                                                 } 
-          
-SS-Data ::= SEQUENCE {
-          ss-Code   OCTET STRING (SIZE(1)),
-          ss-Status  [4] IMPLICIT OCTET STRING (SIZE(1))
-                       }
-                       
-
-ForwardingInfo ::= SEQUENCE {
-     	    ss-Code OCTET STRING(SIZE(1)) OPTIONAL,
-           forwardingFeatureList ForwardingFeatureList  
- 	                   }
- 	                   
-CallBarringInfoInfo ::= SEQUENCE {
-            ss-Code  OCTET STRING(SIZE(1)) OPTIONAL,
-            callBarringFeatureList CallBarringFeatureList}
-            
-CallBarringFeatureList ::= SEQUENCE OF   CallBarringFeature
-
-CallBarringFeature ::=                SEQUENCE{
-                basicService  BasicServiceCode OPTIONAL,
-                ss-Status [2]  IMPLICIT OCTET STRING(SIZE(1)) OPTIONAL
-                       }
-
-InsertSubsDatRes ::= 
-  SEQUENCE {
-   teleServiceList   [1]  IMPLICIT SEQUENCE OF
-       OCTET STRING (SIZE(1))  OPTIONAL,
-    bearerServiceList [2]  IMPLICIT SEQUENCE OF
-                               OCTET STRING (SIZE(1)) OPTIONAL,
-    ss-List           [3]  IMPLICIT SEQUENCE OF
-                               OCTET STRING (SIZE(1)) OPTIONAL,
-   odb-GeneralData [4] IMPLICIT BIT STRING {
-      allOG-CallsBarred (0),
-      internationalOGCallsBarred (1),
-      internationalOGCallsNotToHPLMN-CountryBarred (2),
-      premiumRateInformationOGCallsBarred (3),
-      premiumRateEntertainementOGCallsBarred (4),
-      ss-AccessBarred (5)                  } (SIZE(6)) OPTIONAL,
-   regionalSubscriptionResponse [5] IMPLICIT ENUMERATED{
-     msc-AreaRestricted (0),
-     tooManyZoneCodes (1),
-     zoneCodeConflict (2),
-     regionalSubscNotSupported (3)                      } OPTIONAL
-            }
-            
-            
-ForwardingFeatureList ::= SEQUENCE OF ForwardingFeature
-
-ForwardingFeature ::=             SEQUENCE{
-                basicService BasicServiceCode OPTIONAL,
- 	        ss-Status [4]  IMPLICIT OCTET STRING(SIZE(1)) OPTIONAL,     
- 	        forwardedToNumber [5]  ISDN-AddressString OPTIONAL,
-                forwardingOptions [6]  IMPLICIT OCTET STRING(SIZE(1)) OPTIONAL,
-               noReplyConditionTime [7]  IMPLICIT INTEGER(5..30) OPTIONAL
-                  }
-
-
-BasicServiceCode ::=  CHOICE {
-                  bearerService [2]  IMPLICIT OCTET STRING(SIZE(1)),
- 	          teleService [3]  IMPLICIT OCTET STRING(SIZE(1))      
-	                 }
- 	                 
-
-BasicServiceGroupList ::= SEQUENCE OF
-		 BasicServiceCode
-
-            
-SubscriberStatus ::=           ENUMERATED {
-      		           serviceGranted (0),
-      		           operatorDeterminedBarring (1)
-      		                                }             
-     
-END  -- of MAP-insertSubscriberData-def
-
diff --git a/lib/asn1/test/asn1_SUITE_data/Mod.set.asn b/lib/asn1/test/asn1_SUITE_data/Mod.set.asn
deleted file mode 100644
index 5dcd8706ae..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/Mod.set.asn
+++ /dev/null
@@ -1,5 +0,0 @@
-Mod1.asn
-Mod2.asn
-Mod3.asn
-Mod4.asn
-Mod5.asn
diff --git a/lib/asn1/test/asn1_SUITE_data/Mod1.asn b/lib/asn1/test/asn1_SUITE_data/Mod1.asn
deleted file mode 100644
index cb29997985..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/Mod1.asn
+++ /dev/null
@@ -1,18 +0,0 @@
-Mod1 DEFINITIONS AUTOMATIC TAGS ::=
-
-BEGIN
-
-IMPORTS
-    Co,Reg
-    FROM Mod5
-    Name
-    FROM Mod4;
-
-
-L ::= SEQUENCE {
-  country  Co,
-  region  Reg,
-  name  Name
-}
-
-END
diff --git a/lib/asn1/test/asn1_SUITE_data/Mod2.asn b/lib/asn1/test/asn1_SUITE_data/Mod2.asn
deleted file mode 100644
index cc22c6f13c..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/Mod2.asn
+++ /dev/null
@@ -1,43 +0,0 @@
-Mod2 DEFINITIONS AUTOMATIC TAGS ::=
-
-BEGIN
-
-IMPORTS
-    Stat,Country
-    FROM Mod3
-    L
-    FROM Mod1
-    Time,LocName,ThingName,Name
-    FROM Mod4;
-    
-T ::= SEQUENCE {
-  unit ENUMERATED{celsius,fahrenheit,kelvin},
-  degree INTEGER,
-  location L,
-  time  Time,
-  statistics Stat
-}
-
-OtherName ::= SEQUENCE {
-  locationName LocName,
-  thingName    ThingName
-}
-
-FirstName ::= CHOICE {
-  firstname    PrintableString,
-  nickname     PrintableString
-}
-
-FamilyName ::= SEQUENCE{
-  prefix  ENUMERATED{none,von,af},
-  secondname PrintableString
-}
-
-Lang ::= SEQUENCE{
-  l PrintableString}
-
-Inhabitant ::= SEQUENCE {
-  name Name,
-  country Country}
-
-END
diff --git a/lib/asn1/test/asn1_SUITE_data/Mod3.asn b/lib/asn1/test/asn1_SUITE_data/Mod3.asn
deleted file mode 100644
index 8069bedcf9..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/Mod3.asn
+++ /dev/null
@@ -1,33 +0,0 @@
-Mod3 DEFINITIONS AUTOMATIC TAGS ::=
-
-BEGIN
-
-IMPORTS
-    Name
-    FROM Mod4
-    Lang, Inhabitant,FirstName,FamilyName
-    FROM Mod2
-    TS, RFS, WS, HS
-    FROM Mod5;
-
-Stat ::= SEQUENCE {
-  tempstat TS,
-  rainfallstat RFS,
-  windstat  WS,
-  humiditystat HS
-}
-
-Country ::= SEQUENCE{
-  name Name,
-  language Lang
-}
-
-RegionName ::= Name
-Inhabitants ::= SEQUENCE OF Inhabitant
-
-PersonName ::= SEQUENCE {
-  name1 FirstName,
-  name2 FamilyName
-}
-
-END
diff --git a/lib/asn1/test/asn1_SUITE_data/Mod4.asn b/lib/asn1/test/asn1_SUITE_data/Mod4.asn
deleted file mode 100644
index 4a1aaff9dc..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/Mod4.asn
+++ /dev/null
@@ -1,33 +0,0 @@
-Mod4 DEFINITIONS AUTOMATIC TAGS ::=
-
-
-BEGIN
-
-IMPORTS
-    PersonName
-    FROM Mod3
-    OtherName,FirstName,FamilyName
-    FROM Mod2;
-
-Time ::= SEQUENCE {
-  year  OCTET STRING(SIZE(4)),
-  month OCTET STRING(SIZE(2)),
-  hour  INTEGER,
-  minute INTEGER
-}
-
-Name ::= CHOICE {
-  person PersonName,
-  othername OtherName
-}
-
-
-
-LocName ::= SEQUENCE {
-  region ENUMERATED{gotaland,svealand,norrland},
-  name  PrintableString
-}
-
-ThingName ::= PrintableString
-
-END
diff --git a/lib/asn1/test/asn1_SUITE_data/Mod5.asn b/lib/asn1/test/asn1_SUITE_data/Mod5.asn
deleted file mode 100644
index 71b483d0e0..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/Mod5.asn
+++ /dev/null
@@ -1,37 +0,0 @@
-Mod5 DEFINITIONS AUTOMATIC TAGS ::=
-
-BEGIN
-
-IMPORTS
-    Country,RegionName,Inhabitants
-    FROM Mod3;
-TS ::= SEQUENCE {
-  average  INTEGER,
-  highest  INTEGER,
-  lowest   INTEGER
-}
-
-RFS ::= SEQUENCE {
-  average INTEGER,
-  highest INTEGER
-}
-
-WS ::= SEQUENCE {
-  average INTEGER,
-  highest INTEGER
-}
-
-HS ::= SEQUENCE {
-  average INTEGER,
-  highest INTEGER,
-  lowest INTEGER
-}
-
-Co ::= Country
-
-Reg ::= SEQUENCE {
-  name RegionName,
-  inhabitants Inhabitants
-}
-
-END
diff --git a/lib/asn1/test/asn1_SUITE_data/Mvrasn.set.asn b/lib/asn1/test/asn1_SUITE_data/Mvrasn.set.asn
deleted file mode 100644
index 8a61da0160..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/Mvrasn.set.asn
+++ /dev/null
@@ -1,7 +0,0 @@
-Mvrasn-11-6.asn
-Mvrasn-21-4.asn
-Mvrasn-20-6.asn
-Mvrasn-19-6.asn
-Mvrasn-15-6.asn
-Mvrasn-18-6.asn
-Mvrasn-14-6.asn
diff --git a/lib/asn1/test/asn1_SUITE_data/P-Record.asn1db b/lib/asn1/test/asn1_SUITE_data/P-Record.asn1db
deleted file mode 100644
index 13e1162c64..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/P-Record.asn1db
+++ /dev/null
diff --git a/lib/asn1/test/asn1_SUITE_data/P-Record.erl b/lib/asn1/test/asn1_SUITE_data/P-Record.erl
deleted file mode 100644
index 9fc6f50d64..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/P-Record.erl
+++ /dev/null
@@ -1,244 +0,0 @@
-%% Generated by the Erlang ASN.1 BER-compiler version, utilizing bit-syntax:1.3.1.4
-%% Purpose: encoder and decoder to the types in mod P-Record
-
--module('P-Record').
--include("P-Record.hrl").
--define('RT_PER',asn1rt_per_bin).
--export([encoding_rule/0]).
--export([
-'enc_PersonnelRecord'/1,
-'enc_ChildInformation'/1,
-'enc_Name'/1,
-'enc_EmployeeNumber'/1,
-'enc_Date'/1
-]).
-
--export([
-'dec_PersonnelRecord'/2,
-'dec_ChildInformation'/2,
-'dec_Name'/2,
-'dec_EmployeeNumber'/2,
-'dec_Date'/2
-]).
-
--export([
-'v'/0
-]).
-
-
-
--export([encode/2,decode/2,encode_disp/2,decode_disp/2]).
-
-encoding_rule() ->
-   per_bin.
-
-encode(Type,Data) ->
-case catch ?RT_PER:complete(encode_disp(Type,Data)) of
-  {'EXIT',{error,Reason}} ->
-    {error,Reason};
-  {'EXIT',Reason} ->
-    {error,{asn1,Reason}};
-  {Bytes,Len} ->
-    {ok,Bytes};
-  X ->
-    {ok,X}
-end.
-
-decode(Type,Data) ->
-case catch decode_disp(Type,Data) of
-  {'EXIT',{error,Reason}} ->
-    {error,Reason};
-  {'EXIT',Reason} ->
-    {error,{asn1,Reason}};
-  {X,_Rest} ->
-    {ok,X};
-  {X,_Rest,_Len} ->
-    {ok,X}
-end.
-
-encode_disp('PersonnelRecord',Data) -> 'enc_PersonnelRecord'(Data);
-encode_disp('ChildInformation',Data) -> 'enc_ChildInformation'(Data);
-encode_disp('Name',Data) -> 'enc_Name'(Data);
-encode_disp('EmployeeNumber',Data) -> 'enc_EmployeeNumber'(Data);
-encode_disp('Date',Data) -> 'enc_Date'(Data);
-encode_disp(Type,Data) -> exit({error,{asn1,{undefined_type,Type}}}).
-
-
-decode_disp('PersonnelRecord',Data) -> 'dec_PersonnelRecord'(Data,mandatory);
-decode_disp('ChildInformation',Data) -> 'dec_ChildInformation'(Data,mandatory);
-decode_disp('Name',Data) -> 'dec_Name'(Data,mandatory);
-decode_disp('EmployeeNumber',Data) -> 'dec_EmployeeNumber'(Data,mandatory);
-decode_disp('Date',Data) -> 'dec_Date'(Data,mandatory);
-decode_disp(Type,Data) -> exit({error,{asn1,{undefined_type,Type}}}).
-
-
-
-
-
-'enc_PersonnelRecord'(Val) ->
-{Val1,Opt} = ?RT_PER:fixoptionals([{children,6}],Val),
-[
-?RT_PER:setoptionals(Opt),
-
-%% attribute number 1 with type Externaltypereference6P-RecordName
-'enc_Name'(?RT_PER:cindex(2,Val1,name)),
-
-%% attribute number 2 with type VisibleString
-?RT_PER:encode_VisibleString([],?RT_PER:cindex(3,Val1,title)),
-
-%% attribute number 3 with type INTEGER
-?RT_PER:encode_integer([],?RT_PER:cindex(4,Val1,number)),
-
-%% attribute number 4 with type VisibleString
-?RT_PER:encode_VisibleString([],?RT_PER:cindex(5,Val1,dateOfHire)),
-
-%% attribute number 5 with type Externaltypereference10P-RecordName
-'enc_Name'(?RT_PER:cindex(6,Val1,nameOfSpouse)),
-case ?RT_PER:cindex(7,Val1,children) of
-asn1_DEFAULT -> [];
-_ ->
-
-%% attribute number 6 with type SEQUENCE OF
-'enc_PersonnelRecord_children'(?RT_PER:cindex(7,Val1,children))
-end].
-
-'enc_PersonnelRecord_children'({'PersonnelRecord_children',Val}) ->
-'enc_PersonnelRecord_children'(Val);
-
-'enc_PersonnelRecord_children'(Val) ->
-[
-
-   ?RT_PER:encode_length(undefined,length(Val)),
-   'enc_PersonnelRecord_children_components'(Val, [])
-].
-'enc_PersonnelRecord_children_components'([], Acc) -> lists:reverse(Acc);
-
-'enc_PersonnelRecord_children_components'([H|T], Acc) ->
-'enc_PersonnelRecord_children_components'(T, ['enc_ChildInformation'(H)
-
- | Acc]).
-
-'dec_PersonnelRecord_children'(Bytes,Telltype) ->
-
-{Num,Bytes1} = ?RT_PER:decode_length(Bytes,undefined),
-'dec_PersonnelRecord_children_components'(Num, Bytes1, Telltype, []).
-'dec_PersonnelRecord_children_components'(0, Bytes, Telltype, Acc) ->
-   {lists:reverse(Acc), Bytes};
-'dec_PersonnelRecord_children_components'(Num, Bytes, Telltype, Acc) ->
-   {Term,Remain} = 'P-Record':'dec_ChildInformation'(Bytes,Telltype),
-   'dec_PersonnelRecord_children_components'(Num-1, Remain, Telltype, [Term|Acc]).
-
-
-'dec_PersonnelRecord'(Bytes,Telltype) ->
-{Opt,Bytes1} = ?RT_PER:getoptionals(Bytes,1), 
-%%  attribute number 1 with type Name
-{Term1,Bytes2} = 'dec_Name'(Bytes1,telltype),
-
-%% attribute number 2 with type VisibleString
-{Term2,Bytes3} = ?RT_PER:decode_VisibleString(Bytes2,[]),
-
-%% attribute number 3 with type INTEGER
-{Term3,Bytes4} = ?RT_PER:decode_integer(Bytes3,[]),
-
-%% attribute number 4 with type VisibleString
-{Term4,Bytes5} = ?RT_PER:decode_VisibleString(Bytes4,[]),
-
-%%  attribute number 5 with type Name
-{Term5,Bytes6} = 'dec_Name'(Bytes5,telltype),
-
-%% attribute number 6 with type SEQUENCE OF
-{Term6,Bytes7} = case element(1,Opt) of
-1 ->'dec_PersonnelRecord_children'(Bytes6, Telltype);
-0 ->{[],Bytes6}
-
-end,
-{{'PersonnelRecord',Term1,Term2,Term3,Term4,Term5,Term6},Bytes7}.
-
-'enc_ChildInformation'(Val) ->
-{Val1,Opt} = ?RT_PER:fixoptionals([{name,1},{dateOfBirth,2}],Val),
-[
-?RT_PER:setoptionals(Opt),
-case ?RT_PER:cindex(2,Val1,name) of
-asn1_NOVALUE -> [];
-_ ->
-
-%% attribute number 1 with type Externaltypereference15P-RecordName
-'enc_Name'(?RT_PER:cindex(2,Val1,name))
-end,
-case ?RT_PER:cindex(3,Val1,dateOfBirth) of
-asn1_NOVALUE -> [];
-_ ->
-
-%% attribute number 2 with type VisibleString
-?RT_PER:encode_VisibleString([],?RT_PER:cindex(3,Val1,dateOfBirth))
-end].
-
-
-'dec_ChildInformation'(Bytes,Telltype) ->
-{Opt,Bytes1} = ?RT_PER:getoptionals(Bytes,2), 
-%%  attribute number 1 with type Name
-{Term1,Bytes2} = case element(1,Opt) of
-1 ->'dec_Name'(Bytes1,telltype);
-0 ->{asn1_NOVALUE,Bytes1}
-
-end,
-
-%% attribute number 2 with type VisibleString
-{Term2,Bytes3} = case element(2,Opt) of
-1 ->?RT_PER:decode_VisibleString(Bytes2,[]);
-0 ->{asn1_NOVALUE,Bytes2}
-
-end,
-{{'ChildInformation',Term1,Term2},Bytes3}.
-
-'enc_Name'(Val) ->
-Val1 = ?RT_PER:list_to_record('Name', Val),
-[
-
-%% attribute number 1 with type VisibleString
-?RT_PER:encode_VisibleString([],?RT_PER:cindex(2,Val1,givenName)),
-
-%% attribute number 2 with type VisibleString
-?RT_PER:encode_VisibleString([],?RT_PER:cindex(3,Val1,initial)),
-
-%% attribute number 3 with type VisibleString
-?RT_PER:encode_VisibleString([],?RT_PER:cindex(4,Val1,familyName))].
-
-
-'dec_Name'(Bytes,Telltype) ->
-
-%% attribute number 1 with type VisibleString
-{Term1,Bytes1} = ?RT_PER:decode_VisibleString(Bytes,[]),
-
-%% attribute number 2 with type VisibleString
-{Term2,Bytes2} = ?RT_PER:decode_VisibleString(Bytes1,[]),
-
-%% attribute number 3 with type VisibleString
-{Term3,Bytes3} = ?RT_PER:decode_VisibleString(Bytes2,[]),
-{{'Name',Term1,Term2,Term3},Bytes3}.
-
-
-'enc_EmployeeNumber'({'EmployeeNumber',Val}) ->
-'enc_EmployeeNumber'(Val);
-
-'enc_EmployeeNumber'(Val) ->
-?RT_PER:encode_integer([],Val).
-
-
-'dec_EmployeeNumber'(Bytes,Telltype) ->
-?RT_PER:decode_integer(Bytes,[]).
-
-
-'enc_Date'({'Date',Val}) ->
-'enc_Date'(Val);
-
-'enc_Date'(Val) ->
-?RT_PER:encode_VisibleString([],Val).
-
-
-'dec_Date'(Bytes,Telltype) ->
-?RT_PER:decode_VisibleString(Bytes,[]).
-
-'v'() ->
-{'PersonnelRecord',{'Name',{74,111,104,110},[80],[83,109,105,116,104]},[68,105,114,101,99,116,111,114],51,[49,57,55,49,48,57,49,55],{'Name',{77,97,114,121},[84],[83,109,105,116,104]},[{'ChildInformation',{'Name',[82,97,108,112,104],[84],[83,109,105,116,104]},[49,57,53,55,49,49,49,49]},{'ChildInformation',{'Name',[83,117,115,97,110],[66],[74,111,110,101,115]},[49,57,53,57,48,55,49,55]}]}.
-
diff --git a/lib/asn1/test/asn1_SUITE_data/P-Record.hrl b/lib/asn1/test/asn1_SUITE_data/P-Record.hrl
deleted file mode 100644
index 92aa1a44e2..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/P-Record.hrl
+++ /dev/null
@@ -1,17 +0,0 @@
-%% Generated by the Erlang ASN.1 compiler version:1.3.1.4
-%% Purpose: Erlang record definitions for each named and unnamed
-%% SEQUENCE and SET, and macro definitions for each value
-%% definition,in module P-Record
-
-
-
--record('PersonnelRecord',{
-name, title, number, dateOfHire, nameOfSpouse, children = asn1_DEFAULT}).
-
--record('ChildInformation',{
-name = asn1_NOVALUE, dateOfBirth = asn1_NOVALUE}).
-
--record('Name',{
-givenName, initial, familyName}).
-
--define('v', {'PersonnelRecord',{'Name',{74,111,104,110},[80],[83,109,105,116,104]},[68,105,114,101,99,116,111,114],51,[49,57,55,49,48,57,49,55],{'Name',{77,97,114,121},[84],[83,109,105,116,104]},[{'ChildInformation',{'Name',[82,97,108,112,104],[84],[83,109,105,116,104]},[49,57,53,55,49,49,49,49]},{'ChildInformation',{'Name',[83,117,115,97,110],[66],[74,111,110,101,115]},[49,57,53,57,48,55,49,55]}]}).
diff --git a/lib/asn1/test/asn1_SUITE_data/PDUs.py b/lib/asn1/test/asn1_SUITE_data/PDUs.py
deleted file mode 100644
index 907348193f..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/PDUs.py
+++ /dev/null
@@ -1,325 +0,0 @@
-PDUs DEFINITIONS ::=
-
--- Search for 'org' to find changes for erlang.
-
--- SnmpMgmtCom and PDUs only for dbg.
-
-
-BEGIN
-EXPORTS SnmpPrivMsg, SnmpAuthMsg, SnmpMgmtCom, PDUs;
-
--- From RFC 1442
-
-          -- names of objects
-
-          ObjectName ::=
-              OBJECT IDENTIFIER
-
-
-          -- syntax of objects
-
-          ObjectSyntax ::=
-              CHOICE {
-                  simple
-                      SimpleSyntax,
-
-                    -- note that SEQUENCEs for conceptual tables and
-                    -- rows are not mentioned here...
-
-                  applicationWide
-                      ApplicationSyntax
-              }
-
-
-          -- built-in ASN.1 types
-
-          SimpleSyntax ::=
-              CHOICE {
-                  -- INTEGERs with a more restrictive range
-                  -- may also be used
-                  integerValue
-                      INTEGER, 
-
-                  stringValue
-                      OCTET STRING,
-
-                  objectIDValue
-                      OBJECT IDENTIFIER,
-
-                  -- only the enumerated form is allowed
-                  bitValue
-                      BIT STRING
-              }
-
-
-          -- indistinguishable from INTEGER, but never needs more than
-          -- 32Bits for a two's complement representation
-          Integer32 ::=
-              [UNIVERSAL 2]
-                  IMPLICIT INTEGER (-2147483648..2147483647)
-
-
-          -- applicationWide types
-
-          ApplicationSyntax ::=
-              CHOICE {
-                  ipAddressValue
-                      IpAddress,
-
-                  counterValue
-                      Counter32,
-
-                  gaugeValue
-                      Gauge32,
-
-                  timeticksValue
-                      TimeTicks,
-
-                  arbitraryValue
-                      Opaque,
-
-                  nsapAddressValue
-                      NsapAddress,
-
-                  bigCounterValue
-                      Counter64,
-
-                  unsignedIntegerValue
-                      UInteger32
-              }
-
-          -- in networkByte order
-          -- (this is a tagged type for historical reasons)
-          IpAddress ::=
-              [APPLICATION 0]
-                  IMPLICIT OCTET STRING (SIZE (4))
-
-
-
-
-          -- this wraps
-          Counter32 ::=
-              [APPLICATION 1]
-                  IMPLICIT INTEGER (0..4294967295)
-
-          -- this doesn't wrap
-          Gauge32 ::=
-              [APPLICATION 2]
-                  IMPLICIT INTEGER (0..4294967295) 
-
-          -- hundredths of seconds since an epoch
-          TimeTicks ::=
-              [APPLICATION 3]
-                  IMPLICIT INTEGER (0..4294967295)
-
-          -- for backwardCompatibility only
-          Opaque ::=
-              [APPLICATION 4]
-                  IMPLICIT OCTET STRING
-
-          -- for OSI NSAP addresses
-          -- (this is a tagged type for historical reasons)
-          NsapAddress ::=
-              [APPLICATION 5]
--- org:                  IMPLICIT OCTET STRING (SIZE (1 | 4..21))
-                  IMPLICIT OCTET STRING
-
-          -- for counters that wrap in less than one hour with only 32 bits
-          Counter64 ::=
-              [APPLICATION 6]
-                  IMPLICIT INTEGER (0..18446744073709551615)
-
-          -- an unsigned 32Bit quantity
-          UInteger32 ::=
-              [APPLICATION 7]
-                  IMPLICIT INTEGER (0..4294967295)
-
-
--- From RFC 1445
-
-          SnmpPrivMsg ::= [1] IMPLICIT SEQUENCE {
-             privDst
-                OBJECT IDENTIFIER,
-             privData
-                [1] IMPLICIT OCTET STRING
-           }
-
-           SnmpAuthMsg ::= [1] IMPLICIT SEQUENCE {
-             authInfo
-                ANY, -- defined by authentication protocol
-             authData
-                SnmpMgmtCom
-           }
-
-           SnmpMgmtCom ::= [2] IMPLICIT SEQUENCE {
-             dstParty
-                OBJECT IDENTIFIER,
-             srcParty
-                OBJECT IDENTIFIER,
-             context
-                OBJECT IDENTIFIER,
-             pdu
-                PDUs
-           }
-
-
--- From RFC 1448
-
-                -- org: no tag at all. we need a tag to test 'PDUs'. 
-               PDUs ::= [PRIVATE 1]
-                   -- remove tag when 'PDUs' only is used in another type.
-                   CHOICE {
-                       getRequest
-                           GetRequestPdu,
-
-                       getNextRequest
-                           GetNextRequestPdu,
-
-                       getBulkRequest
-                           GetBulkRequestPdu,
-
-                       response
-                           ResponsePdu,
-
-                       setRequest
-                           SetRequestPdu,
-
-                       informRequest
-                           InformRequestPdu,
-
-                       snmpV2Trap
-                           SNMPv2TrapPdu
-                   }
-
-               -- PDUs
-
-               GetRequestPdu ::=
-                   [0]
-                       IMPLICIT PDU
-
-               GetNextRequestPdu ::=
-                   [1]
-                       IMPLICIT PDU
-
-               ResponsePdu ::=
-                   [2]
-                       IMPLICIT PDU
-
-               SetRequestPdu ::=
-                   [3]
-                       IMPLICIT PDU
-
-               -- [4] is obsolete
-
-               GetBulkRequestPdu ::=
-                   [5]
-                       IMPLICIT BulkPDU
-
-               InformRequestPdu ::=
-                   [6]
-                       IMPLICIT PDU
-
-               SNMPv2TrapPdu ::=
-                   [7]
-                       IMPLICIT PDU
-
-
-               maxBindings
-                   INTEGER ::= 2147483647
-
-               PDU ::=
-                   SEQUENCE {
-                       requestId
-                           Integer32,
-
-                       errorStatus            -- sometimes ignored
-                           INTEGER {
-                               noError(0),
-                               tooBig(1),
-                               noSuchName(2),   -- for proxy compatibility
-                               badValue(3),     -- for proxy compatibility
-                               readOnly(4),     -- for proxy compatibility
-                               genErr(5),
-                               noAccess(6),
-                               wrongType(7),
-                               wrongLength(8),
-                               wrongEncoding(9),
-                               wrongValue(10),
-                               noCreation(11),
-                               inconsistentValue(12),
-                               resourceUnavailable(13),
-                               commitFailed(14),
-                               undoFailed(15),
-                               authorizationError(16),
-                               notWritable(17),
-                               inconsistentName(18)
-                           },
-
-                       errorIndex            -- sometimes ignored
-                           INTEGER (0..maxBindings),
-
-                       variableBindings   -- values are sometimes ignored
-                           VarBindList
-                   }
-
-
-               BulkPDU ::=                     -- MUST be identical in
-                   SEQUENCE {                  -- structure to PDU
-                       requestId
-                           Integer32,
-
-                       nonRepeaters
-                           INTEGER (0..maxBindings),
-
-                       maxRepetitions
-                           INTEGER (0..maxBindings),
-
-                       variableBindings       -- values are ignored
-                           VarBindList
-                   }
-
-
-               VarBind ::=
-                   SEQUENCE {
-                       name
-                           ObjectName,
-
-                       data CHOICE {
-                           value
-                               ObjectSyntax,
-
-                           unSpecified         -- in retrieval requests
-                                   NULL,
-
-                                               -- exceptions in responses
-                           noSuchObject[0]
-                                   IMPLICIT NULL,
-
-                           noSuchInstance[1]
-                                   IMPLICIT NULL,
-
-                           endOfMibView[2]
-                                   IMPLICIT NULL
-                       }
-                   }
-
-
-               -- variableBinding list
-
-               VarBindList ::=
-                   SEQUENCE OF VarBind
-
--- org:
---               VarBindList ::=
---                   SEQUENCE (SIZE (0..maxBindings)) OF
---                       VarBind
-
-END
-
-
-
-
-
-
-
-
diff --git a/lib/asn1/test/asn1_SUITE_data/Pattern.asn b/lib/asn1/test/asn1_SUITE_data/Pattern.asn
deleted file mode 100644
index 730b4ba32a..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/Pattern.asn
+++ /dev/null
@@ -1,8 +0,0 @@
-Pattern DEFINITIONS AUTOMATIC TAGS ::=
-
-BEGIN
-
-DateAndTime ::= VisibleString (PATTERN "\d#2/\d#2/\d#4-\d#2:\d#2") 
--- DD/MM/YYY-HH:MM
-
-END
\ No newline at end of file
diff --git a/lib/asn1/test/asn1_SUITE_data/Prim.asn1 b/lib/asn1/test/asn1_SUITE_data/Prim.asn1
index c3d54dbbb3..cc0e61422a 100644
--- a/lib/asn1/test/asn1_SUITE_data/Prim.asn1
+++ b/lib/asn1/test/asn1_SUITE_data/Prim.asn1
@@ -47,5 +47,15 @@ BEGIN
     b Bool,
     i4 INTEGER (0..63)
   }    
-    
+
+  ASeq ::= SEQUENCE {
+    e254 BOOLEAN,
+    i254 INTEGER (0..254),
+    e255 BOOLEAN,
+    i255 INTEGER (0..255),
+    e256 BOOLEAN,
+    i256 INTEGER (0..256),
+    e BOOLEAN,
+    magic INTEGER
+  }
 END
diff --git a/lib/asn1/test/asn1_SUITE_data/PrimStrings.asn1 b/lib/asn1/test/asn1_SUITE_data/PrimStrings.asn1
index cfaf4cf034..08e7f94ab6 100644
--- a/lib/asn1/test/asn1_SUITE_data/PrimStrings.asn1
+++ b/lib/asn1/test/asn1_SUITE_data/PrimStrings.asn1
@@ -5,7 +5,7 @@ BEGIN
   Bs1 ::= BIT STRING
   Bs2 ::= BIT STRING {su(0), mo(1), tu(2), we(3), th(4), fr(5), sa(6) } (SIZE (7))
   Bs3 ::= BIT STRING {su(0), mo(1), tu(2), we(3), th(4), fr(5), sa(6) } (SIZE (1..7))
-  Bs4 ::= BIT STRING {su(0), mo(1), tu(2), we(3), th(4), fr(5), sa(6) } (SIZE (1..32))
+  Bs4 ::= BIT STRING {su(0), mo(1), tu(2), we(3), th(4), fr(5), sa(6) }
   Bs5 ::= BIT STRING {su(0), mo(17), tu(2), we(3), th(4), fr(5), sa(6) } (SIZE (1..32))
   Bs6 ::= BIT STRING {su(0), mo(17), tu(2), we(3), th(4), fr(5), sa(6)} (SIZE (16..32))
   Bs7 ::= BIT STRING (SIZE (24))
@@ -55,10 +55,15 @@ BS1024 ::= BIT STRING (SIZE (1024))
   OsExpCon ::= [60] EXPLICIT OCTET STRING
   OsExpPri ::= [PRIVATE 61] EXPLICIT  OCTET STRING
   OsExpApp ::= [APPLICATION 62] EXPLICIT OCTET STRING
+
   OsFrag ::= OCTET STRING (SIZE (0..100000))
   FixedOs65536 ::= OCTET STRING (SIZE (65536))
   FixedOs65537 ::= OCTET STRING (SIZE (65537))
 
+  OsFragExt ::= OCTET STRING (SIZE (0..100000, ...))
+  FixedOs65536Ext ::= OCTET STRING (SIZE (65536, ...))
+  FixedOs65537Ext ::= OCTET STRING (SIZE (65537, ...))
+
   OsFixedStrings ::= SEQUENCE {
     b1 BOOLEAN,  -- Unalign
     s0 OCTET STRING (SIZE (0)),
@@ -72,6 +77,32 @@ BS1024 ::= BIT STRING (SIZE (1024))
     i INTEGER (0..1024)
   }
 
+  OsFixedStringsExt ::= SEQUENCE {
+    b1 BOOLEAN,  -- Unalign
+    s0 OCTET STRING (SIZE (0, ...)),
+    s1 OCTET STRING (SIZE (1, ...)),
+    s2 OCTET STRING (SIZE (2, ...)),
+    s3 OCTET STRING (SIZE (3, ...)),
+    b2 BOOLEAN,  -- Unalign
+    s255 OCTET STRING (SIZE (255, ...)),
+    s256 OCTET STRING (SIZE (256, ...)),
+    s257 OCTET STRING (SIZE (257, ...)),
+    i INTEGER (0..1024)
+  }
+
+  OsVarStringsExt ::= SEQUENCE {
+    b1 BOOLEAN,  -- Unalign
+    s0 OCTET STRING (SIZE (0, ...)),
+    s1 OCTET STRING (SIZE (0..1, ...)),
+    s2 OCTET STRING (SIZE (1..2, ...)),
+    s3 OCTET STRING (SIZE (2..3, ...)),
+    b2 BOOLEAN,  -- Unalign
+    s255 OCTET STRING (SIZE (254..255, ...)),
+    s256 OCTET STRING (SIZE (255..256, ...)),
+    s257 OCTET STRING (SIZE (256..257, ...)),
+    i INTEGER (0..1024)
+  }
+
   OsAlignment ::= SEQUENCE {
     b1 BOOLEAN,
     s1 Os,
@@ -82,6 +113,52 @@ BS1024 ::= BIT STRING (SIZE (1024))
     i INTEGER (0..63)
   }
 
+  IA5FixedStrings ::= SEQUENCE {
+    b1 BOOLEAN,  -- Unalign
+    s0 IA5String (SIZE (0)),
+    s1 IA5String (SIZE (1)),
+    s2 IA5String (SIZE (2)),
+    s3 IA5String (SIZE (3)),
+    b2 BOOLEAN,  -- Unalign
+    s4 IA5String (SIZE (4)),
+    b3 BOOLEAN,  -- Unalign
+    s255 IA5String (SIZE (255)),
+    s256 IA5String (SIZE (256)),
+    s257 IA5String (SIZE (257)),
+    i INTEGER (0..1024)
+  }
+
+  IA5FixedStringsExt ::= SEQUENCE {
+    b1 BOOLEAN,  -- Unalign
+    s0 IA5String (SIZE (0, ...)),
+    s1 IA5String (SIZE (1, ...)),
+    s2 IA5String (SIZE (2, ...)),
+    s3 IA5String (SIZE (3, ...)),
+    b2 BOOLEAN,  -- Unalign
+    s4 IA5String (SIZE (4, ...)),
+    b3 BOOLEAN,  -- Unalign
+    s255 IA5String (SIZE (255, ...)),
+    s256 IA5String (SIZE (256, ...)),
+    s257 IA5String (SIZE (257, ...)),
+    i INTEGER (0..1024)
+  }
+
+  IA5VarStringsExt ::= SEQUENCE {
+    b1 BOOLEAN,  -- Unalign
+    s0 IA5String (SIZE (0, ...)),
+    s1 IA5String (SIZE (0..1, ...)),
+    s2 IA5String (SIZE (1..2, ...)),
+    s3 IA5String (SIZE (2..3, ...)),
+    b2 BOOLEAN,  -- Unalign
+    s4 IA5String (SIZE (3..4, ...)),
+    b3 BOOLEAN,  -- Unalign
+    s255 IA5String (SIZE (254..255, ...)),
+    s256 IA5String (SIZE (255..256, ...)),
+    s257 IA5String (SIZE (256..257, ...)),
+    i INTEGER (0..1024)
+  }
+
+
   Ns ::= NumericString
   NsCon ::= [70] NumericString
   NsExpCon ::= [71] EXPLICIT NumericString
diff --git a/lib/asn1/test/asn1_SUITE_data/ROSE.asn1 b/lib/asn1/test/asn1_SUITE_data/ROSE.asn1
deleted file mode 100644
index 2fefae3caf..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/ROSE.asn1
+++ /dev/null
@@ -1,449 +0,0 @@
-ROSE DEFINITIONS IMPLICIT TAGS ::=
-
-
-BEGIN
-
-OPERATION ::= CLASS
-{
-    &ArgumentType OPTIONAL,
-    &argumentTypeOptional BOOLEAN OPTIONAL,
-    &returnResult BOOLEAN DEFAULT TRUE,
-    &ResultType OPTIONAL,
-    &resultTypeOptional BOOLEAN OPTIONAL,
-    &Errors ERROR OPTIONAL,
-    &Linked OPERATION OPTIONAL,
-  &synchronous BOOLEAN DEFAULT FALSE,
-  &idempotent  BOOLEAN  DEFAULT FALSE,
-    &alwaysReturns BOOLEAN DEFAULT TRUE,
-    &InvokePriority Priority OPTIONAL,
-    &ResultPriority Priority OPTIONAL,
-    &operationCode Code UNIQUE OPTIONAL
-    }
-WITH SYNTAX
- {
-   [ARGUMENT &ArgumentType [OPTIONAL &argumentTypeOptional]]
-   [RESULT &ResultType [OPTIONAL &resultTypeOptional]]
-   [RETURN RESULT &returnResult]
-   [ERRORS &Errors]
-   [LINKED &Linked]
-   [SYNCHRONOUS &synchronous]
-   [IDEMPOTENT &idempotent]
-   [ALWAYS RESPONDS &alwaysReturns]
-   [INVOKE PRIORITY &InvokePriority]
-   [RESULT-PRIORITY &ResultPriority]
-   [CODE &operationCode]
- }
-
-ERROR ::= CLASS
-{
-    &ParameterType OPTIONAL,
-    &parameterTypeOptional BOOLEAN OPTIONAL,
-    &ErrorPriority Priority OPTIONAL,
-    &errorCode Code UNIQUE OPTIONAL
-    }
-WITH SYNTAX
-{
-    [PARAMETER &ParameterType [OPTIONAL &parameterTypeOptional]]
-    [PRIORITY &ErrorPriority]
-    [CODE &errorCode]
-    }
-
-OPERATION-PACKAGE ::= CLASS
-{
-    &Both OPERATION OPTIONAL,
-    &Consumer OPERATION OPTIONAL,
-    &Supplier OPERATION OPTIONAL,
-    &id OBJECT IDENTIFIER UNIQUE OPTIONAL
-    }
-WITH SYNTAX
-{
-    [OPERATIONS &Both]
-    [CONSUMER INVOKES &Supplier]
-    [SUPPLIER INVOKES &Consumer]
-    [ID &id]
-    }
-
-CONNECTION-PACKAGE ::= CLASS
-{
-    &bind OPERATION DEFAULT emptyBind,
-    &unbind OPERATION DEFAULT emptyUnbind,
-    &responderCanUnbind BOOLEAN DEFAULT FALSE,
-    &unbindCanFail BOOLEAN DEFAULT FALSE,
-    &id OBJECT IDENTIFIER UNIQUE OPTIONAL
-    }
-WITH SYNTAX
-{
-    [BIND &bind]
-    [UNBIND &unbind]
-    [RESPONDER UNBIND &responderCanUnbind]
-    [FAILURE TO UNBIND &unbindCanFail]
-    [ID &id]
-    }
-
-CONTRACT ::= CLASS
-{
-    &connection CONNECTION-PACKAGE OPTIONAL,
-    &OperationsOf OPERATION-PACKAGE OPTIONAL,
-    &InitiatorConsumerOf OPERATION-PACKAGE OPTIONAL,
-    &InitiatorSupplierOf OPERATION-PACKAGE OPTIONAL,
-    &id OBJECT IDENTIFIER UNIQUE OPTIONAL
-    }
-WITH SYNTAX
-{
-    [CONNECTION &connection]
-    [OPERATIONS OF &OperationsOf]
-    [INITIATOR CONSUMER OF &InitiatorConsumerOf]
-    [RESPONDER CONSUMER OF &InitiatorSupplierOf]
-    [ID &id]
-}
-
-ROS-OBJECT-CLASS ::= CLASS
-{
-    &Is ROS-OBJECT-CLASS OPTIONAL,
-    &Initiates CONTRACT OPTIONAL,
-    &Responds CONTRACT OPTIONAL,
-    &InitiatesAndResponds CONTRACT OPTIONAL,
-    &id OBJECT IDENTIFIER UNIQUE
-    }
-WITH SYNTAX
-{
-    [IS &Is]
-    [BOTH &InitiatesAndResponds]
-    [INITIATES &Initiates]
-    [RESPONDS &Responds]
-    ID &id
-    }
-
-Code ::= CHOICE
-{
-    local INTEGER,
-    global OBJECT IDENTIFIER
-    }
-
-Priority ::= INTEGER (0..MAX)
-
-ROS {InvokeId:InvokeIdSet,OPERATION:Invokable,OPERATION:Returnable} ::= CHOICE
- {
-   invoke [1] Invoke {{InvokeIdSet}, {Invokable}},
-   returnResult [2] ReturnResult {{Returnable}},
-   returnError [3] ReturnError {{Errors{{Returnable}}}},
-   reject [4] Reject
- }
-(CONSTRAINED BY {-- must conform to the above definition --}
- ! RejectProblem : general-unrecognizedPDU)
-
-Invoke {InvokeId:InvokeIdSet, OPERATION:Operations} ::= SEQUENCE
-{
-  invokeId InvokeId (InvokeIdSet)
-  (CONSTRAINED BY {-- must be unambiguous --}
-   ! RejectProblem : invoke-duplicateInvocation),
-  linkedId CHOICE {
-    present [0] IMPLICIT present < InvokeId,
-    absent [1] IMPLICIT NULL
-  }
-    (CONSTRAINED BY {-- must identify an outstanding operation --}
-    ! RejectProblem : invoke-unrecognizedLinkedId)
-    (CONSTRAINED BY {-- which has one or more linked operations--}
-    ! RejectProblem : invoke-linkedResponseUnexpected)
-    OPTIONAL,
-    opcode OPERATION.&operationCode
-    ({Operations}
-    ! RejectProblem : invoke-unrecognizedOperation),
-    argument OPERATION.&ArgumentType
-    ({Operations} {@opcode}
-    ! RejectProblem : invoke-mistypedArgument)
-    OPTIONAL
-    }
-(CONSTRAINED BY {-- must conform to the above definition --}
- ! RejectProblem : general-mistypedPDU)
-(
-WITH COMPONENTS
-{...,
-    linkedId ABSENT
-    }
-| WITH COMPONENTS
-{...,
-    linkedId PRESENT,
-    opcode
-    (CONSTRAINED BY {-- must be in the &Linked field of the associated operation --
-	}
-    ! RejectProblem : invoke-unexpectedLinkedOperation)
-    }
-)
-
-ReturnResult {OPERATION:Operations}::= SEQUENCE
-{
-    invokeId InvokeId
-    (CONSTRAINED BY {-- must be that for an outstanding operation --}
-     ! RejectProblem:returnResult-unrecognizedInvocation)
-  (CONSTRAINED BY {-- which returns a result --}
-   ! RejectProblem:returnResult-resultResponseUnexpected),
-  result SEQUENCE
-   {
-     opcode OPERATION.&operationCode
-     ({Operations})(CONSTRAINED BY {-- identified by invokeId --}
-		    ! RejectProblem:returnResult-unrecognizedInvocation),
-     result OPERATION.&ResultType     ({Operations} {@.opcode}
-	! RejectProblem:returnResult-mistypedResult)
-	}
-    OPTIONAL
-    }
-(CONSTRAINED BY {-- must conform to the above definition --
-    }
-! RejectProblem:general-mistypedPDU)
-
-ReturnError {ERROR:Errors} ::= SEQUENCE
-{
-    invokeId InvokeId
-    (CONSTRAINED BY {-- must be that for an outstanding operation --
-	}
-    ! RejectProblem : returnError-unrecognizedInvocation)
-    (CONSTRAINED BY {-- which returns an error --
-	}
-    ! RejectProblem : returnError-errorResponseUnexpected),
-    errcode ERROR.&errorCode
-    ({Errors}
-    ! RejectProblem : returnError-unrecognizedError)
-    (CONSTRAINED BY {-- must be in the &Errors field of the associated operation --
-	}
-    ! RejectProblem : returnError-unexpectedError),
-    parameter ERROR.&ParameterType
-    ({Errors}{@errcode}
-    ! RejectProblem : returnError-mistypedParameter) OPTIONAL
-    }
-(CONSTRAINED BY {-- must conform to the above definition --
-    }
-! RejectProblem : general-mistypedPDU)
-
-Reject ::= SEQUENCE
-{
-    invokeId InvokeId,
-    problem CHOICE
-    {
-	general [0] GeneralProblem,
-	invoke [1] InvokeProblem,
-	returnResult [2] ReturnResultProblem,
-	returnError [3] ReturnErrorProblem
-	}
-    }
-(CONSTRAINED BY {-- must conform to the above definition --
-    }
-! RejectProblem : general-mistypedPDU)
-
-GeneralProblem ::= INTEGER
-{
-    unrecognizedPDU (0),
-    mistypedPDU (1),
-    badlyStructuredPDU (2)
-    }
-
-InvokeProblem ::= INTEGER
-{
-    duplicateInvocation (0),
-    unrecognizedOperation (1),
-    mistypedArgument (2),
-    resourceLimitation (3),
-    releaseInProgress (4),
-    unrecognizedLinkedId (5),
-    linkedResponseUnexpected (6),
-    unexpectedLinkedOperation (7)
-    }
-
-ReturnResultProblem ::= INTEGER
-{
-    unrecognizedInvocation (0),
-    resultResponseUnexpected (1),
-    mistypedResult (2)
-    }
-
-ReturnErrorProblem ::= INTEGER
-{
-    unrecognizedInvocation (0),
-    errorResponseUnexpected (1),
-    unrecognizedError (2),
-    unexpectedError (3),
-    mistypedParameter (4)
-    }
-
-RejectProblem ::= INTEGER
-{
-    general-unrecognizedPDU (0),
-    general-mistypedPDU (1),
-    general-badlyStructuredPDU (2),
-    invoke-duplicateInvocation (10),
-    invoke-unrecognizedOperation (11),
-    invoke-mistypedArgument (12),
-    invoke-resourceLimitation (13),
-    invoke-releaseInProgress (14),
-    invoke-unrecognizedLinkedId (15),
-    invoke-linkedResponseUnexpected (16),
-    invoke-unexpectedLinkedOperation (17),
-    returnResult-unrecognizedInvocation (20),
-    returnResult-resultResponseUnexpected (21),
-    returnResult-mistypedResult (22),
-    returnError-unrecognizedInvocation (30),
-    returnError-errorResponseUnexpected (31),
-    returnError-unrecognizedError (32),
-    returnError-unexpectedError (33),
-    returnError-mistypedParameter (34)
-    }
-
-InvokeId ::= CHOICE
-{
-    present INTEGER,
-    absent NULL
-    }
-
-noInvokeId InvokeId ::= absent:NULL
-
-NoInvokeId InvokeId ::= {noInvokeId}
-
-Errors {OPERATION:Operations} ERROR ::= {Operations.&Errors}
-
-Bind {OPERATION:operation} ::= CHOICE
-{
-    bind-invoke [16] OPERATION.&ArgumentType({operation}),
-    bind-result [17] OPERATION.&ResultType ({operation}),
-    bind-error [18] OPERATION.&Errors.&ParameterType ({operation})
-    }
-
-Unbind {OPERATION:operation} ::= CHOICE
-{
-    unbind-invoke [19] OPERATION.&ArgumentType({operation}),
-    unbind-result [20] OPERATION.&ResultType ({operation}),
-    unbind-error [21] OPERATION.&Errors.&ParameterType ({operation})
-    }
-
-emptyBind OPERATION ::= {ERRORS {refuse} SYNCHRONOUS TRUE}
-
-emptyUnbind OPERATION ::= { SYNCHRONOUS TRUE }
-
-refuse ERROR ::= {CODE local:-1}
-
-no-op OPERATION ::=
- {
-   IDEMPOTENT TRUE
-   ALWAYS RESPONDS FALSE
-   CODE local:-1
- }
-
-Forward {OPERATION:OperationSet} OPERATION ::=
-{
-    OperationSet |
-    OperationSet.&Linked.&Linked |
-    OperationSet.&Linked.&Linked.&Linked.&Linked
-    }
-
-Reverse {OPERATION:OperationSet} OPERATION ::=
-{Forward{{OperationSet.&Linked}}}
-
-ConsumerPerforms {OPERATION-PACKAGE:package} OPERATION ::=
-{
-    Forward{{package.&Consumer}} |
-    Forward{{package.&Both}} |
-    Reverse{{package.&Supplier}} |
-    Reverse{{package.&Both}}
-    }
-
-SupplierPerforms {OPERATION-PACKAGE:package} OPERATION ::=
-{
-    Forward{{package.&Supplier}} |
-    Forward{{package.&Both}} |
-    Reverse{{package.&Consumer}} |
-    Reverse{{package.&Both}}
-    }
-
-AllOperations {OPERATION-PACKAGE:package} OPERATION ::=
-{
-    ConsumerPerforms {package} |
-    SupplierPerforms {package}
-    }
-
-recode {OPERATION:operation, Code:code} OPERATION ::=
-{
-    ARGUMENT operation.&ArgumentType
-    OPTIONAL operation.&argumentTypeOptional
-    RESULT operation.&ResultType
-    OPTIONAL operation.&resultTypeOptional
-    RETURN RESULT operation.&returnResult
-    ERRORS {operation.&Errors}
-    LINKED {operation.&Linked}
-    SYNCHRONOUS operation.&synchronous
-    ALWAYS RESPONDS operation.&alwaysReturns
-    INVOKE PRIORITY {operation.&InvokePriority}
-    RESULT-PRIORITY {operation.&ResultPriority}
-    CODE code
-    }
-
-switch {OPERATION-PACKAGE:package, OBJECT IDENTIFIER:id} OPERATION-PACKAGE ::=
-{
-    OPERATIONS {package.&Both}
-    CONSUMER INVOKES {package.&Consumer}
-    SUPPLIER INVOKES {package.&Supplier}
-    ID id
-    }
-
-combine {OPERATION-PACKAGE:ConsumerConsumes,OPERATION-PACKAGE:ConsumerSupplies,
-    OPERATION-PACKAGE:base
-    } OPERATION-PACKAGE ::=
-{
-    OPERATIONS {ConsumerConsumes.&Both | ConsumerSupplies.&Both}
-    CONSUMER INVOKES {ConsumerConsumes.&Consumer | ConsumerSupplies.&Supplier}
-    SUPPLIER INVOKES {ConsumerConsumes.&Supplier | ConsumerSupplies.&Consumer}
-    ID base.&id
-    }
-
-ROS-SingleAS {InvokeId:InvokeIdSet, OPERATION-PACKAGE:package} ::= ROS
-{{InvokeIdSet}, {AllOperations{package}}, {AllOperations{package}}}
-
-ROS-ConsumerAS {InvokeId:InvokeIdSet, OPERATION-PACKAGE:package} ::= ROS
-{{InvokeIdSet}, {ConsumerPerforms{package}}, {SupplierPerforms{package}}}
-
-ROS-SupplierAS {InvokeId:InvokeIdSet, OPERATION-PACKAGE:package} ::= ROS
-{{InvokeIdSet}, {SupplierPerforms{package}}, {ConsumerPerforms{package}}}
-
-probe OPERATION ::= 
- { 
-   ARGUMENT SEQUENCE 
-    { 
-      invokeId [0] InvokeId 
-    } 
-   RESULT ENUMERATED{running(0), finished(1), unknown(2), ...} 
-   IDEMPOTENT TRUE 
-   CODE local:-2 
- } 
-
-acknowledge OPERATION ::= 
- { 
-   ARGUMENT InvokeId 
-   RESULT ENUMERATED{acknowledged(0), unknown(1), ...} 
-   IDEMPOTENT TRUE 
-   CODE local:-3 
- } 
-
-ProbeAndAcknowledge OPERATION ::= {probe | acknowledge} 
-
-cancel OPERATION ::= 
- { 
-   ARGUMENT InvokeId 
-   ERRORS {cancelFailed} 
-   IDEMPOTENT TRUE 
-   CODE local:-4 
- } 
-
-cancelFailed ERROR ::= 
- { 
-   PARAMETER SET 
-    { 
-      problem [0] CancelProblem, 
-      operation [1] InvokeId 
-    } 
-   CODE local:-2 
- } 
-
-CancelProblem ::= ENUMERATED 
-{unknownOperation(0), tooLate(1), operationNotCancellable(2), ...} 
-
-cancelled ERROR ::= {CODE local:-3}
-
-END -- end of useful definitions.
diff --git a/lib/asn1/test/asn1_SUITE_data/SeqDefault.asn1 b/lib/asn1/test/asn1_SUITE_data/SeqDefault.asn1
index 99e79da972..5c8583884a 100644
--- a/lib/asn1/test/asn1_SUITE_data/SeqDefault.asn1
+++ b/lib/asn1/test/asn1_SUITE_data/SeqDefault.asn1
@@ -74,4 +74,15 @@ SeqIn ::= SEQUENCE
   intIn  INTEGER DEFAULT 12
 }
 
+SeqExp ::= SEQUENCE
+{
+  bool BOOLEAN,
+  ...,
+  int INTEGER
+}
+
+SeqDef4 ::= SEQUENCE {
+  seq SeqExp DEFAULT { bool TRUE, int 42 }
+}
+
 END
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/asn1_SUITE_data/SetDefault.asn1 b/lib/asn1/test/asn1_SUITE_data/SetDefault.asn1
index cb9e0ead62..0bbe301ae7 100644
--- a/lib/asn1/test/asn1_SUITE_data/SetDefault.asn1
+++ b/lib/asn1/test/asn1_SUITE_data/SetDefault.asn1
@@ -30,4 +30,15 @@ SetIn ::= SET
   intIn  INTEGER DEFAULT 12
 }
 
+SetDef4 ::= SET {
+  set SetExt DEFAULT { intIn 42, boolIn TRUE }
+}
+
+SetExt ::= SET
+{
+  boolIn BOOLEAN,
+  ...,
+  intIn INTEGER
+}
+
 END
diff --git a/lib/asn1/test/asn1_SUITE_data/TConstr.asn1 b/lib/asn1/test/asn1_SUITE_data/TConstr.asn1
index 63f5dbde77..e2e0a11dc4 100644
--- a/lib/asn1/test/asn1_SUITE_data/TConstr.asn1
+++ b/lib/asn1/test/asn1_SUITE_data/TConstr.asn1
@@ -51,6 +51,12 @@ Seq2 ::= SEQUENCE {
   }
 }
 
+Deeper ::= SEQUENCE {
+  a  SEQUENCE {aa INTEGER,
+               s SEQUENCE { ab MYCLASS.&id ({ObjectSet}),
+	                    ac INTEGER }},
+  b  SEQUENCE {ba INTEGER, bb MYCLASS.&Type ({ObjectSet}{@a.s.ab})}
+}
 
 -- following from Peter's definitions
 
diff --git a/lib/asn1/test/asn1_SUITE_data/Tst.py b/lib/asn1/test/asn1_SUITE_data/Tst.py
deleted file mode 100644
index d80b32dad5..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/Tst.py
+++ /dev/null
@@ -1,153 +0,0 @@
-Tst { 2 6 6 24 7 1 } DEFINITIONS IMPLICIT TAGS ::=
-
-BEGIN
-
---EXPORTS SomeSet , Id0 , Aset,Id1 ,A,B,C,
---	Uhh ,Foo ,Cho,Person,Hobbe,Robbe,X,Y;
-
-IMPORTS Fooo FROM Bobby;
-
-
-Robbe ::=   SET {
-	ttt TT }
-	
-Koo ::= SET {
-	c CHOICE {
-		a INTEGER,
-		b BOOLEAN },
-	s SET OF Id0 }
-
-
-Hobbe ::= [APPLICATION 1] SET {
-	     aaa [0] SET OF INTEGER,
-	     bbb [1] UU
-	}
-
-UU ::= PP
-PP ::=   CHOICE {
-	 cc [1] CHOICE {
-		a [0] INTEGER,
-		b [1] BOOLEAN,
-		c [2] BIT STRING },
-	 ii [0] Id0
-	}
-
-
-TT ::=  SS
-SS ::=  SET {
-	b BOOLEAN DEFAULT TRUE
-	}
-
-Aset ::= [PRIVATE 2]  SET OF Uhh
-
-
-
-SomeSet ::= [PRIVATE 3]  IMPLICIT SET {
-	aaaa [2] SET{  
-		ggg [0] INTEGER},
-	kkkk [1] SET OF Id2,
-	booby [4]  OCTET STRING,
-	puck [3] INTEGER {red(0),blue(1),yellow(-2)},
-	baby [5] IMPLICIT Id1,
-	bool [6] BOOLEAN }
-
-
-Id0 ::=  INTEGER (4 .. 99)
-
-Id1 ::=   Id0
-
-Id2 ::= [PRIVATE 4] EXPLICIT Id1
-
-
-Uhh ::=  SET {
-	a [1] IMPLICIT Id1}
-
-
-
-Soon ::= [PRIVATE 5] Moon
-
-Moon ::= [PRIVATE 6] IMPLICIT Person
-
-
-Person ::= [PRIVATE 7] IMPLICIT SEQUENCE {
-	szzzs SET OF SET {
-		aaa [0] INTEGER,
-		bbb [1] Id0},
-	cho Cho,
-	name OCTET STRING ,
-	location INTEGER,
-	asss Aset,
-	oops [2] IMPLICIT SET {
-		q [0] INTEGER,
-		p [1] Uhh},
-	on INTEGER,
-	mybits [3] IMPLICIT BIT STRING,
-	foo Foo,
-	age INTEGER,
-	hobbe [5] SEQUENCE {
-		a [4] CHOICE {
-			a INTEGER,
-			b BOOLEAN },
-		b [5] Id0}}
-
-
-
-
-
-Foo ::= [PRIVATE 8] IMPLICIT SEQUENCE {
-	goofy [3]  INTEGER OPTIONAL,
-	somestring [10] IMPLICIT OCTET STRING DEFAULT '77BB'H,
-	hoohoo  [11] IMPLICIT SEQUENCE {
-		bar [1] Id1 OPTIONAL,
-		foo INTEGER, 
-		zombie [9] CHOICE {
-			a [1] IMPLICIT INTEGER,
-			b [2]  IMPLICIT BOOLEAN }
-		},
-	moon [4]  IMPLICIT INTEGER }
-
-
-
-Cho ::= [PRIVATE 9]  EXPLICIT CHOICE {
-	somestring [2] IMPLICIT OCTET STRING,
-	goofy [9]  INTEGER,
-	moon [4] IMPLICIT INTEGER } 
-
-
-A ::= [APPLICATION 2] SET {
-	ppp IA5String ,
-	a [0] INTEGER {aaa(6),bbb(77)} DEFAULT 998,
-	b [1] Id1 OPTIONAL,
-	c [2] OCTET STRING (SIZE(8)),
-	dd [3] BIT STRING DEFAULT '11001'B }
-
-B ::= [APPLICATION 3] SET {
-	ww [1] SET {
-		a A OPTIONAL,
-		goofy [3]  INTEGER OPTIONAL,
-		somestring [10] IMPLICIT OCTET STRING DEFAULT '77BB'H } 
-	}
-
-
-C::= [APPLICATION 4]  SEQUENCE OF X
-
-Y ::= OBJECT IDENTIFIER
-
-X ::= SET {
-	a NULL,
-	b GeneralString,
-	c UTCTime,
-	d VideotexString,
-	g GeneralizedTime,
-	h GraphicString,
-	i VisibleString,
-	j IA5String,
-	k PrintableString,
-	l OCTET STRING,
-	e TeletexString,
-	m  ANY,
-	n ObjectDescriptor,
-	o OBJECT IDENTIFIER,
-	f NumericString }
-
-END
diff --git a/lib/asn1/test/asn1_SUITE_data/Two.py b/lib/asn1/test/asn1_SUITE_data/Two.py
deleted file mode 100644
index c8e6f1a55b..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/Two.py
+++ /dev/null
@@ -1,34 +0,0 @@
-Two { 1 2 3} DEFINITIONS EXPLICIT TAGS ::=
-
-BEGIN
-EXPORTS  A, D,Boo,Szz;
-
-
-
-D ::= [PRIVATE 1] SEQUENCE {
-	a INTEGER,
-	b Boo,
-	c  ANY DEFINED BY a ,
-	d ANY }
-
-
-Boo ::=  SEQUENCE OF INTEGER (198..200)
-
-A ::= [PRIVATE 2] SEQUENCE {
-	a INTEGER (1..1),
-	b INTEGER (3..3) }
-
-
-Szz ::= CHOICE {
-	one INTEGER,
-	two BOOLEAN }
-
-C ::= SET {
-	a [0] INTEGER (0..8),
-	xx [4] CHOICE {
-		[7] INTEGER (9..10),
-		a INTEGER (11 ..13) },
-	 f Boo,
- 	 r [2] INTEGER (20..22)}
-END
-
diff --git a/lib/asn1/test/asn1_SUITE_data/UPERDefault.asn b/lib/asn1/test/asn1_SUITE_data/UPERDefault.asn
deleted file mode 100644
index 7b81a0e09f..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/UPERDefault.asn
+++ /dev/null
@@ -1,18 +0,0 @@
-UPERDefault DEFINITIONS AUTOMATIC TAGS ::=
-
-BEGIN
-
--- OTP-7681
-Int ::= INTEGER (0..32767)
-
-Seq ::= SEQUENCE {
-  a Int,
-  b INTEGER (-27..27) DEFAULT 0, -- OTP-7678
-  c INTEGER OPTIONAL
-}
-
-seq Seq ::=
-{a 12,
- b 0}
-
-END
\ No newline at end of file
diff --git a/lib/asn1/test/asn1_SUITE_data/UndefType.py b/lib/asn1/test/asn1_SUITE_data/UndefType.py
deleted file mode 100644
index cdbe083803..0000000000
--- a/lib/asn1/test/asn1_SUITE_data/UndefType.py
+++ /dev/null
@@ -1,14 +0,0 @@
-Person DEFINITIONS IMPLICIT TAGS ::=
-BEGIN
-EXPORTS Person;
-IMPORTS
-	ImportedFromUndefined FROM UndefinedModule;
-
-Feltyp ::= UndefinedType
-Feltyp2 ::= ImportedFromUndefined
-Person ::= [PRIVATE 19] SEQUENCE {
-	name Undefined,
-	location INTEGER {home(0),field(1),roving(2)},
-	age ImportedFromUndefined OPTIONAL
-	}
-END
diff --git a/lib/asn1/test/asn1_SUITE_data/extensionAdditionGroup.erl b/lib/asn1/test/asn1_SUITE_data/extensionAdditionGroup.erl
index d46560979d..00e4c707dd 100644
--- a/lib/asn1/test/asn1_SUITE_data/extensionAdditionGroup.erl
+++ b/lib/asn1/test/asn1_SUITE_data/extensionAdditionGroup.erl
@@ -1,9 +1,3 @@
-%%%-------------------------------------------------------------------
-%%% File    : extensionAdditionGroup.erl
-%%% Author  : Kenneth Lundin
-%%% Description :
-%%%
-%%% Created : 18 May 2010 by kenneth
 %%
 %% %CopyrightBegin%
 %%
@@ -25,36 +19,38 @@
 %%%-------------------------------------------------------------------
 -module(extensionAdditionGroup).
 -include("Extension-Addition-Group.hrl").
-
+-export([run/1]).
 
 -compile(export_all).
 
 run(Erule) ->
-    Val = #'Ax'{a=253, b = true, c= {e,true}, g="123", h = true},
-    io:format("~p:~p~n",[Erule,Val]),
-    {ok,List}= asn1rt:encode('Extension-Addition-Group','Ax',Val),
-    Enc = iolist_to_binary(List),
-    io:format("~p~n",[Enc]),
-    {ok,Val2} = asn1rt:decode('Extension-Addition-Group','Ax',Enc),
-    io:format("~p~n",[Val2]),
-    case Val2 of
-	Val -> ok;
-	_ -> exit({expected,Val, got, Val2})
-    end.
+    Val = #'Ax'{a=253,b=true,c={e,true},g="123",h=true},
+    Enc = hex_to_binary(encoded_ax(Erule)),
+    roundtrip('Ax', Val, Enc),
 
-run2(Erule) ->
-    Val = #'Ax3'{a=253, b = true, s = #'Ax3_s'{sa = 11, sb = true, sextaddgroup = 17}},
-    io:format("~p:~p~n",[Erule,Val]),
-    {ok,List}= asn1rt:encode('Extension-Addition-Group','Ax3',Val),
-    Enc = iolist_to_binary(List),
-    io:format("~p~n",[Enc]),
-    {ok,Val2} = asn1rt:decode('Extension-Addition-Group','Ax3',Enc),
-    io:format("~p~n",[Val2]),
-    case Val2 of
-	Val -> ok;
-	_ -> exit({expected,Val, got, Val2})
-    end.
+    Val2 = #'Ax3'{a=253,b=true,s=#'Ax3_s'{sa=11,sb=true,sextaddgroup=17}},
+    roundtrip('Ax3', Val2),
+
+    run3(),
+    run3(Erule),
+
+    ok.
+
+%% From X.691 (07/2002) A.4.
+encoded_ax(per) ->  "9E000180 010291A4";
+encoded_ax(uper) -> "9E000600 040A4690";
+encoded_ax(ber) ->  none.
 
+hex_to_binary(none) ->
+    none;
+hex_to_binary(L) ->
+    << <<(hex_digit_to_binary(D)):4>> || D <- L, D =/= $\s >>.
+
+hex_digit_to_binary(D) ->
+    if
+	$0 =< D, D =< $9 -> D - $0;
+	$A =< D, D =< $F -> D - ($A-10)
+    end.
 run3(Erule) ->
     Val = 
 {'RRC-DL-DCCH-Message',
@@ -141,15 +137,23 @@ run3() ->
                  'ac-BarringFactor' = p00,
                  'ac-BarringTime' = s4,
                  'ac-BarringForSpecialAC' = <<0:5>>},
-    roundtrip(SI),
-    roundtrip(SI#'SystemInformationBlockType2'{
-		'ssac-BarringForMMTEL-Voice-r9'=Barring}),
-    roundtrip(SI#'SystemInformationBlockType2'{
+    T = 'SystemInformationBlockType2',
+    roundtrip(T, SI),
+    roundtrip(T, SI#'SystemInformationBlockType2'{
+		   'ssac-BarringForMMTEL-Voice-r9'=Barring}),
+    roundtrip(T, SI#'SystemInformationBlockType2'{
 		'ssac-BarringForMMTEL-Video-r9'=Barring}),
-    roundtrip(SI#'SystemInformationBlockType2'{
-		'ac-BarringForCSFB-r10'=Barring}).
+    roundtrip(T, SI#'SystemInformationBlockType2'{
+		   'ac-BarringForCSFB-r10'=Barring}).
 
-roundtrip(V) ->
+roundtrip(T, V) ->
+    roundtrip(T, V, none).
+
+roundtrip(T, V, Expected) ->
     Mod = 'Extension-Addition-Group',
-    {ok,E} = Mod:encode('SystemInformationBlockType2', V),
-    {ok,V} = Mod:decode('SystemInformationBlockType2', iolist_to_binary(E)).
+    {ok,E} = Mod:encode(T, V),
+    {ok,V} = Mod:decode(T, E),
+    case Expected of
+	none -> ok;
+	E -> ok
+    end.