From aab6011691ece92f9b5307162bd1a8bd1abdb9c2 Mon Sep 17 00:00:00 2001
From: Lukas Larsson <lukas@erlang-solutions.com>
Date: Wed, 23 Jan 2013 12:35:19 +0100
Subject: Add utf8 atom encode and decode testcases

---
 lib/erl_interface/test/ei_encode_SUITE.erl | 39 ++++++++++++++++++++++++++++--
 1 file changed, 37 insertions(+), 2 deletions(-)

(limited to 'lib/erl_interface/test/ei_encode_SUITE.erl')

diff --git a/lib/erl_interface/test/ei_encode_SUITE.erl b/lib/erl_interface/test/ei_encode_SUITE.erl
index 537e9cb01c..e0ac4c0637 100644
--- a/lib/erl_interface/test/ei_encode_SUITE.erl
+++ b/lib/erl_interface/test/ei_encode_SUITE.erl
@@ -34,7 +34,9 @@
     test_ei_encode_ulonglong/1,
     test_ei_encode_char/1,
     test_ei_encode_misc/1,
-    test_ei_encode_fails/1
+    test_ei_encode_fails/1,
+    test_ei_encode_utf8_atom/1,
+    test_ei_encode_utf8_atom_len/1
    ]).
 
 suite() -> [{ct_hooks,[ts_install_cth]}].
@@ -43,7 +45,8 @@ all() ->
     [test_ei_encode_long, test_ei_encode_ulong,
      test_ei_encode_longlong, test_ei_encode_ulonglong,
      test_ei_encode_char, test_ei_encode_misc,
-     test_ei_encode_fails].
+     test_ei_encode_fails, test_ei_encode_utf8_atom,
+     test_ei_encode_utf8_atom_len].
 
 groups() -> 
     [].
@@ -257,6 +260,38 @@ test_ei_encode_fails(Config) when is_list(Config) ->
 
 %% ######################################################################## %%
 
+test_ei_encode_utf8_atom(Config) ->
+    ?line P = runner:start(?test_ei_encode_utf8_atom),
+    
+    ?line {<<119,2,195,133>>,'Å'} = get_buf_and_term(P),
+    ?line {<<100,0,1,197>>,'Å'} = get_buf_and_term(P),
+    ?line {<<100,0,1,197>>,'Å'} = get_buf_and_term(P),
+    ?line {<<119,2,195,133>>,'Å'} = get_buf_and_term(P),
+
+    ?line {<<119,1,$A>>,'A'} = get_buf_and_term(P),
+    ?line {<<100,0,1,$A>>,'A'} = get_buf_and_term(P),
+
+    ?line runner:recv_eot(P),
+    ok.
+
+%% ######################################################################## %%
+test_ei_encode_utf8_atom_len(Config) ->
+    ?line P = runner:start(?test_ei_encode_utf8_atom_len),
+    
+    ?line {<<119,2,195,133>>,'Å'} = get_buf_and_term(P),
+    ?line {<<100,0,2,197,196>>,'ÅÄ'} = get_buf_and_term(P),
+    ?line {<<100,0,1,197>>,'Å'} = get_buf_and_term(P),
+    ?line {<<119,4,195,133,195,132>>,'ÅÄ'} = get_buf_and_term(P),
+
+    ?line {<<119,1,$A>>,'A'} = get_buf_and_term(P),
+    ?line {<<100,0,2,$A,$B>>,'AB'} = get_buf_and_term(P),
+    ?line {<<100,0,255,_:(255*8)>>,_} = get_buf_and_term(P),
+
+    ?line runner:recv_eot(P),
+    ok.
+
+%% ######################################################################## %%
+
 % We read two packets for each test, the ei_encode and ei_x_encode version....
 
 get_buf_and_term(P) ->
-- 
cgit v1.2.3