From 0cd162311b1ae680fda3374d507a63ffa0605fa9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Sat, 23 Jan 2010 12:49:49 +0100
Subject: unicode_SUITE: replace deprecated concat_binary/1 with
 list_to_binary/1

---
 lib/stdlib/test/unicode_SUITE.erl | 72 +++++++++++++++++++--------------------
 1 file changed, 36 insertions(+), 36 deletions(-)

(limited to 'lib/stdlib/test/unicode_SUITE.erl')

diff --git a/lib/stdlib/test/unicode_SUITE.erl b/lib/stdlib/test/unicode_SUITE.erl
index 706445005c..f71bc186ac 100644
--- a/lib/stdlib/test/unicode_SUITE.erl
+++ b/lib/stdlib/test/unicode_SUITE.erl
@@ -276,7 +276,7 @@ ex_latin1(Config) when is_list(Config) ->
 	unicode:characters_to_list(make_unaligned(MissingLastByte),unicode),
 
     ?line DoubleSize16 = byte_size(DoubleUtf16),
-    ?line DoubleUtf16_2 = erlang:concat_binary([DoubleUtf16,<<16#FFFFF/utf16-big>>]),
+    ?line DoubleUtf16_2 = list_to_binary([DoubleUtf16,<<16#FFFFF/utf16-big>>]),
     ?line DoubleSize16_2 = byte_size(DoubleUtf16_2),
     ?line AllBut1_16 = DoubleSize16 - 1,
     ?line AllBut2_16_2 = DoubleSize16_2 - 2,
@@ -884,15 +884,15 @@ utf8_to_list_bsyntax(<<C/utf8,R/binary>>) ->
 
 list_to_utf8_bsyntax(List,unicode) ->
     FList = flatx(List),
-    erlang:concat_binary([ if 
-			       is_binary(E) ->
-				   E;
-			       true -> 
-				   <<E/utf8>>
-			   end || E <- FList ]);
+    list_to_binary([ if
+			 is_binary(E) ->
+			     E;
+			 true ->
+			     <<E/utf8>>
+		     end || E <- FList ]);
 list_to_utf8_bsyntax(List,latin1) ->
     FList = flatb(List),
-    erlang:concat_binary([ <<E/utf8>> || E <- FList ]).
+    list_to_binary([ <<E/utf8>> || E <- FList ]).
 
     
     
@@ -954,15 +954,15 @@ utf16_big_to_list_bsyntax(<<C/utf16-big,R/binary>>) ->
 
 list_to_utf16_big_bsyntax(List,{utf16,big}) ->
     FList = flatx(List),
-    erlang:concat_binary([ if 
-			       is_binary(E) ->
-				   E;
-			       true -> 
-				   <<E/utf16-big>>
-			   end || E <- FList ]);
+    list_to_binary([ if
+			 is_binary(E) ->
+			     E;
+			 true ->
+			     <<E/utf16-big>>
+		     end || E <- FList ]);
 list_to_utf16_big_bsyntax(List,latin1) ->
     FList = flatb(List),
-    erlang:concat_binary([ <<E/utf16-big>> || E <- FList ]).
+    list_to_binary([ <<E/utf16-big>> || E <- FList ]).
 
 
 utf16_little_to_list_bsyntax(<<>>) ->
@@ -972,15 +972,15 @@ utf16_little_to_list_bsyntax(<<C/utf16-little,R/binary>>) ->
 
 list_to_utf16_little_bsyntax(List,{utf16,little}) ->
     FList = flatx(List),
-    erlang:concat_binary([ if 
-			       is_binary(E) ->
-				   E;
-			       true -> 
-				   <<E/utf16-little>>
-			   end || E <- FList ]);
+    list_to_binary([ if
+			 is_binary(E) ->
+			     E;
+			 true ->
+			     <<E/utf16-little>>
+		     end || E <- FList ]);
 list_to_utf16_little_bsyntax(List,latin1) ->
     FList = flatb(List),
-    erlang:concat_binary([ <<E/utf16-little>> || E <- FList ]).
+    list_to_binary([ <<E/utf16-little>> || E <- FList ]).
 
 
     
@@ -991,15 +991,15 @@ utf32_big_to_list_bsyntax(<<C/utf32-big,R/binary>>) ->
 
 list_to_utf32_big_bsyntax(List,{utf32,big}) ->
     FList = flatx(List),
-    erlang:concat_binary([ if 
-			       is_binary(E) ->
-				   E;
-			       true -> 
-				   <<E/utf32-big>>
-			   end || E <- FList ]);
+    list_to_binary([ if
+			 is_binary(E) ->
+			     E;
+			 true ->
+			     <<E/utf32-big>>
+		     end || E <- FList ]);
 list_to_utf32_big_bsyntax(List,latin1) ->
     FList = flatb(List),
-    erlang:concat_binary([ <<E/utf32-big>> || E <- FList ]).
+    list_to_binary([ <<E/utf32-big>> || E <- FList ]).
 
 
 utf32_little_to_list_bsyntax(<<>>) ->
@@ -1009,15 +1009,15 @@ utf32_little_to_list_bsyntax(<<C/utf32-little,R/binary>>) ->
 
 list_to_utf32_little_bsyntax(List,{utf32,little}) ->
     FList = flatx(List),
-    erlang:concat_binary([ if 
-			       is_binary(E) ->
-				   E;
-			       true -> 
-				   <<E/utf32-little>>
-			   end || E <- FList ]);
+    list_to_binary([ if
+			 is_binary(E) ->
+			     E;
+			 true ->
+			     <<E/utf32-little>>
+		      end || E <- FList ]);
 list_to_utf32_little_bsyntax(List,latin1) ->
     FList = flatb(List),
-    erlang:concat_binary([ <<E/utf32-little>> || E <- FList ]).
+    list_to_binary([ <<E/utf32-little>> || E <- FList ]).
 
     
 
-- 
cgit v1.2.3