1-- { dg-do run } 2 3with Ada.Text_IO; 4 5with GNAT.Expect.TTY; 6with GNAT.OS_Lib; 7 8procedure Expect3 is 9 Pid : GNAT.Expect.TTY.TTY_Process_Descriptor; 10 Args : GNAT.OS_Lib.Argument_List (1 .. 0); 11 Result : GNAT.Expect.Expect_Match; 12 13begin 14 Pid.Non_Blocking_Spawn ("true", Args); 15 16 begin 17 Pid.Expect (Result, ".*"); 18 19 raise Program_Error; 20 21 exception 22 when GNAT.Expect.Process_Died => 23 declare 24 File : Ada.Text_IO.File_Type; 25 26 begin 27 Ada.Text_IO.Create (File); 28 Pid.Close; 29 Ada.Text_IO.Put_Line (File, "Test of write operation"); 30 Ada.Text_IO.Close (File); 31 end; 32 end; 33end Expect3;