From 1aad483e439410aeee17c966991754f65f6852a9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Mon, 25 Feb 2013 09:24:41 +0100
Subject: UPER: Fix bug in encoding/decoding of default types

The wrong backend was used.
---
 lib/asn1/test/testInfObj.erl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'lib/asn1/test/testInfObj.erl')

diff --git a/lib/asn1/test/testInfObj.erl b/lib/asn1/test/testInfObj.erl
index 6318bf44b5..97e6a9aaa9 100644
--- a/lib/asn1/test/testInfObj.erl
+++ b/lib/asn1/test/testInfObj.erl
@@ -46,7 +46,12 @@ main(_Erule) ->
 				   first=13,
 				   second=true}},
 
-    roundtrip('RANAPextract1', 'InitiatingMessage2', Val3).
+    roundtrip('RANAPextract1', 'InitiatingMessage2', Val3),
+
+    roundtrip('InfObj', 'MyPdu', {'MyPdu',42,12,false,"string"}),
+    roundtrip('InfObj', 'MyPdu', {'MyPdu',{'Seq',1023,"hello"},
+				  42,true,"longer string"}).
+
 
 roundtrip(M, T, V) ->
     {ok,Enc} = M:encode(T, V),
-- 
cgit v1.2.3