File tree Expand file tree Collapse file tree 2 files changed +10
-6
lines changed
testsuite/tests/gs.507.no_silent_exit Expand file tree Collapse file tree 2 files changed +10
-6
lines changed Original file line number Diff line number Diff line change @@ -36,7 +36,10 @@ with Commands;
36
36
37
37
package body GPS.Kernel.Spawns is
38
38
39
- Me : constant Trace_Handle := Create (" GPS.KERNEL.SPAWN" );
39
+ Me : constant Trace_Handle := Create (" GPS.KERNEL.SPAWN" , Off);
40
+ -- Disable Spawn as the default API to launch external processes
41
+ -- until we solve the remaining issues (#538 and #495).
42
+
40
43
Me_IO : constant Trace_Handle := Create
41
44
(" GPS.KERNEL.SPAWN_IO" , Off);
42
45
@@ -424,7 +427,7 @@ package body GPS.Kernel.Spawns is
424
427
end if ;
425
428
426
429
if Console /= null then
427
- Trace (Me , " Connect the command_handler to the console" );
430
+ Trace (Me_IO , " Connect the command_handler to the console" );
428
431
Console.Set_Command_Handler (Input_Handler'Access , Obj.all 'Address);
429
432
430
433
Obj.Console := Console;
@@ -447,7 +450,7 @@ package body GPS.Kernel.Spawns is
447
450
(Spawn.Process_Listeners.Process_Listener_Access (Obj));
448
451
449
452
Trace
450
- (Me , " Spawning " & GNATCOLL.Arg_Lists.To_Display_String (Arg_List));
453
+ (Me_IO , " Spawning " & GNATCOLL.Arg_Lists.To_Display_String (Arg_List));
451
454
452
455
Obj.Ref; -- Keep command alive until process finishes
453
456
Obj.Process.Start;
Original file line number Diff line number Diff line change @@ -13,7 +13,8 @@ def run_test():
13
13
yield wait_tasks ()
14
14
15
15
gps_assert (
16
- "process exited with status " in GPS .Console ("Run: foo" + dot_exe ).get_text (),
16
+ "Could not locate executable " in GPS .Console ().get_text (),
17
17
True ,
18
- "Missing message in the Messages view" ,
19
- )
18
+ "We should have a message warning that the executable could "
19
+ + "not be found in the Messages view" ,
20
+ )
You can’t perform that action at this time.
0 commit comments