From 64a697339414f424073c5b021285fddb0ff2d9da Mon Sep 17 00:00:00 2001
From: Patrik Nyblom <pan@erlang.org>
Date: Wed, 10 Feb 2010 15:47:09 +0000
Subject: OTP-8418  user.erl (used in oldshell) is updated to handle unicode in
           prompt strings (io:get_line/{1,2}). io_lib is also updated to      
     format prompts with the 't' modifier (i.e. ~ts instead of ~s).

---
 lib/stdlib/test/io_proto_SUITE.erl | 50 +++++++++++++++++++++++++++++++++++---
 lib/stdlib/test/shell_SUITE.erl    | 16 +++++++++++-
 2 files changed, 62 insertions(+), 4 deletions(-)

(limited to 'lib/stdlib/test')

diff --git a/lib/stdlib/test/io_proto_SUITE.erl b/lib/stdlib/test/io_proto_SUITE.erl
index 59aa175c73..93159fbd5b 100644
--- a/lib/stdlib/test/io_proto_SUITE.erl
+++ b/lib/stdlib/test/io_proto_SUITE.erl
@@ -23,7 +23,7 @@
 -export([init_per_testcase/2, fin_per_testcase/2]).
 
 -export([setopts_getopts/1,unicode_options/1,unicode_options_gen/1, binary_options/1, bc_with_r12/1,
-	 bc_with_r12_gl/1, read_modes_gl/1,bc_with_r12_ogl/1, read_modes_ogl/1, broken_unicode/1,eof_on_pipe/1]).
+	 bc_with_r12_gl/1, read_modes_gl/1,bc_with_r12_ogl/1, read_modes_ogl/1, broken_unicode/1,eof_on_pipe/1,unicode_prompt/1]).
 
 
 -export([io_server_proxy/1,start_io_server_proxy/0, proxy_getall/1, proxy_setnext/2, proxy_quit/1]).
@@ -31,6 +31,8 @@
 -export([toerl_server/3,hold_the_line/3,answering_machine1/3,
 	 answering_machine2/3]).
 
+-export([uprompt/1]).
+
 %-define(without_test_server, true).
 
 -ifdef(without_test_server).
@@ -43,7 +45,7 @@
 -define(privdir(Conf), ?config(priv_dir, Conf)).
 -endif.
 
-%-define(debug, true).
+-define(debug, true).
 
 -ifdef(debug).
 -define(format(S, A), io:format(S, A)).
@@ -82,7 +84,7 @@ all(doc) ->
 all(suite) ->
     [setopts_getopts, unicode_options, unicode_options_gen, binary_options, bc_with_r12, 
      bc_with_r12_gl,bc_with_r12_ogl, read_modes_gl, read_modes_ogl, 
-     broken_unicode,eof_on_pipe].
+     broken_unicode,eof_on_pipe,unicode_prompt].
 
 
 -record(state, {
@@ -91,6 +93,48 @@ all(suite) ->
 	  mode = list
 	  }).
 
+uprompt(_L) ->
+    [1050,1072,1082,1074,1086,32,1077,32,85,110,105,99,111,100,101,32,63].
+
+unicode_prompt(suite) ->
+    [];
+unicode_prompt(doc) ->
+    ["Test that an Unicode prompt does not crash the shell"];
+unicode_prompt(Config) when is_list(Config) ->
+    ?line PA = filename:dirname(code:which(?MODULE)),
+    ?line rtnode([{putline,""},
+		  {putline, "2."},
+		  {getline, "2"},
+		  {putline, "shell:prompt_func({io_proto_SUITE,uprompt})."},
+		  {getline, "default"},
+		  {putline, "io:get_line('')."},
+		  {putline, "hej"},
+		  {getline, "\"hej\\n\""},
+		  {putline, "io:setopts([{binary,true}])."},
+		  {getline, "ok"},
+		  {putline, "io:get_line('')."},
+		  {putline, "hej"},
+		  {getline, "<<\"hej\\n\">>"}
+		  ],[],[],"-pa "++ PA),
+    %% And one with oldshell
+     ?line rtnode([{putline,""},
+		   {putline, "2."},
+		   {getline_re, ".*2."},
+		   {getline, "2"},
+		   {putline, "shell:prompt_func({io_proto_SUITE,uprompt})."},
+		   {getline_re, ".*default"},
+		   {putline, "io:get_line('')."},
+		   {putline, "hej"},
+		   {getline_re, ".*\"hej\\\\n\""},
+		   {putline, "io:setopts([{binary,true}])."},
+		   {getline_re, ".*ok"},
+		   {putline, "io:get_line('')."},
+		   {putline, "hej"},
+		   {getline_re, ".*<<\"hej\\\\n\">>"}
+		  ],[],[],"-oldshell -pa "++PA),
+    ok.
+    
+
 setopts_getopts(suite) ->
     [];
 setopts_getopts(doc) ->
diff --git a/lib/stdlib/test/shell_SUITE.erl b/lib/stdlib/test/shell_SUITE.erl
index da73046c2a..588342d46a 100644
--- a/lib/stdlib/test/shell_SUITE.erl
+++ b/lib/stdlib/test/shell_SUITE.erl
@@ -34,7 +34,8 @@
 	 start_restricted_on_command_line/1,restricted_local/1]).
 
 %% Internal export.
--export([otp_5435_2/0, prompt1/1, prompt2/1, prompt3/1, prompt4/1]).
+-export([otp_5435_2/0, prompt1/1, prompt2/1, prompt3/1, prompt4/1,
+	 prompt5/1]).
 
 %%
 %% Define to run outside of test server
@@ -2618,6 +2619,16 @@ otp_8393(Config) when is_list(Config) ->
     ?line "default\nl.\n" = 
         t(<<"shell:prompt_func({shell_SUITE,prompt3}). l.">>),
 
+    %%
+    %% Although this tests that you can set a unicode prompt function
+    %% it does not really test that it does work with the io-servers.
+    %% That is instead tested in the io_proto_SUITE, which has
+    %% the right infrastructure in place for such tests. /PaN
+    %%
+    ?line _ = shell:prompt_func(default),
+    ?line "default\nl.\n" = 
+        t(<<"shell:prompt_func({shell_SUITE,prompt5}). l.">>),
+
     %% Restricted shell.
     Contents = <<"-module(test_restricted_shell).
                   -export([local_allowed/3, non_local_allowed/3]).
@@ -2672,6 +2683,9 @@ prompt3(L) ->
 prompt4(_L) ->
     erlang:apply({erlang,'/'}, [1,0]).
 
+prompt5(_L) ->
+    [1050,1072,1082,1074,1086,32,1077,32,85,110,105,99,111,100,101,32,63].
+
 -ifdef(not_used).
 exit_term(B) ->
     "** exception exit:" ++ Reply = t(B),
-- 
cgit v1.2.3