From aaa4ea283b2b7dad74fdcdd5963558e9d03d80b0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Tue, 21 Jan 2014 16:12:46 +0100
Subject: Fix OCTET STRING

---
 lib/asn1/test/testFragmented.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/lib/asn1/test/testFragmented.erl b/lib/asn1/test/testFragmented.erl
index 8d5fa07a5b..35b21f90a9 100644
--- a/lib/asn1/test/testFragmented.erl
+++ b/lib/asn1/test/testFragmented.erl
@@ -22,10 +22,10 @@
 -export([main/1]).
 
 main(_Erule) ->
-    roundtrip('PDU', {'PDU',1,false,["abc","def"]}),
+    roundtrip('PDU', {'PDU',1,false,[<<"abc">>,<<"def">>]}),
     B256 = lists:seq(0, 255),
     K1 = lists:duplicate(4, B256),
-    K8 = binary_to_list(iolist_to_binary(lists:duplicate(8, K1))),
+    K8 = iolist_to_binary(lists:duplicate(8, K1)),
     roundtrip('PDU', {'PDU',1,false,[K8,K8]}),
     roundtrip('PDU', {'PDU',1,false,[K8,K8,K8,K8]}),
     roundtrip('PDU', {'PDU',1,false,[K8,K8,K8,K8,K8,K8]}),
-- 
cgit v1.2.3