File 1602-kernel-Expand-interactive-shell-job-contro... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 1602-kernel-Expand-interactive-shell-job-control-testing.patch of Package erlang

From 15a159dddc3eeeb547d4e4624a5931f01151dae4 Mon Sep 17 00:00:00 2001
From: Lukas Larsson <lukas@erlang.org>
Date: Wed, 18 May 2022 09:16:56 +0200
Subject: [PATCH 2/5] kernel: Expand interactive shell job control testing

---
 lib/kernel/test/interactive_shell_SUITE.erl | 75 ++++++++++++++++++---
 1 file changed, 67 insertions(+), 8 deletions(-)

diff --git a/lib/kernel/test/interactive_shell_SUITE.erl b/lib/kernel/test/interactive_shell_SUITE.erl
index 3533fd3454..f5097b83aa 100644
--- a/lib/kernel/test/interactive_shell_SUITE.erl
+++ b/lib/kernel/test/interactive_shell_SUITE.erl
@@ -620,18 +620,58 @@ job_control_local(Config) when is_list(Config) ->
 	new ->
 	    %% New shell tests
 	    rtnode([{putline, ""},
-                    {expect, "1> $"},
+                    {expect,  "1> $"},
 		    {putline, "2."},
-		    {expect, "\r\n2\r\n"},
+		    {expect,  "\r\n2\r\n"},
 		    {putline, "\^g"},
-                    {expect, ["--> $"]},
+                    {expect,  "--> $"},
 		    {putline, "s"},
-                    {expect, ["--> $"]},
+                    {expect,  "--> $"},
 		    {putline, "c"},
-                    {expect, ["\r\nEshell"]},
-                    {expect, ["1> $"]},
+                    {expect,  "\r\nEshell"},
+                    {expect,  "1> $"},
 		    {putline, "35."},
-                    {expect, "\r\n35\r\n2> $"}]),
+                    {expect,  "\r\n35\r\n"},
+                    {expect,  "2> $"},
+                    {putline, "receive M -> M end.\r\n"},
+		    {putline, "\^g"},
+                    {expect,  "--> $"},
+                    {putline, "i 3"},
+                    {expect,  "Unknown job"},
+                    {expect,  "--> $"},
+                    {putline, "i 2"},
+                    {expect,  "--> $"},
+                    {putline, "c"},
+                    {expect,  "[*][*] exception exit: killed"},
+                    {expect,  "[23]>"},
+		    {putline, "\^g"},
+                    {expect,  "--> $"},
+                    {putline, "k 3"},
+                    {expect,  "Unknown job"},
+                    {expect,  "--> $"},
+                    {putline, "k 2"},
+                    {expect,  "--> $"},
+                    {putline, "k"},
+                    {expect,  "Unknown job"},
+                    {expect,  "--> $"},
+                    {putline, "c"},
+                    {expect,  "Unknown job"},
+                    {expect,  "--> $"},
+                    {putline, "i"},
+                    {expect,  "Unknown job"},
+                    {expect,  "--> $"},
+                    {putline, "?"},
+                    {expect,  "this message"},
+                    {expect,  "--> $"},
+                    {putline, "h"},
+                    {expect,  "this message"},
+                    {expect,  "--> $"},
+                    {putline, "c 1"},
+                    {expect, "\r\n"},
+                    {putline, "35."},
+                    {expect, "\r\n35\r\n"},
+                    {expect, "[23]> $"}
+                   ]),
             ok
     end.
 
@@ -684,6 +724,10 @@ test_remote_job_control(Node) ->
             {expect, " --> $"},
             {putline, "r " ++ PrintedNode},
             {expect, "\r\n"},
+            {putline, "j"},
+            {expect, "1  {shell,start,\\[init]}"},
+            {expect, "2[*] {\\Q"++PrintedNode++"\\E,shell,start,\\[]}"},
+            {expect, " --> $"},
             {putline, "c"},
             {expect, "\r\n"},
             {expect, "Eshell"},
@@ -695,10 +739,25 @@ test_remote_job_control(Node) ->
             {expect, "[*][*][*] Shell process terminated!"},
             {putdata, "\^g"},
             {expect, " --> $"},
+            {putline, "j"},
+            {expect, "1  {shell,start,\\[init]}"},
+            {expect, " --> $"},
+            {putline, "c"},
+            {expect, "Unknown job"},
+            {expect, " --> $"},
             {putline, "c 1"},
             {expect, "\r\n"},
             {putline, ""},
-            {expect, "\\Q("++RemNode++"@\\E[^)]*\\)[12]> $"}
+            {expect, "\\Q("++RemNode++"@\\E[^)]*\\)[12]> $"},
+            {putdata, "\^g"},
+            {expect, " --> $"},
+            {putline, "j"},
+            {expect, "1[*] {shell,start,\\[init]}"},
+            {putline, "c"},
+            {expect, "\r\n"},
+            {sleep, 100},
+            {putline, "35."},
+            {expect, "\\Q("++RemNode++"@\\E[^)]*\\)[123]> $"}
            ], RemNode),
     Pid ! die,
     ok.
-- 
2.35.3

Places

File 1602-kernel-Expand-interactive-shell-job-control-testing.patch of Package erlang

Places