Merge branch 'bjorn/asn1/clean-up-tests' into maint

* bjorn/asn1/clean-up-tests: (24 commits)
  No longer compile the X420 specs for plain BER
  Combine the testSeqIndefinite/1 and testSetIndefinite/1 test cases
  Remove asn1_wrapper
  Eliminate the use of asn1_wrapper
  Simplify tests of CHOICE with OPTIONAL
  asn1_test_lib: Add roundtrip functions and use them everywhere
  Makefile: Release Emakefile to ensure warnings are treated as errors
  Don't allow unused exported functions in test case helpers
  Move out specific tests from asn1_test_lib
  testMegaco: Remove unused exported function msg11/0
  ASN.1 tests: Don't export functions that are only locally called
  Remove unused pem_performance.erl file
  asn1_SUITE: Reinstate test of sub-constraint
  ASN.1 tests: Remove unused choice_extension.erl
  Remove unused compile() functions
  asn1_test_lib: Remove unnecessary loading of a compiled ASN.1 spec
  Slightly clean up testX420
  asn1_SUITE: Combine most tests that use External.asn1
  asn1ct_gen: Clean up process dictionary after generating
  asn1ct_parser2: Clean the process dictionary after parsing
  ...

1 files changed, 11 insertions, 13 deletions

diff --git a/lib/asn1/test/testInfObjectClass.erl b/lib/asn1/test/testInfObjectClass.erl
index 98408502c6..c36c05a2ea 100644
--- a/lib/asn1/test/testInfObjectClass.erl
+++ b/lib/asn1/test/testInfObjectClass.erl
@@ -29,24 +29,22 @@ main(Rule) ->
     %% this test is added for OTP-4591, to test that elements in decoded
     %% value has terms in right order.
     Val = {'Seq',12,13,2},
-    ?line {ok,Bytes}= asn1_wrapper:encode('InfClass','Seq',Val),
-    ?line {ok,Val} = asn1_wrapper:decode('InfClass','Seq',Bytes),
+    roundtrip('Seq', Val),
     
     %% OTP-5783
-    ?line {error,{asn1,{'Type not compatible with table constraint',
-			{component,'ArgumentType'},
-			{value,_},_}}} = asn1_wrapper:encode('InfClass','Seq',
-						      {'Seq',12,13,1}),
+    {error,{asn1,{'Type not compatible with table constraint',
+		  {component,'ArgumentType'},
+		  {value,_},_}}} = 'InfClass':encode('Seq', {'Seq',12,13,1}),
     Bytes2 = case Rule of
 		 ber ->
 		     <<48,9,2,1,12,2,1,11,2,1,1>>;
 		 _ ->
-		 <<1,12,1,11,1,1>>
+		     <<1,12,1,11,1,1>>
 	     end,
-    ?line {error,{asn1,{'Type not compatible with table constraint',
-			{{component,_},
-			 {value,_B},_}}}} = 
-	asn1_wrapper:decode('InfClass','Seq',Bytes2).
+    {error,{asn1,{'Type not compatible with table constraint',
+		  {{component,_},
+		   {value,_B},_}}}} = 'InfClass':decode('Seq', Bytes2),
+    ok.
 
-
-    
+roundtrip(T, V) ->
+    asn1_test_lib:roundtrip('InfClass', T, V).